<p><b>laura@ucar.edu</b> 2011-01-14 09:51:41 -0700 (Fri, 14 Jan 2011)</p><p>updated with physics<br>
</p><hr noshade><pre><font color="gray">Modified: branches/atmos_physics/src/core_hyd_atmos/module_mpas_core.F
===================================================================
--- branches/atmos_physics/src/core_hyd_atmos/module_mpas_core.F        2011-01-14 16:46:21 UTC (rev 698)
+++ branches/atmos_physics/src/core_hyd_atmos/module_mpas_core.F        2011-01-14 16:51:41 UTC (rev 699)
@@ -31,7 +31,7 @@
       dt = config_dt
       block =&gt; domain % blocklist
       do while (associated(block))
-         call mpas_init_block(block, block % mesh, dt)
+         call mpas_init_block(domain % dminfo, block, block % mesh, dt)
          block =&gt; block % next
       end do
 
@@ -40,7 +40,7 @@
    end subroutine mpas_core_init
  
 
-   subroutine mpas_init_block(block, mesh, dt)
+   subroutine mpas_init_block(domain % dminfo, block, mesh, dt)
    
       use grid_types
       use advection
@@ -55,6 +55,7 @@
    
       implicit none
    
+      type (dm_info), intent(in):: dminfo
       type (block_type), intent(inout) :: block
       type (mesh_type), intent(inout) :: mesh
       real (kind=RKIND), intent(in) :: dt
@@ -77,7 +78,7 @@
       if(moist_physics) then
          call physics_registry_init(config_do_restart, mesh, block % diag_physics, block % tend_physics)
          call physics_wrf_interface(mesh)
-         call physics_init(mesh, block % state % time_levs(1) % state, block % diag_physics)
+         call physics_init(dminfo, mesh, block % state % time_levs(1) % state, block % diag_physics)
       endif
 #endif
    

</font>
</pre>