<p><b>laura@ucar.edu</b> 2012-07-12 11:40:40 -0600 (Thu, 12 Jul 2012)</p><p>In the calls to subroutine sfclay and subroutine ysu, replaced the surface pressure calculated from the hydrostatic pressure sounding with the surface pressure extrapolated from the actual pressure sounding<br>
</p><hr noshade><pre><font color="gray">Modified: branches/atmos_physics/src/core_atmos_physics/mpas_atmphys_driver_pbl.F
===================================================================
--- branches/atmos_physics/src/core_atmos_physics/mpas_atmphys_driver_pbl.F        2012-07-12 17:36:23 UTC (rev 2018)
+++ branches/atmos_physics/src/core_atmos_physics/mpas_atmphys_driver_pbl.F        2012-07-12 17:40:40 UTC (rev 2019)
@@ -184,7 +184,7 @@
#if defined(do_hydrostatic_pressure)
!... REARRANGED CALL USING HYDROSTATIC PRESSURE:
call ysu ( &
- p3d = pres_hyd_p , p3di = pres2_hyd_p , psfc = psfc_hyd_p , &
+ p3d = pres_hyd_p , p3di = pres2_hyd_p , psfc = psfc_p , &
th3d = th_p , t3d = t_p , dz8w = dz_p , &
pi3d = pi_p , u3d = u_p , v3d = v_p , &
qv3d = qv_p , qc3d = qc_p , qi3d = qi_p , &
Modified: branches/atmos_physics/src/core_atmos_physics/mpas_atmphys_driver_sfclayer.F
===================================================================
--- branches/atmos_physics/src/core_atmos_physics/mpas_atmphys_driver_sfclayer.F        2012-07-12 17:36:23 UTC (rev 2018)
+++ branches/atmos_physics/src/core_atmos_physics/mpas_atmphys_driver_sfclayer.F        2012-07-12 17:40:40 UTC (rev 2019)
@@ -270,7 +270,7 @@
#if defined(do_hydrostatic_pressure)
!... REARRANGED CALL USING HYDROSTATIC PRESSURE:
call sfclay( &
- p3d = pres_hyd_p , psfc = psfc_hyd_p , t3d = t_p , &
+ p3d = pres_hyd_p , psfc = psfc_p , t3d = t_p , &
u3d = u_p , v3d = v_p , qv3d = qv_p , &
dz8w = dz_p , cp = cp , g = g , &
rovcp = rcp , R = R_d , xlv = xlv , &
</font>
</pre>