<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, &
+ config_lsm_scheme, &
config_microp_scheme, &
config_conv_deep_scheme, &
config_sfclayer_scheme, &
@@ -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>