<p><b>laura@ucar.edu</b> 2011-10-17 14:19:18 -0600 (Mon, 17 Oct 2011)</p><p>updated physics variables<br>
</p><hr noshade><pre><font color="gray">Modified: branches/atmos_physics/src/core_physics/module_physics_vars.F
===================================================================
--- branches/atmos_physics/src/core_physics/module_physics_vars.F        2011-10-17 20:17:32 UTC (rev 1102)
+++ branches/atmos_physics/src/core_physics/module_physics_vars.F        2011-10-17 20:19:18 UTC (rev 1103)
@@ -14,6 +14,7 @@
character(len=32),public:: conv_shallow_scheme
character(len=32),public:: lsm_scheme
character(len=32),public:: pbl_scheme
+ character(len=32),public:: radt_cld_scheme
character(len=32),public:: radt_lw_scheme
character(len=32),public:: radt_sw_scheme
character(len=32),public:: sfclayer_scheme
@@ -29,12 +30,11 @@
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
+ integer,public:: n_microp
integer,public:: num_months !number of months [-]
real(kind=RKIND),public:: dt_dyn !time-step for dynamics
- real(kind=RKIND),public:: dt_physics !time-step for physics.
real(kind=RKIND),public:: dt_microp !time-step for cloud microphysics parameterization.
real(kind=RKIND),public:: dt_radtlw !time-step for longwave radiation parameterization [mns]
real(kind=RKIND),public:: dt_radtsw !time-step for shortwave radiation parameterization [mns]
@@ -113,7 +113,7 @@
f_qs = .true., &!
f_qg = .true. !
- real(kind=RKIND),dimension(:,:),allocatable:: &
+ real(kind=RKIND),dimension(:,:,:),allocatable:: &
f_ice, &!fraction of cloud ice (used in WRF only).
f_rain !fraction of rain (used in WRF only).
@@ -155,7 +155,6 @@
!=============================================================================================
!... variables and arrays related to parameterization of pbl:
!=============================================================================================
- integer,public:: n_pbl
integer,dimension(:,:),allocatable:: &
kpbl_p !index of PBL top [-]
</font>
</pre>