| File |
Line number |
Procedure |
Code |
|
./pkg/seaice/seaice_calc_viscosities.F |
104 |
SEAICE_CALC_VISCOSITIES |
press(I,J,bi,bj) = TWO *zeta(I,J,bi,bj)*deltaC |
|
./pkg/seaice/seaice_calc_viscosities.F |
64 |
SEAICE_CALC_VISCOSITIES |
_RL ECM2, deltaC, deltaCreg |
|
./pkg/seaice/seaice_calc_viscosities.F |
86 |
SEAICE_CALC_VISCOSITIES |
deltaC = (e11(i,j,bi,bj)**2+e22(i,j,bi,bj)**2)*(ONE+ecm2) |
|
./pkg/seaice/seaice_calc_viscosities.F |
91 |
SEAICE_CALC_VISCOSITIES |
IF ( deltaC .GT. 0. _d 0 ) deltaC = SQRT(deltaC) |
|
./pkg/seaice/seaice_calc_viscosities.F |
93 |
SEAICE_CALC_VISCOSITIES |
deltaC = SQRT(deltaC) |
|
./pkg/seaice/seaice_calc_viscosities.F |
95 |
SEAICE_CALC_VISCOSITIES |
deltaCreg = MAX(deltaC,SEAICE_EPS) |
|
./pkg/seaice/seaice_evp.F |
197 |
SEAICE_EVP |
deltaC (I,J) = 0. _d 0 |
|
./pkg/seaice/seaice_evp.F |
217 |
SEAICE_EVP |
deltaC(I,J) = |
|
./pkg/seaice/seaice_evp.F |
231 |
SEAICE_EVP |
IF ( deltaC(I,J) .GT. 0. _d 0 ) |
|
./pkg/seaice/seaice_evp.F |
232 |
SEAICE_EVP |
& deltaC(I,J) = SQRT(deltaC(I,J)) |
|
./pkg/seaice/seaice_evp.F |
236 |
SEAICE_EVP |
deltaC(I,J) = SQRT(deltaC(I,J)) |
|
./pkg/seaice/seaice_evp.F |
239 |
SEAICE_EVP |
deltaCreg = MAX(deltaC(I,J),SEAICE_EPS) |
|
./pkg/seaice/seaice_evp.F |
276 |
SEAICE_EVP |
pressC(I,J) = TWO*zetaC(I,J)*deltaC(I,J) |
|
./pkg/seaice/seaice_evp.F |
312 |
SEAICE_EVP |
zetaMaxC = ecc2*zetaC(I,J)*(deltaC(I,J)-ep(I,J))/etaDenC |
|
./pkg/seaice/seaice_evp.F |
88 |
SEAICE_EVP |
_RL deltaC (1-OLx:sNx+OLx,1-OLy:sNy+OLy) |