<p><b>laura@ucar.edu</b> 2012-03-01 09:03:03 -0700 (Thu, 01 Mar 2012)</p><p>commented out extra print statements<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-02-29 22:43:49 UTC (rev 1561)
+++ branches/atmos_physics/src/core_atmos_physics/mpas_atmphys_driver_radiation_lw.F        2012-03-01 16:03:03 UTC (rev 1562)
@@ -411,7 +411,7 @@
!---------------------------------------------------------------------------------------------
- write(0,*) '--- writing absnxt,abstot,and emstot to restart =', l_camlw
+!write(0,*) '--- writing absnxt,abstot,and emstot to restart =', l_camlw
do j = jts,jte
do n = 1,cam_abs_dim1
do k = kts,kte
Modified: branches/atmos_physics/src/core_atmos_physics/mpas_atmphys_update_surface.F
===================================================================
--- branches/atmos_physics/src/core_atmos_physics/mpas_atmphys_update_surface.F        2012-02-29 22:43:49 UTC (rev 1561)
+++ branches/atmos_physics/src/core_atmos_physics/mpas_atmphys_update_surface.F        2012-03-01 16:03:03 UTC (rev 1562)
@@ -242,8 +242,8 @@
real(kind=RKIND),dimension(:),pointer:: dtw1,emiss,ust
!---------------------------------------------------------------------------------------------
- write(0,*)
- write(0,*) '--- enter subroutine physics_update_sstskin:'
+!write(0,*)
+!write(0,*) '--- enter subroutine physics_update_sstskin:'
nCellsSolve = mesh % nCellsSolve
Modified: branches/atmos_physics/src/core_nhyd_atmos/mpas_atm_mpas_core.F
===================================================================
--- branches/atmos_physics/src/core_nhyd_atmos/mpas_atm_mpas_core.F        2012-02-29 22:43:49 UTC (rev 1561)
+++ branches/atmos_physics/src/core_nhyd_atmos/mpas_atm_mpas_core.F        2012-03-01 16:03:03 UTC (rev 1562)
@@ -333,7 +333,6 @@
if (mpas_is_alarm_ringing(clock, restartAlarmID, ierr=ierr)) then
call mpas_reset_clock_alarm(clock, restartAlarmID, ierr=ierr)
- write(0,*) '--- mpas_core_run: restartAlarmID is ringing'
block_ptr => domain % blocklist
do while (associated(block_ptr))
</font>
</pre>