<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 ("kain_fritsch")
- 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 ("thompson")
- write(0,*) '--- begin subroutine thompson_init:'
+ write(0,*) '--- enter subroutine thompson_init:'
call thompson_init
write(0,*) '--- end subroutine thompson_init'
case("wsm6")
- 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("monin_obukhov")
+ write(0,*) ' enter monin_obukhov initialization:'
call sfclayinit(allowed_to_read)
+ write(0,*) ' end monin_obukhov initialization'
case default
</font>
</pre>