<p><b>laura@ucar.edu</b> 2011-10-17 09:40:02 -0600 (Mon, 17 Oct 2011)</p><p>cleaned up printing statements<br>
</p><hr noshade><pre><font color="gray">Modified: branches/atmos_physics/src/core_physics/module_driver_convection_deep.F
===================================================================
--- branches/atmos_physics/src/core_physics/module_driver_convection_deep.F        2011-10-17 15:37:14 UTC (rev 1085)
+++ branches/atmos_physics/src/core_physics/module_driver_convection_deep.F        2011-10-17 15:40:02 UTC (rev 1086)
@@ -92,19 +92,19 @@
 
 !---------------------------------------------------------------------------------------------
  write(0,*)
- write(0,*) '--- begin convection_deep initialization:'
+ write(0,*) '--- enter convection_deep initialization:'
 
  convection_select: select case(conv_deep_scheme)
 
     case (&quot;kain_fritsch&quot;)
-       write(0,*) '    begin kain-fritsch initialization:'
+       write(0,*) '    enter kain-fritsch initialization:'
        if(.not. config_do_restart) then
           do iCell = 1, mesh % nCells
              diag_physics % nca % array(iCell) = -100.
           enddo
        endif
        call kf_lutab(svp1,svp2,svp3,svpt0)
-       write(0,*) '    end kain-kritsch initialization:'
+       write(0,*) '    end kain-kritsch initialization'
 
     case default
 

Modified: branches/atmos_physics/src/core_physics/module_driver_lsm.F
===================================================================
--- branches/atmos_physics/src/core_physics/module_driver_lsm.F        2011-10-17 15:37:14 UTC (rev 1085)
+++ branches/atmos_physics/src/core_physics/module_driver_lsm.F        2011-10-17 15:40:02 UTC (rev 1086)
@@ -358,7 +358,7 @@
 
 !---------------------------------------------------------------------------------------------
  write(0,*)
- write(0,*) '--- begin land surface model initialization:'
+ write(0,*) '--- enter land surface model initialization:'
 
  lsm_select: select case (trim(lsm_scheme))
 

Modified: branches/atmos_physics/src/core_physics/module_driver_microphysics.F
===================================================================
--- branches/atmos_physics/src/core_physics/module_driver_microphysics.F        2011-10-17 15:37:14 UTC (rev 1085)
+++ branches/atmos_physics/src/core_physics/module_driver_microphysics.F        2011-10-17 15:40:02 UTC (rev 1086)
@@ -147,17 +147,17 @@
  subroutine microphysics_init
 !=============================================================================================
  write(0,*)
- write(0,*) '--- begin cloud microphysics initialization:'
+ write(0,*) '--- enter cloud microphysics initialization:'
 
  microp_select: select case(microp_scheme)
 
     case (&quot;thompson&quot;)
-       write(0,*) '--- begin subroutine thompson_init:'
+       write(0,*) '--- enter subroutine thompson_init:'
        call thompson_init
        write(0,*) '--- end subroutine thompson_init'
 
     case(&quot;wsm6&quot;)
-       write(0,*) '--- begin subroutine wsm6init:'
+       write(0,*) '--- enter subroutine wsm6init:'
        call wsm6init(rho_a,rho_r,rho_s,cliq,cpv,.false.)
        write(0,*) '--- end subroutine wsm6init'
 

Modified: branches/atmos_physics/src/core_physics/module_driver_sfclayer.F
===================================================================
--- branches/atmos_physics/src/core_physics/module_driver_sfclayer.F        2011-10-17 15:37:14 UTC (rev 1085)
+++ branches/atmos_physics/src/core_physics/module_driver_sfclayer.F        2011-10-17 15:40:02 UTC (rev 1086)
@@ -231,7 +231,9 @@
  sfclayer_select: select case (trim(sfclayer_scheme))
 
     case(&quot;monin_obukhov&quot;)
+       write(0,*) '    enter monin_obukhov initialization:'
        call sfclayinit(allowed_to_read)
+       write(0,*) '    end monin_obukhov initialization'
 
     case default
 

</font>
</pre>