<p><b>laura@ucar.edu</b> 2010-07-23 15:13:44 -0600 (Fri, 23 Jul 2010)</p><p>initialization for all physics parameterizations<br>
</p><hr noshade><pre><font color="gray">Added: branches/atmos_physics/src/core_physics/module_physics_init.F
===================================================================
--- branches/atmos_physics/src/core_physics/module_physics_init.F         (rev 0)
+++ branches/atmos_physics/src/core_physics/module_physics_init.F        2010-07-23 21:13:44 UTC (rev 410)
@@ -0,0 +1,52 @@
+!=============================================================================================
+ module module_physics_init
+ use grid_types
+ use configure, only: config_do_restart, &
+ config_microp_scheme, &
+ config_conv_deep_scheme, &
+ config_sfclay_scheme
+
+ use module_convection_deep
+ use module_microphysics
+ use module_physics_sfclayer
+
+ implicit none
+ private
+ public:: physics_init
+
+ contains
+
+!=============================================================================================
+ subroutine physics_init(mesh,s)
+!=============================================================================================
+
+!input and output arguments:
+!---------------------------
+ type(grid_meta),intent(in):: mesh
+ type(grid_state),intent(inout):: s
+
+!=============================================================================================
+
+!initialization of parameterized deep convective processes:
+ if(config_conv_deep_scheme .ne. 'off') then
+ call convection_deep_interface_init(s)
+ call convection_deep_init(mesh,s)
+ endif
+
+!initialization of cloud microphysics processes:
+ if(config_microp_scheme .ne. 'off') call microphysics_init
+
+!initialization of surface layer processes:
+ if(config_sfclay_scheme .ne. 'off') then
+
+ call sfclayer_interface_init(s)
+ write(6,*) '--- end subroutine sfclayer_interface_init:'
+
+ endif
+ write(6,*) '--- end subroutine physics_init:'
+
+ end subroutine physics_init
+
+!=============================================================================================
+ end module module_physics_init
+!=============================================================================================
</font>
</pre>