<p><b>laura@ucar.edu</b> 2010-06-14 10:13:32 -0600 (Mon, 14 Jun 2010)</p><p>Uncommented call to physics initialization and physics driver<br>
</p><hr noshade><pre><font color="gray">Modified: branches/atmos_physics/src/core_hyd_atmos/mpas_interface.F
===================================================================
--- branches/atmos_physics/src/core_hyd_atmos/mpas_interface.F        2010-06-14 16:12:34 UTC (rev 347)
+++ branches/atmos_physics/src/core_hyd_atmos/mpas_interface.F        2010-06-14 16:13:32 UTC (rev 348)
@@ -40,7 +40,7 @@
#ifdef DO_PHYSICS
call physics_wrf_allocate(mesh)
-! call physics_init(mesh, block % time_levs(1) % state)
+ call physics_init(mesh, block % time_levs(1) % state)
#endif
end subroutine mpas_init
@@ -62,7 +62,7 @@
subroutine mpas_timestep(domain, itimestep, dt &
#ifdef DO_PHYSICS
- ,n_physics &
+ ,n_physics, config_ntimesteps &
#endif
)
@@ -71,6 +71,7 @@
#ifdef DO_PHYSICS
use module_physics_driver
use module_physics_manager
+ use module_physics_todynamics
#endif
implicit none
@@ -79,15 +80,15 @@
integer, intent(in) :: itimestep
real (kind=RKIND), intent(in) :: dt
#ifdef DO_PHYSICS
- integer, intent(in) :: n_physics
+ integer, intent(in) :: n_physics, config_ntimesteps
logical:: l_physics
#endif
#ifdef DO_PHYSICS
-! l_physics = .false.
-! call physics_timetracker(itimestep,l_physics)
-! if(l_physics) call physics_driver(domain,itimestep)
- call timestep(domain, dt, itimestep)
+ l_physics = .false.
+ call physics_timetracker(itimestep,l_physics)
+ if(l_physics) call physics_driver(domain,itimestep)
+ call timestep(domain, dt, itimestep, config_ntimesteps)
#else
call timestep(domain, dt)
#endif
</font>
</pre>