<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:: &
+ psfc_phy !surface pressure (Pa).
+
+!... arrays related to u- and v-velocities interpolated to theta points:
+ real(kind=RKIND),dimension(:,:,:),allocatable:: &
+ u_p, &!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:: &
+ w_p, &!vertical velocity (m/s).
+ p_p, &!pressure (Pa).
+ pi_p, &!(p_phy/p0)**(r_d/cp) (-).
+ z_p, &!height of layer (m).
+ dz_p, &!layer thickness (m).
+ t_p, &!temperature (K).
+ th_p, &!potential temperature (K).
+ al_p, &!inverse of air density (m3/kg).
+ rho_p !air density (kg/m3).
+
+ real(kind=RKIND),dimension(:,:,:),allocatable:: &
+ qv_p, &!water vapor mixing ratio (kg/kg).
+ qc_p, &!cloud water mixing ratio (kg/kg).
+ qr_p, &!rain mixing ratio (kg/kg).
+ qi_p, &!cloud ice mixing ratio (kg/kg).
+ qs_p, &!snow mixing ratio (kg/kg).
+ qg_p !graupel mixing ratio (kg/kg).
+
+ real(kind=RKIND),dimension(:,:,:),allocatable:: &
+ qni_p, &!number concentration for cloud ice (#/kg).
+ qnr_p !number concentration for rain (#/kg).
+
+ real(kind=RKIND),dimension(:,:,:),allocatable:: &
+ rthten_p !total physics tendency for potential temperature (K/s).
+
+ real(kind=RKIND),dimension(:,:,:,:),allocatable:: &
+ 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:: &
+ rainnc_p, &!
+ rainncv_p, &!
+ snownc_p, &!
+ snowncv_p, &!
+ graupelnc_p, &!
+ graupelncv_p, &!
+ sr_p
+
+!=============================================================================================
+!... variables and arrays related to parameterization of convection:
+!=============================================================================================
+ integer,public:: n_cu
+ real(kind=RKIND),public:: dt_cu
+
+ logical:: &
+ f_qv, &!
+ f_qc, &!
+ f_qr, &!
+ f_qi, &!
+ f_qs, &!
+ f_qg !
+ logical,dimension(:,:),allocatable:: &
+         cu_act_flag
+ real(kind=RKIND),dimension(:,:),allocatable:: &
+ cubot_p, &!lowest convective level [-].
+ cutop_p, &!highest convective level [-].
+ nca_p, &!counter for cloud relaxation time [-].
+ rainc_p, &!
+ raincv_p, &!
+ pratec_p !
+ real(kind=RKIND),dimension(:,:,:),allocatable:: &
+ w0avg_p !
+
+ real(kind=RKIND),dimension(:,:,:),allocatable:: &
+ rthcuten_p, &!
+ rqvcuten_p, &!
+ rqccuten_p, &!
+ rqrcuten_p, &!
+ rqicuten_p, &!
+ 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:: &
+ rublten_phy, &!
+ rvblten_phy, &!
+ rthblten_phy, &!
+ rqvblten_phy, &!
+ rqcblten_phy, &!
+ rqiblten_phy !
+
+!=============================================================================================
+!... variables and arrays related to parameterization of surface layer:
+!=============================================================================================
+ real(kind=RKIND),dimension(:,:),allocatable:: &
+ br_p, &!bulk richardson number [-].
+ gz1oz0_p, &!log of z1 over z0 [-].
+ flhc_p, &!exchange coefficient for heat [-].
+ flqc_p, &!exchange coefficient for moisture [-].
+ hfx_p, &!upward heat flux at the surface [W/m2].
+ lh_p, &!latent heat flux at the surface [W/m2].
+ mavail_p, &!surface moisture availability [-].
+ mol_p, &!T* in similarity theory [K].
+ pblh_p, &!PBL height [m].
+ psih_p, &!similarity theory for heat [-].
+ psim_p, &!similarity theory for momentum [-].
+ q2_p, &!specific humidity at 2m [kg/kg].
+ qfx_p, &!upward moisture flux at the surface [kg/m2/s].
+ qsfc_p, &!specific humidity at lower boundary [kg/kg].
+ regime_p, &!flag indicating PBL regime (stable_p,unstable_p,etc...) [-].
+ rmol_p, &!1 / Monin Ob length [-].
+ t2_p, &!temperature at 2m [K].
+ tsk_p, &!surface-skin temperature [K].
+ th2_p, &!potential temperature at 2m [K].
+ u10_p, &!u at 10 m [m/s].
+ ust_p, &!u* in similarity theory [m/s].
+ ustm_p, &!u* in similarity theory without vconv [m/s].
+ v10_p, &!v at 10 m [m/s].
+ wspd_p, &!wind speed [m/s].
+ xland_p, &!land mask (1 for land; 2 for water) [-].
+ znt_p !time-varying roughness length [m].
+
+!=============================================================================================
+ end module module_physics_vars
+!=============================================================================================
</font>
</pre>