<p><b>laura@ucar.edu</b> 2012-01-13 11:35:13 -0700 (Fri, 13 Jan 2012)</p><p>removed the arrays pres_hyd_p and pres2_hyd_p. added the arrays fzm_p and fzp_p<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        2012-01-13 18:31:48 UTC (rev 1362)
+++ branches/atmos_physics/src/core_physics/module_physics_vars.F        2012-01-13 18:35:13 UTC (rev 1363)
@@ -32,7 +32,7 @@
  integer,public:: its,ite,jts,jte,kts,kte
  integer,public:: n_microp
 
- integer,public:: num_months          !number of months                                     [-]
+ integer,public:: num_months          !number of months                                    [-]
 
  real(kind=RKIND),public:: dt_dyn     !time-step for dynamics
  real(kind=RKIND),public:: dt_microp  !time-step for cloud microphysics parameterization.
@@ -42,15 +42,19 @@
  real(kind=RKIND),public:: xice_threshold
 
  real(kind=RKIND),dimension(:,:),allocatable:: &amp;
-    area_p             !grid cell area                                                     [m2]
+    area_p             !grid cell area                                                    [m2]
 
 !... arrays related to surface:
  real(kind=RKIND),dimension(:,:),allocatable:: &amp;
     psfc_p,           &amp;!surface pressure                                                  [Pa]
     ptop_p             !model-top pressure                                                [Pa]
 
+ real(kind=RKIND),dimension(:,:,:),allocatable:: &amp;
+    fzm_p,            &amp;!weight for interpolation to w points                               [-]
+    fzp_p              !weight for interpolation to w points                               [-]
+
+ real(kind=RKIND),dimension(:,:,:),allocatable:: &amp;
 !... 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]
     
@@ -69,10 +73,6 @@
     rh_p               !relative humidity                                                  [-]
 
  real(kind=RKIND),dimension(:,:,:),allocatable:: &amp;
-    pres_hyd_p,       &amp;!hydrostatic pressure at theta points                              [Pa]
-    pres2_hyd_p        !hydrostatic pressure at w points                                  [Pa]
-
- 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]

</font>
</pre>