<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 ( &amp;
-                 p3d      = pres_hyd_p , p3di     = pres2_hyd_p , psfc     = psfc_hyd_p , &amp;
+                 p3d      = pres_hyd_p , p3di     = pres2_hyd_p , psfc     = psfc_p     , &amp;
                  th3d     = th_p       , t3d      = t_p         , dz8w     = dz_p       , &amp;
                  pi3d     = pi_p       , u3d      = u_p         , v3d      = v_p        , &amp;
                  qv3d     = qv_p       , qc3d     = qc_p        , qi3d     = qi_p       , &amp;

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( &amp;
-                   p3d      = pres_hyd_p , psfc    = psfc_hyd_p , t3d      = t_p ,     &amp;
+                   p3d      = pres_hyd_p , psfc    = psfc_p     , t3d      = t_p ,     &amp;
                    u3d      = u_p        , v3d     = v_p        , qv3d     = qv_p    , &amp;
                    dz8w     = dz_p       , cp      = cp         , g        = g       , &amp;
                    rovcp    = rcp        ,  R      = R_d        , xlv      = xlv     , &amp; 

</font>
</pre>