--- MITgcm/model/src/calc_phi_hyd.F	2002/09/25 19:36:50	1.21
+++ MITgcm/model/src/calc_phi_hyd.F	2002/11/07 21:51:15	1.22
@@ -1,4 +1,4 @@
-C $Header: /home/ubuntu/mnt/e9_copy/MITgcm/model/src/calc_phi_hyd.F,v 1.21 2002/09/25 19:36:50 mlosch Exp $
+C $Header: /home/ubuntu/mnt/e9_copy/MITgcm/model/src/calc_phi_hyd.F,v 1.22 2002/11/07 21:51:15 adcroft Exp $
 C $Name:  $
 
 #include "CPP_OPTIONS.h"
@@ -140,6 +140,11 @@
      &                 tFld, sFld,
      &                 alphaRho, myThid)
 
+C Quasi-hydrostatic terms are added in as if they modify the buoyancy
+        IF (quasiHydrostatic) THEN
+         CALL QUASIHYDROSTATICTERMS(bi,bj,k,alphaRho,myThid)
+        ENDIF
+
 C       Hydrostatic pressure at cell centers
         DO j=jMin,jMax
           DO i=iMin,iMax