<p><b>laura@ucar.edu</b> 2012-02-29 09:54:38 -0700 (Wed, 29 Feb 2012)</p><p>removed the call to physics_update at the bottom of subroutine atm_do_timestep. The update on the diagnostics due to parameterized convection has been moved to the bottom of the physics driver.<br>
</p><hr noshade><pre><font color="gray">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 16:52:27 UTC (rev 1548)
+++ branches/atmos_physics/src/core_nhyd_atmos/mpas_atm_mpas_core.F 2012-02-29 16:54:38 UTC (rev 1549)
@@ -333,6 +333,7 @@
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))
@@ -499,11 +500,6 @@
call atm_timestep(domain, dt, timeStamp, itimestep)
-#ifdef DO_PHYSICS
- !update physics diagnostics at the end of dynamic time-step:
- if(moist_physics) call physics_update(domain,dt)
-#endif
-
end subroutine atm_do_timestep
</font>
</pre>