<p><b>mperego@fsu.edu</b> 2012-06-20 08:40:08 -0600 (Wed, 20 Jun 2012)</p><p>BRANCH COMMIT<br>
land_ice: fix call to mpas_dmpar_max_int for getting the processor on which the CFL condition is violated.<br>
</p><hr noshade><pre><font color="gray">Modified: branches/land_ice_projects/implement_core/src/core_land_ice/mpas_land_ice_time_integration_forwardeuler.F
===================================================================
--- branches/land_ice_projects/implement_core/src/core_land_ice/mpas_land_ice_time_integration_forwardeuler.F        2012-06-15 21:55:13 UTC (rev 1995)
+++ branches/land_ice_projects/implement_core/src/core_land_ice/mpas_land_ice_time_integration_forwardeuler.F        2012-06-20 14:40:08 UTC (rev 1996)
@@ -55,7 +55,7 @@
 
       integer :: nVertLevels, k, iEdge, iTracer
 
-      integer :: err, allowableDtProcNumber
+      integer :: err, allowableDtProcNumber, allowableDtMinProcNumber
 
       real (kind=RKIND) :: allowableDt, allowableDtMin
       
@@ -126,8 +126,8 @@
       else 
         allowableDtProcNumber = -1
       endif
-      call mpas_dmpar_max_int(dminfo, allowableDtProcNumber, allowableDtProcNumber)
-      write(6,*) '  Maximum allowable time step for all processors is:', allowableDtMin,  '  Time step is limited by processor number ', allowableDtProcNumber
+      call mpas_dmpar_max_int(dminfo, allowableDtProcNumber, allowableDtMinProcNumber)
+      write(6,*) '  Maximum allowable time step for all processors is:', allowableDtMin,  '  Time step is limited by processor number ', allowableDtMinProcNumber
 
       if (err .gt. 0) then
            write(0,*) 'Abort: Error in calculating thickness tendency (possibly CFL violation)'

</font>
</pre>