/[MITgcm]/MITgcm/model/src/calc_phi_hyd.F
ViewVC logotype

Diff of /MITgcm/model/src/calc_phi_hyd.F

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.21 by mlosch, Wed Sep 25 19:36:50 2002 UTC revision 1.22 by adcroft, Thu Nov 7 21:51:15 2002 UTC
# Line 140  CADJ STORE sFld (:,:,k,bi,bj) = comlev1_ Line 140  CADJ STORE sFld (:,:,k,bi,bj) = comlev1_
140       &                 tFld, sFld,       &                 tFld, sFld,
141       &                 alphaRho, myThid)       &                 alphaRho, myThid)
142    
143    C Quasi-hydrostatic terms are added in as if they modify the buoyancy
144            IF (quasiHydrostatic) THEN
145             CALL QUASIHYDROSTATICTERMS(bi,bj,k,alphaRho,myThid)
146            ENDIF
147    
148  C       Hydrostatic pressure at cell centers  C       Hydrostatic pressure at cell centers
149          DO j=jMin,jMax          DO j=jMin,jMax
150            DO i=iMin,iMax            DO i=iMin,iMax
Legend:
Removed from v.1.21  
changed lines
  Added in v.1.22
  ViewVC Help
Powered by ViewVC 1.1.22