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 |