<p><b>laura@ucar.edu</b> 2010-07-23 15:47:53 -0600 (Fri, 23 Jul 2010)</p><p>updated with new physics<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-23 21:36:08 UTC (rev 424)
+++ branches/atmos_physics/src/driver/module_subdriver.F        2010-07-23 21:47:53 UTC (rev 425)
@@ -17,18 +17,11 @@
          real (kind=RKIND), intent(in) :: dt
       end subroutine mpas_init
 
-      subroutine mpas_timestep(domain, itimestep, dt  &amp;
-#ifdef DO_PHYSICS
-                               , n_physics &amp;
-#endif
-                               )
+      subroutine mpas_timestep(domain, itimestep, dt)
          use grid_types
          type (domain_type), intent(inout) :: domain
          integer, intent(in) :: itimestep
          real (kind=RKIND), intent(in) :: dt
-#ifdef DO_PHYSICS
-         integer, intent(in) :: n_physics
-#endif
       end subroutine mpas_timestep
    end interface
 
@@ -54,17 +47,11 @@
       type (block_type), pointer :: block_ptr
       type (io_output_object) :: output_obj
       type (io_output_object) :: restart_obj
-#ifdef DO_PHYSICS
-      integer:: n_physics
-#endif
 
 
       ! Eventually, dt should be domain specific
       dt = config_dt
       ntimesteps = config_ntimesteps
-#ifdef DO_PHYSICS
-      n_physics = config_n_physics
-#endif
 
       ! Compute diagnostic fields needed in solve loop, and initialize 
       !    simulation time to 0 for all blocks
@@ -87,11 +74,7 @@
       do itimestep = 1,ntimesteps     
          write(0,*) 'Doing timestep ', itimestep
          call timer_start(&quot;time integration&quot;)
-         call mpas_timestep(domain, itimestep, dt &amp;
-#ifdef DO_PHYSICS
-                           ,n_physics &amp;
-#endif
-                           ) 
+         call mpas_timestep(domain, itimestep, dt)
          call timer_stop(&quot;time integration&quot;)
 
          ! Move time level 2 fields back into time level 1 for next time step
@@ -110,13 +93,6 @@
       call output_state_finalize(output_obj, domain % dminfo)
       if (restart_frame &gt; 1) call output_state_finalize(restart_obj, domain % dminfo)
 
-      ! Finalize time integration:
-      !block_ptr =&gt; domain % blocklist
-      !do while (associated(block_ptr))
-      !  call mpas_finalize(block_ptr, block_ptr % mesh, dt)
-      !  block_ptr =&gt; block_ptr % next
-      !end do
-      
    end subroutine solve
 
 

</font>
</pre>