<p><b>laura@ucar.edu</b> 2011-01-13 16:52:56 -0700 (Thu, 13 Jan 2011)</p><p>updated sourcecode<br>
</p><hr noshade><pre><font color="gray">Modified: branches/atmos_physics/src/core_physics/module_physics_init.F
===================================================================
--- branches/atmos_physics/src/core_physics/module_physics_init.F        2011-01-13 23:50:16 UTC (rev 693)
+++ branches/atmos_physics/src/core_physics/module_physics_init.F        2011-01-13 23:52:56 UTC (rev 694)
@@ -2,6 +2,7 @@
  module module_physics_init
  use grid_types
  use configure, only: config_do_restart,          &amp;
+                      config_lsm_scheme,          &amp;
                       config_microp_scheme,       &amp;
                       config_conv_deep_scheme,    &amp;
                       config_sfclayer_scheme,     &amp;
@@ -9,11 +10,14 @@
                       config_radt_sw_scheme
 
  use module_driver_convection_deep
+ use module_driver_lsm,only: init_lsm
  use module_driver_microphysics
  use module_driver_radiation_lw, only: init_radiation_lw
  use module_driver_radiation_sw, only: init_radiation_sw
  use module_driver_sfclayer
 
+ use module_physics_landuse
+
  implicit none
  private
  public:: physics_init
@@ -21,7 +25,7 @@
  contains
 
 !=============================================================================================
- subroutine physics_init(dminfo,mesh,state,diag_physics)
+ subroutine physics_init(dminfo,mesh,state,diag_physics,sfc_physics,sfc_input)
 !=============================================================================================
 
 !input and output arguments:
@@ -30,11 +34,16 @@
  type(mesh_type),intent(in):: mesh
  type(state_type),intent(inout):: state
  type(diag_physics_type),intent(inout):: diag_physics
+ type(sfc_physics_type) ,intent(inout):: sfc_physics
+ type(sfc_input_type)   ,intent(inout):: sfc_input
 
 !---------------------------------------------------------------------------------------------
- write(0,*)
  write(0,*) '--- enter subroutine physics_init:'
 
+!initialization of global surface properties. set here for now, but may be moved when time
+!manager is implemented:
+ call landuse_init_forMPAS(dminfo,mesh,diag_physics,sfc_physics,sfc_input)
+
 !initialization of parameterized deep convective processes:
  if(config_conv_deep_scheme .ne. 'off') then
     call convection_deep_init(state)
@@ -44,10 +53,13 @@
  if(config_microp_scheme .ne. 'off') call microphysics_init
 
 !initialization of surface layer processes:
- if(config_sfclayer_scheme .ne. 'off') call sfclayer_init(mesh,diag_physics)
+ if(config_sfclayer_scheme .ne. 'off') call init_sfclayer(mesh,diag_physics,sfc_physics)
 
+!initialization of land-surface model:
+ if(config_lsm_scheme .ne. 'off') call init_lsm(dminfo,mesh,diag_physics,sfc_input)
+
 !initialization of shortwave radiation processes:
-!if(config_radt_sw_scheme.ne.'off') call init_radiation_sw(dminfo)
+ if(config_radt_sw_scheme.ne.'off') call init_radiation_sw(dminfo)
 
 !initialization of longwave radiation processes:
  if(config_radt_lw_scheme.ne.'off') call init_radiation_lw(dminfo)

</font>
</pre>