<p><b>laura@ucar.edu</b> 2010-07-23 15:21:35 -0600 (Fri, 23 Jul 2010)</p><p>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_physics/module_physics_vars.F
===================================================================
--- branches/atmos_physics/src/core_physics/module_physics_vars.F                                (rev 0)
+++ branches/atmos_physics/src/core_physics/module_physics_vars.F        2010-07-23 21:21:35 UTC (rev 416)
@@ -0,0 +1,180 @@
+!=============================================================================================
+ module module_physics_vars
+ 
+ implicit none
+ public
+ save
+
+!=============================================================================================
+!list of physics parameterizations:
+!=============================================================================================
+
+ integer,public:: microp_scheme
+ integer,public:: conv_deep_scheme
+ integer,public:: conv_shallow_scheme
+ integer,public:: pbl_scheme
+ integer,public:: sfclayer_scheme
+
+!--- parameterizations of cloud microphysics:
+ integer,parameter,public:: microp_kessler  = 0
+ integer,parameter,public:: microp_thompson = 1
+
+!--- parameterizations of deep convection:
+ integer,parameter,public:: conv_deep_kf    = 0
+
+!--- parameterizations of shallow convection:
+ integer,parameter,public:: conv_shallow_uw = 0
+
+!--- parameterization of pbl processes:
+ integer,parameter,public:: pbl_ysu         = 0
+
+!--- parameterization of surface processes:
+ integer,parameter,public:: sfc_mnkhov      = 0
+
+!=============================================================================================
+!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:: itf,jtf,ktf
+ 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 surface:
+ real(kind=RKIND),dimension(:,:),allocatable:: &amp;
+    psfc_phy           !surface pressure                                                 (Pa).
+
+!... arrays related to u- and v-velocities interpolated to theta points:
+ real(kind=RKIND),dimension(:,:,:),allocatable:: &amp;
+    u_p,              &amp;!u-velocity interpolated to theta points                         (m/s).
+    v_p                !v-velocity interpolated to theta points                         (m/s).
+    
+!... arrays related to vertical sounding:
+ real(kind=RKIND),dimension(:,:,:),allocatable:: &amp;
+    w_p,              &amp;!vertical velocity                                               (m/s).
+    p_p,              &amp;!pressure                                                         (Pa).
+    pi_p,             &amp;!(p_phy/p0)**(r_d/cp)                                              (-).
+    z_p,              &amp;!height of layer                                                   (m).
+    dz_p,             &amp;!layer thickness                                                   (m).
+    t_p,              &amp;!temperature                                                       (K).
+    th_p,             &amp;!potential temperature                                             (K).
+    al_p,             &amp;!inverse of air density                                        (m3/kg).
+    rho_p              !air density                                                   (kg/m3).
+
+ real(kind=RKIND),dimension(:,:,:),allocatable:: &amp;
+    qv_p,             &amp;!water vapor mixing ratio                                      (kg/kg).
+    qc_p,             &amp;!cloud water mixing ratio                                      (kg/kg).
+    qr_p,             &amp;!rain mixing ratio                                             (kg/kg).
+    qi_p,             &amp;!cloud ice mixing ratio                                        (kg/kg).
+    qs_p,             &amp;!snow mixing ratio                                             (kg/kg).
+    qg_p               !graupel mixing ratio                                          (kg/kg).
+ 
+ real(kind=RKIND),dimension(:,:,:),allocatable:: &amp;
+    qni_p,            &amp;!number concentration for cloud ice                             (#/kg).
+    qnr_p              !number concentration for rain                                  (#/kg).
+
+ real(kind=RKIND),dimension(:,:,:),allocatable:: &amp;
+    rthten_p           !total physics tendency for potential temperature                (K/s).
+
+ real(kind=RKIND),dimension(:,:,:,:),allocatable:: &amp;
+    rqten_p            !total physics tendency for mixing ratio                     (kg/kg/s).
+
+!=============================================================================================
+!... variables and arrays related to parameterization of cloud microphysics:
+!=============================================================================================
+ real(kind=RKIND),dimension(:,:),allocatable:: &amp;
+    rainnc_p,         &amp;!
+    rainncv_p,        &amp;!
+    snownc_p,         &amp;!
+    snowncv_p,        &amp;!
+    graupelnc_p,      &amp;!
+    graupelncv_p,     &amp;!
+    sr_p
+
+!=============================================================================================
+!... variables and arrays related to parameterization of convection:
+!=============================================================================================
+ 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_p,          &amp;!lowest convective level                                           [-].
+    cutop_p,          &amp;!highest convective level                                          [-].
+    nca_p,            &amp;!counter for cloud relaxation time                                 [-].
+    rainc_p,          &amp;!
+    raincv_p,         &amp;!
+    pratec_p           !
+ real(kind=RKIND),dimension(:,:,:),allocatable:: &amp;
+    w0avg_p          !
+
+ real(kind=RKIND),dimension(:,:,:),allocatable:: &amp;
+    rthcuten_p,       &amp;!
+    rqvcuten_p,       &amp;!
+    rqccuten_p,       &amp;!
+    rqrcuten_p,       &amp;!
+    rqicuten_p,       &amp;!
+    rqscuten_p
+
+!=============================================================================================
+!... variables and arrays related to parameterization of pbl:
+!=============================================================================================
+ integer,public:: n_pbl
+ real(kind=RKIND),public:: dt_pbl
+
+ real(kind=RKIND),dimension(:,:,:),allocatable:: &amp;
+    rublten_phy,      &amp;!
+    rvblten_phy,      &amp;!
+    rthblten_phy,     &amp;!
+    rqvblten_phy,     &amp;!
+    rqcblten_phy,     &amp;!
+    rqiblten_phy       !
+
+!=============================================================================================
+!... variables and arrays related to parameterization of surface layer:
+!=============================================================================================
+ real(kind=RKIND),dimension(:,:),allocatable:: &amp;
+    br_p,             &amp;!bulk richardson number                                            [-].
+    gz1oz0_p,         &amp;!log of z1 over z0                                                 [-].
+    flhc_p,           &amp;!exchange coefficient for heat                                     [-].
+    flqc_p,           &amp;!exchange coefficient for moisture                                 [-].
+    hfx_p,            &amp;!upward heat flux at the surface                                [W/m2].
+    lh_p,             &amp;!latent heat flux at the surface                                [W/m2].
+    mavail_p,         &amp;!surface moisture availability                                     [-].
+    mol_p,            &amp;!T* in similarity theory                                           [K].
+    pblh_p,           &amp;!PBL height                                                        [m].
+    psih_p,           &amp;!similarity theory for heat                                        [-].
+    psim_p,           &amp;!similarity theory for momentum                                    [-].
+    q2_p,             &amp;!specific humidity at 2m                                       [kg/kg].
+    qfx_p,            &amp;!upward moisture flux at the surface                         [kg/m2/s].
+    qsfc_p,           &amp;!specific humidity at lower boundary                           [kg/kg].
+    regime_p,         &amp;!flag indicating PBL regime (stable_p,unstable_p,etc...)           [-].
+    rmol_p,           &amp;!1 / Monin Ob length                                               [-].
+    t2_p,             &amp;!temperature at 2m                                                 [K].
+    tsk_p,            &amp;!surface-skin temperature                                          [K].
+    th2_p,            &amp;!potential temperature at 2m                                       [K].
+    u10_p,            &amp;!u at 10 m                                                       [m/s].
+    ust_p,            &amp;!u* in similarity theory                                         [m/s].
+    ustm_p,           &amp;!u* in similarity theory without vconv                           [m/s].
+    v10_p,            &amp;!v at 10 m                                                       [m/s].
+    wspd_p,           &amp;!wind speed                                                      [m/s].
+    xland_p,          &amp;!land mask (1 for land; 2 for water)                               [-].
+    znt_p              !time-varying roughness length                                     [m].
+
+!=============================================================================================
+ end module module_physics_vars
+!=============================================================================================

</font>
</pre>