/[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.33 by mlosch, Tue Feb 7 11:47:49 2006 UTC revision 1.34 by jmc, Mon Mar 20 14:22:26 2006 UTC
# Line 166  C     overlying shelfice (whose density Line 166  C     overlying shelfice (whose density
166       &   CALL DIAGNOSTICS_FILL(alphaRho,'RHOAnoma',k,1,2,bi,bj,myThid)       &   CALL DIAGNOSTICS_FILL(alphaRho,'RHOAnoma',k,1,2,bi,bj,myThid)
167  #endif  #endif
168    
169    #ifdef ALLOW_MOM_COMMON
170  C Quasi-hydrostatic terms are added in as if they modify the buoyancy  C Quasi-hydrostatic terms are added in as if they modify the buoyancy
171          IF (quasiHydrostatic) THEN          IF (quasiHydrostatic) THEN
172           CALL QUASIHYDROSTATICTERMS(bi,bj,k,alphaRho,myThid)           CALL MOM_QUASIHYDROSTATIC(bi,bj,k,uVel,vVel,alphaRho,myThid)
173          ENDIF          ENDIF
174    #endif /* ALLOW_MOM_COMMON */
175    
176  #ifdef NONLIN_FRSURF  #ifdef NONLIN_FRSURF
177          IF (k.EQ.1 .AND. addSurfPhiAnom) THEN          IF (k.EQ.1 .AND. addSurfPhiAnom) THEN
Legend:
Removed from v.1.33  
changed lines
  Added in v.1.34
  ViewVC Help
Powered by ViewVC 1.1.22