<p><b>laura@ucar.edu</b> 2010-05-20 13:54:51 -0600 (Thu, 20 May 2010)</p><p>The module contains all physics arrays that need to be allocated on the WRF-like grid.<br>
</p><hr noshade><pre><font color="gray">Added: branches/atmos_physics/src/core_hyd_phys/module_physics_vars.F
===================================================================
--- branches/atmos_physics/src/core_hyd_phys/module_physics_vars.F                                (rev 0)
+++ branches/atmos_physics/src/core_hyd_phys/module_physics_vars.F        2010-05-20 19:54:51 UTC (rev 287)
@@ -0,0 +1,83 @@
+!==============================================================================
+ MODULE module_physics_vars
+ 
+ IMPLICIT NONE
+ PUBLIC
+ SAVE
+
+!WRF-VARIABLES: These variables are needed to keep calls to different physics
+!parameterizations as in WRF model.
+ INTEGER,PUBLIC:: ids,ide,jds,jde,kds,kde
+ INTEGER,PUBLIC:: ims,ime,jms,jme,kms,kme
+ INTEGER,PUBLIC:: its,ite,jts,jte,kts,kte
+ INTEGER,PUBLIC:: n_physics,n_microp
+
+ REAL(KIND=RKIND),PUBLIC:: dt_dyn
+ REAL(KIND=RKIND),PUBLIC:: dt_physics
+ REAL(KIND=RKIND),PUBLIC:: dt_microp
+ 
+!... ARRAYS RELATED TO U- AND V-VELOCITIES INTERPOLATED TO THETA POINTS:
+ REAL(KIND=RKIND),DIMENSION(:,:,:),ALLOCATABLE:: &amp;
+    u_phy,            &amp;!u-velocity interpolated to theta points          (m/s).
+    v_phy              !v-velocity interpolated to theta points          (m/s).
+    
+!... ARRAYS RELATED TO VERTICAL SOUNDING:
+ REAL(KIND=RKIND),DIMENSION(:,:,:),ALLOCATABLE:: &amp;
+    w_phy,            &amp;!vertical velocity                                (m/s).
+    p_phy,            &amp;!pressure                                          (Pa).
+    pi_phy,           &amp;!(p_phy/P0)**(R_d/cp)                               (-).
+    dz_phy,           &amp;!layer thickness                                    (m).
+    t_phy,            &amp;!temperature                                        (K).
+    th_phy,           &amp;!potential temperature                              (K).
+    al_phy,           &amp;!inverse of air density                         (m3/kg).
+    rho_phy            !air density                                    (kg/m3).
+
+ REAL(KIND=RKIND),DIMENSION(:,:,:),ALLOCATABLE:: &amp;
+    qv_phy,           &amp;!water vapor mixing ratio                       (kg/kg).
+    qc_phy,           &amp;!cloud water mixing ratio                       (kg/kg).
+    qr_phy,           &amp;!rain mixing ratio                              (kg/kg).
+    qi_phy,           &amp;!cloud ice mixing ratio                         (kg/kg).
+    qs_phy,           &amp;!snow mixing ratio                              (kg/kg).
+    qg_phy             !graupel mixing ratio                           (kg/kg).
+ 
+ REAL(KIND=RKIND),DIMENSION(:,:,:),ALLOCATABLE:: &amp;
+    qni_phy,          &amp;!number concentration for cloud ice              (#/kg).
+    qnr_phy            !number concentration for rain                   (#/kg).
+
+!==============================================================================
+!... VARIABLES AND ARRAYS RELATED TO PARAMETERIZATION OF CONVECTION:
+!==============================================================================
+ LOGICAL,PUBLIC:: adapt_step_flag
+ LOGICAL,PUBLIC:: warm_rain
+ INTEGER,PUBLIC:: n_cu
+ REAL(KIND=RKIND),PUBLIC:: dt_cu
+
+ LOGICAL:: &amp;
+    f_qv,             &amp;!
+    f_qc,             &amp;!
+    f_qr,             &amp;!
+    f_qi,             &amp;!
+    f_qs,             &amp;!
+    f_qg               !
+ LOGICAL,DIMENSION(:,:),ALLOCATABLE:: &amp;
+         cu_act_flag
+ REAL(KIND=RKIND),DIMENSION(:,:),ALLOCATABLE::   &amp;
+    cubot_phy,        &amp;!lowest convective level                            (-).
+    cutop_phy,        &amp;!highest convective level                           (-).
+    nca_phy,          &amp;!counter for cloud relaxation time                  (-).
+    raincv_phy,       &amp;!
+    pratec_phy         !
+ REAL(KIND=RKIND),DIMENSION(:,:,:),ALLOCATABLE:: &amp;
+    w0avg_phy          !
+
+ REAL(KIND=RKIND),DIMENSION(:,:,:),ALLOCATABLE:: &amp;
+    rthcuten_phy,     &amp;!
+    rqvcuten_phy,     &amp;!
+    rqccuten_phy,     &amp;!
+    rqrcuten_phy,     &amp;!
+    rqicuten_phy,     &amp;!
+    rqscuten_phy
+
+!==============================================================================
+ END MODULE module_physics_vars
+!==============================================================================
\ No newline at end of file

</font>
</pre>