<p><b>laura@ucar.edu</b> 2010-05-20 13:58:32 -0600 (Thu, 20 May 2010)</p><p>Initialization for all physics parameterizations.<br>
</p><hr noshade><pre><font color="gray">Added: branches/atmos_physics/src/core_hyd_phys/module_physics_init.F
===================================================================
--- branches/atmos_physics/src/core_hyd_phys/module_physics_init.F                                (rev 0)
+++ branches/atmos_physics/src/core_hyd_phys/module_physics_init.F        2010-05-20 19:58:32 UTC (rev 289)
@@ -0,0 +1,104 @@
+!==============================================================================
+ MODULE module_physics_init
+ USE grid_types
+ USE configure, only: restart =&gt; config_do_restart
+
+ USE module_cu_kfeta
+ USE module_mp_thompson
+ USE module_physics_constants
+ USE module_physics_vars
+
+ IMPLICIT NONE
+ PRIVATE
+ PUBLIC:: physics_init
+
+ CONTAINS
+
+!==============================================================================
+ SUBROUTINE physics_init(grid,vars)
+!============================================================================== 
+
+!INPUT AND OUTPUT ARGUMENTS:
+!---------------------------
+ TYPE(grid_meta),INTENT(in):: grid
+ TYPE(grid_state),INTENT(inout):: vars
+
+!==============================================================================
+
+!INITIALIZATION OF PARAMETERIZED CONVECTIVE PROCESSES:
+ CALL init_convection(grid,vars)
+
+!INITIALIZATION OF CLOUD MICROPHYSICS PROCESSES:
+ write(6,*) '--- enter subroutine INIT_MICROPHYSICS:'
+ CALL init_microphysics
+ write(6,*) '--- end subroutine INIT_MICROPHYSICS:'
+ write(6,*)
+
+ END SUBROUTINE physics_init
+
+!==============================================================================
+ SUBROUTINE init_convection(grid,vars)
+!==============================================================================
+
+!INPUT AND OUTPUT ARGUMENTS:
+!---------------------------
+ TYPE(grid_meta),INTENT(in):: grid
+ TYPE(grid_state),INTENT(inout):: vars
+
+!LOCAL VARIABLES AND ARRAYS:
+!---------------------------
+!LOGICAL:: allowed_to_read,restart
+ LOGICAL:: allowed_to_read
+ INTEGER:: i,k,j,p_qi,p_qs,p_first_scalar
+
+!==============================================================================
+ write(6,*)
+ write(6,*) '--- enter SUBROUTINE INIT_CONVECTION:'
+ write(6,*) '    IMS= ',ims,' IME=',ime
+ write(6,*) '    JMS= ',jms,' JME=',jme
+ write(6,*) '    KMS= ',kms,' KME=',kme
+ write(6,*)
+ write(6,*) '    IDS= ',ids,' IDE=',ide
+ write(6,*) '    JDS= ',jds,' JDE=',jde
+ write(6,*) '    KDS= ',kds,' KDE=',kde
+ write(6,*)
+ write(6,*) '    ITS= ',its,' ITE=',ite
+ write(6,*) '    JTS= ',jts,' JTE=',jte
+ write(6,*) '    KTS= ',kts,' KTE=',kte
+ 
+ allowed_to_read = .false.
+ p_first_scalar  = moist_start + 1
+ p_qi = index_qi
+ p_qs = index_qs
+
+!INITIALIZATION OF KAIN-FRITSCH-ETA CONVECTION SCHEME:
+ write(6,*)
+ write(6,*) '--- enter subroutine KF_ETA_INIT:'
+ CALL kf_eta_init(rthcuten_phy,rqvcuten_phy,              &amp;
+                  rqccuten_phy,rqrcuten_phy,              &amp;
+                  rqicuten_phy,rqscuten_phy,              &amp;
+                  nca_phy,w0avg_phy,p_qi,p_qs,            &amp;
+                  svp1,svp2,svp3,svpt0,                   &amp;
+                  p_first_scalar,restart,allowed_to_read, &amp;
+                  ids,ide,jds,jde,kds,kde,                &amp;
+                  ims,ime,jms,jme,kms,kme,                &amp;
+                  its,ite,jts,jte,kts,kte)
+ write(6,*) '--- end subroutine KF_ETA_INIT:'
+ write(6,*)
+
+!FORMAT:
+ 201 FORMAT(i6,10(1x,e15.8))
+
+ END SUBROUTINE init_convection
+
+!==============================================================================
+ SUBROUTINE init_microphysics
+!==============================================================================
+
+ CALL thompson_init
+
+ END SUBROUTINE init_microphysics
+
+!==============================================================================
+ END MODULE module_physics_init
+!==============================================================================
\ No newline at end of file

</font>
</pre>