<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>