Parent Directory | Revision Log | Revision Graph | 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 |
|
ViewVC Help | |
Powered by ViewVC 1.1.22 |