<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,       &amp;
+                      config_microp_scheme,    &amp;
+                      config_conv_deep_scheme, &amp;
+                      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>