| File |
Line number |
Procedure |
Code |
|
./pkg/seaice/seaice_evp.F |
104 |
SEAICE_EVP |
_RL deltaZ (1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/seaice/seaice_evp.F |
221 |
SEAICE_EVP |
deltaZ (I,J) = 0. _d 0 |
|
./pkg/seaice/seaice_evp.F |
248 |
SEAICE_EVP |
deltaZ(I,J) = facZ * |
|
./pkg/seaice/seaice_evp.F |
259 |
SEAICE_EVP |
IF ( deltaZ(I,J) .GT. 0. _d 0 ) |
|
./pkg/seaice/seaice_evp.F |
260 |
SEAICE_EVP |
& deltaZ(I,J) = SQRT(deltaZ(I,J)) |
|
./pkg/seaice/seaice_evp.F |
263 |
SEAICE_EVP |
deltaZ(I,J) = SQRT(deltaZ(I,J)) |
|
./pkg/seaice/seaice_evp.F |
266 |
SEAICE_EVP |
deltaZreg = MAX(deltaZ(I,J),SEAICE_EPS) |
|
./pkg/seaice/seaice_evp.F |
269 |
SEAICE_EVP |
pressZ = (deltaZ(I,J)/deltaZreg) * facZ |
|
./pkg/seaice/seaice_evp.F |
345 |
SEAICE_EVP |
zetaMaxZ = ecc2*zetaZ(I,J) * ( deltaZ(I,J) |