Parent Directory | Revision Log | Revision Graph | Patch
revision 1.31 by jmc, Mon Jan 3 02:34:01 2005 UTC | revision 1.33 by mlosch, Tue Feb 7 11:47:49 2006 UTC | |
---|---|---|
# | Line 1 | Line 1 |
1 | C $Header$ | C $Header$ |
2 | C $Name$ | C $Name$ |
3 | ||
4 | #include "PACKAGES_CONFIG.h" | |
5 | #include "CPP_OPTIONS.h" | #include "CPP_OPTIONS.h" |
6 | ||
7 | CBOP | CBOP |
# | Line 148 CADJ STORE sFld (:,:,k,bi,bj) = comlev1_ | Line 149 CADJ STORE sFld (:,:,k,bi,bj) = comlev1_ |
149 | CALL FIND_RHO( bi, bj, iMin, iMax, jMin, jMax, k, k, | CALL FIND_RHO( bi, bj, iMin, iMax, jMin, jMax, k, k, |
150 | & tFld, sFld, | & tFld, sFld, |
151 | & alphaRho, myThid) | & alphaRho, myThid) |
152 | #ifdef ALLOW_SHELFICE | |
153 | C mask rho, so that there is no contribution of phiHyd from | |
154 | C overlying shelfice (whose density we do not know) | |
155 | IF ( useShelfIce ) THEN | |
156 | DO j=jMin,jMax | |
157 | DO i=iMin,iMax | |
158 | alphaRho(i,j) = alphaRho(i,j)*maskC(i,j,k,bi,bj) | |
159 | ENDDO | |
160 | ENDDO | |
161 | ENDIF | |
162 | #endif /* ALLOW_SHELFICE */ | |
163 | ||
164 | #ifdef ALLOW_DIAGNOSTICS | #ifdef ALLOW_DIAGNOSTICS |
165 | IF ( useDiagnostics ) | IF ( useDiagnostics ) |
|
ViewVC Help | |
Powered by ViewVC 1.1.22 |