<p><b>laura@ucar.edu</b> 2010-07-23 15:13:00 -0600 (Fri, 23 Jul 2010)</p><p>driver for all physics parameterizations, except cloud microphysics<br>
</p><hr noshade><pre><font color="gray">Added: branches/atmos_physics/src/core_physics/module_physics_driver.F
===================================================================
--- branches/atmos_physics/src/core_physics/module_physics_driver.F                                (rev 0)
+++ branches/atmos_physics/src/core_physics/module_physics_driver.F        2010-07-23 21:13:00 UTC (rev 408)
@@ -0,0 +1,60 @@
+!=============================================================================================
+ module module_physics_driver
+ use configure
+ use grid_types
+
+ use module_pbl
+ use module_convection_deep
+ use module_physics_constants
+ use module_physics_interface_nhyd
+ use module_physics_vars
+
+ implicit none
+ private
+ public:: physics_driver
+
+ contains
+
+!=============================================================================================
+ subroutine physics_driver(domain,itimestep)
+!=============================================================================================
+
+!input arguments:
+!----------------
+ integer,intent(in):: itimestep
+
+!inout arguments:
+!----------------
+ type(domain_type),intent(inout):: domain
+
+!local variables:
+!----------------
+ type(block_type),pointer:: block
+
+!=============================================================================================
+
+ block =&gt; domain % blocklist
+ do while(associated(block))
+
+    !physics prep step:
+    call nhyd_to_physics(block%mesh,block%time_levs(1)%state)
+
+    !call to convection:
+    if(config_conv_deep_scheme .ne. 'off') &amp;
+       call convection_deep_driver(itimestep,block%mesh,block%time_levs(1)%state)
+
+    !call to pbl schemes:
+    if(config_pbl_scheme .ne. 'off') &amp;
+       call pbl_driver(itimestep,block%mesh,block%time_levs(1)%state)
+
+    !add all physics tendencies:
+    !call physics_add_tendencies
+
+    block =&gt; block % next
+ end do 
+
+ end subroutine physics_driver
+
+!=============================================================================================
+ end module module_physics_driver
+!=============================================================================================

</font>
</pre>