<p><b>duda</b> 2010-05-10 14:43:52 -0600 (Mon, 10 May 2010)</p><p>BRANCH COMMIT<br>
<br>
Remove an unused variable and change (kind=8) to (kind=RKIND)<br>
in a few variable declarations.<br>
<br>
M    src/driver_cam_interface/module_mpas_cam_interface.F<br>
</p><hr noshade><pre><font color="gray">Modified: branches/mpas_cam_coupling/src/driver_cam_interface/module_mpas_cam_interface.F
===================================================================
--- branches/mpas_cam_coupling/src/driver_cam_interface/module_mpas_cam_interface.F        2010-05-07 20:11:46 UTC (rev 261)
+++ branches/mpas_cam_coupling/src/driver_cam_interface/module_mpas_cam_interface.F        2010-05-10 20:43:52 UTC (rev 262)
@@ -36,12 +36,12 @@
       real (kind=RKIND), intent(in) :: phys_dt
 
       integer :: iCell, iEdge, j
-      real (kind=8) :: m, angle
-      real (kind=8), dimension(3) :: X1, X2, n_rot_vector
+      real (kind=RKIND) :: angle
+      real (kind=RKIND), dimension(3) :: X1, X2, n_rot_vector
       integer, dimension(:), pointer :: nEdgesOnCell
-      real (kind=8), dimension(:), pointer :: xCell, yCell, zCell
+      real (kind=RKIND), dimension(:), pointer :: xCell, yCell, zCell
       integer, dimension(:,:), pointer :: edgesOnCell, cellsOnEdge
-      real (kind=8), dimension(:,:), pointer :: east, north, edge_normal
+      real (kind=RKIND), dimension(:,:), pointer :: east, north, edge_normal
 
       write(0,*) 'Called MPAS_INIT1'
 

</font>
</pre>