<p><b>laura@ucar.edu</b> 2012-01-13 14:11:14 -0700 (Fri, 13 Jan 2012)</p><p>corrected typos in calculation of max and min values<br>
</p><hr noshade><pre><font color="gray">Modified: branches/atmos_physics/src/core_physics/module_physics_todynamics.F
===================================================================
--- branches/atmos_physics/src/core_physics/module_physics_todynamics.F        2012-01-13 20:11:08 UTC (rev 1366)
+++ branches/atmos_physics/src/core_physics/module_physics_todynamics.F        2012-01-13 21:11:14 UTC (rev 1367)
@@ -116,8 +116,8 @@
     enddo
     enddo
  endif
- write(0,*) 'max rthblten = ',maxval(rthblten(k,1:nCellsSolve))
- write(0,*) 'min rthblten = ',minval(rthblten(k,1:nCellsSolve))
+ write(0,*) 'max rthblten = ',maxval(rthblten(:,1:nCellsSolve))
+ write(0,*) 'min rthblten = ',minval(rthblten(:,1:nCellsSolve))
 
 !add coupled tendencies due to convection:
  if(config_conv_deep_scheme .ne. 'off') then
@@ -132,8 +132,8 @@
     enddo
     enddo
  endif
- write(0,*) 'max rthcuten = ',maxval(rthcuten(k,1:nCellsSolve))
- write(0,*) 'min rthcuten = ',minval(rthcuten(k,1:nCellsSolve))
+ write(0,*) 'max rthcuten = ',maxval(rthcuten(:,1:nCellsSolve))
+ write(0,*) 'min rthcuten = ',minval(rthcuten(:,1:nCellsSolve))
 
 !add coupled tendencies due to longwave radiation:
  if(config_radt_lw_scheme .ne. 'off') then
@@ -143,8 +143,8 @@
     enddo
     enddo
  endif
- write(0,*) 'max rthratenlw = ',maxval(rthratenlw(k,1:nCellsSolve))
- write(0,*) 'min rthratenlw = ',minval(rthratenlw(k,1:nCellsSolve))
+ write(0,*) 'max rthratenlw = ',maxval(rthratenlw(:,1:nCellsSolve))
+ write(0,*) 'min rthratenlw = ',minval(rthratenlw(:,1:nCellsSolve))
     
 !add coupled tendencies due to shortwave radiation:
  if(config_radt_sw_scheme .ne. 'off') then
@@ -154,8 +154,8 @@
     enddo
     enddo
  endif
- write(0,*) 'max rthratensw = ',maxval(rthratensw(k,1:nCellsSolve))
- write(0,*) 'min rthratensw = ',minval(rthratensw(k,1:nCellsSolve))
+ write(0,*) 'max rthratensw = ',maxval(rthratensw(:,1:nCellsSolve))
+ write(0,*) 'min rthratensw = ',minval(rthratensw(:,1:nCellsSolve))
 
 !if non-hydrostatic core, convert the tendency for the potential temperature to a
 !tendency for the modified potential temperature:

</font>
</pre>