<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        &amp;
                   )
        call mpas_timer_stop(&quot;camrad&quot;)
-       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 ,      &amp;
                 its = its , ite = ite , jts = jts , jte = jte , kts = kts , kte = kte        &amp;
                   )
-       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>