<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 => 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, &
+ rqccuten_phy,rqrcuten_phy, &
+ rqicuten_phy,rqscuten_phy, &
+ nca_phy,w0avg_phy,p_qi,p_qs, &
+ svp1,svp2,svp3,svpt0, &
+ p_first_scalar,restart,allowed_to_read, &
+ ids,ide,jds,jde,kds,kde, &
+ ims,ime,jms,jme,kms,kme, &
+ 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>