<p><b>laura@ucar.edu</b> 2011-04-08 16:35:14 -0600 (Fri, 08 Apr 2011)</p><p>updates the accumulated convective precipitation at the end of the dynamic time-step<br>
</p><hr noshade><pre><font color="gray">Added: branches/atmos_physics/src/core_physics/module_physics_update.F
===================================================================
--- branches/atmos_physics/src/core_physics/module_physics_update.F                                (rev 0)
+++ branches/atmos_physics/src/core_physics/module_physics_update.F        2011-04-08 22:35:14 UTC (rev 790)
@@ -0,0 +1,44 @@
+!=============================================================================================
+ module module_physics_update
+ use configure
+ use grid_types
+
+ use module_driver_convection_deep
+
+ implicit none
+ private
+ public:: physics_update
+
+ contains
+ 
+!=============================================================================================
+ subroutine physics_update(domain,dt)
+!=============================================================================================
+
+!input arguments:
+ type(domain_type),intent(in):: domain
+ real(kind=RKIND),intent(in) :: dt 
+
+!local variables:
+ type(block_type),pointer:: block
+ integer:: i,j,k
+
+!---------------------------------------------------------------------------------------------
+
+ write(0,*)
+ write(0,*) '--- begin physics_update:'
+ block =&gt; domain % blocklist
+ do while(associated(block))
+
+    !parameterization of convection: update accumulated precipitation.
+    call update_convection_deep(dt,block%mesh,block%diag_physics)
+
+    block =&gt; block % next
+ end do
+ write(0,*) '--- end physics_update:'
+
+ end subroutine physics_update
+
+!=============================================================================================
+ end module module_physics_update
+!=============================================================================================

</font>
</pre>