<p><b>laura@ucar.edu</b> 2010-07-26 09:53:59 -0600 (Mon, 26 Jul 2010)</p><p>updated with trunk<br>
</p><hr noshade><pre><font color="gray">Modified: branches/atmos_physics/src/driver/module_subdriver.F
===================================================================
--- branches/atmos_physics/src/driver/module_subdriver.F        2010-07-26 15:52:29 UTC (rev 437)
+++ branches/atmos_physics/src/driver/module_subdriver.F        2010-07-26 15:53:59 UTC (rev 438)
@@ -53,6 +53,7 @@
dt = config_dt
ntimesteps = config_ntimesteps
+
! Compute diagnostic fields needed in solve loop, and initialize
! simulation time to 0 for all blocks
block_ptr => domain % blocklist
@@ -74,7 +75,7 @@
do itimestep = 1,ntimesteps
write(0,*) 'Doing timestep ', itimestep
call timer_start("time integration")
- call mpas_timestep(domain, itimestep, dt)
+ call mpas_timestep(domain, itimestep, dt)
call timer_stop("time integration")
! Move time level 2 fields back into time level 1 for next time step
</font>
</pre>