<p><b>laura@ucar.edu</b> 2012-03-26 09:50:12 -0600 (Mon, 26 Mar 2012)</p><p>commented out the calculation of the max values for the shortwave and longwave radiation codes for the CAM radiation codes.<br>
</p><hr noshade><pre><font color="gray">Modified: branches/atmos_physics/src/core_atmos_physics/mpas_atmphys_driver_radiation_lw.F
===================================================================
--- branches/atmos_physics/src/core_atmos_physics/mpas_atmphys_driver_radiation_lw.F        2012-03-26 15:41:09 UTC (rev 1716)
+++ branches/atmos_physics/src/core_atmos_physics/mpas_atmphys_driver_radiation_lw.F        2012-03-26 15:50:12 UTC (rev 1717)
@@ -590,13 +590,13 @@
its = its , ite = ite , jts = jts , jte = jte , kts = kts , kte = kte &
)
call mpas_timer_stop("camrad")
- write(0,*) 'max lwupb =',maxval(lwupb_p(its:ite,jms:jme))
- write(0,*) 'max lwupbc =',maxval(lwupbc_p(its:ite,jms:jme))
- write(0,*) 'max lwupt =',maxval(lwupt_p(its:ite,jms:jme))
- write(0,*) 'max lwuptc =',maxval(lwuptc_p(its:ite,jms:jme))
- write(0,*) 'max rthratenlw =',maxval(rthratenlw_p(its:ite,kts:kte,jms:jme))
- write(0,*) 'min rthratenlw =',minval(rthratenlw_p(its:ite,kts:kte,jms:jme))
- write(0,*) '--- end subroutine camrad lw: doabsems=',doabsems
+! write(0,*) 'max lwupb =',maxval(lwupb_p(its:ite,jms:jme))
+! write(0,*) 'max lwupbc =',maxval(lwupbc_p(its:ite,jms:jme))
+! write(0,*) 'max lwupt =',maxval(lwupt_p(its:ite,jms:jme))
+! write(0,*) 'max lwuptc =',maxval(lwuptc_p(its:ite,jms:jme))
+! write(0,*) 'max rthratenlw =',maxval(rthratenlw_p(its:ite,kts:kte,jms:jme))
+! write(0,*) 'min rthratenlw =',minval(rthratenlw_p(its:ite,kts:kte,jms:jme))
+! write(0,*) '--- end subroutine camrad lw: doabsems=',doabsems
case default
Modified: branches/atmos_physics/src/core_atmos_physics/mpas_atmphys_driver_radiation_sw.F
===================================================================
--- branches/atmos_physics/src/core_atmos_physics/mpas_atmphys_driver_radiation_sw.F        2012-03-26 15:41:09 UTC (rev 1716)
+++ branches/atmos_physics/src/core_atmos_physics/mpas_atmphys_driver_radiation_sw.F        2012-03-26 15:50:12 UTC (rev 1717)
@@ -578,14 +578,14 @@
ims = ims , ime = ime , jms = jms , jme = jme , kms = kms , kme = kme , &
its = its , ite = ite , jts = jts , jte = jte , kts = kts , kte = kte &
)
- write(0,*) 'doabsems =',doabsems
- write(0,*) 'max swupb =',maxval(swupb_p(its:ite,jms:jme))
- write(0,*) 'max swupbc =',maxval(swupbc_p(its:ite,jms:jme))
- write(0,*) 'max swupt =',maxval(swupt_p(its:ite,jms:jme))
- write(0,*) 'max swuptc =',maxval(swuptc_p(its:ite,jms:jme))
- write(0,*) 'max rthratensw =',maxval(rthratensw_p(its:ite,kts:kte,jms:jme))
- write(0,*) 'min rthratensw =',minval(rthratensw_p(its:ite,kts:kte,jms:jme))
- write(0,*) '--- end subroutine camrad sw'
+! write(0,*) 'doabsems =',doabsems
+! write(0,*) 'max swupb =',maxval(swupb_p(its:ite,jms:jme))
+! write(0,*) 'max swupbc =',maxval(swupbc_p(its:ite,jms:jme))
+! write(0,*) 'max swupt =',maxval(swupt_p(its:ite,jms:jme))
+! write(0,*) 'max swuptc =',maxval(swuptc_p(its:ite,jms:jme))
+! write(0,*) 'max rthratensw =',maxval(rthratensw_p(its:ite,kts:kte,jms:jme))
+! write(0,*) 'min rthratensw =',minval(rthratensw_p(its:ite,kts:kte,jms:jme))
+! write(0,*) '--- end subroutine camrad sw'
case default
</font>
</pre>