| File |
Line number |
Procedure |
Code |
|
./pkg/seaice/seaice_evp.F |
195 |
SEAICE_EVP |
deltaZ (I,J) = 0. _d 0 |
|
./pkg/seaice/seaice_evp.F |
222 |
SEAICE_EVP |
deltaZ(I,J) = facZ * |
|
./pkg/seaice/seaice_evp.F |
233 |
SEAICE_EVP |
IF ( deltaZ(I,J) .GT. 0. _d 0 ) |
|
./pkg/seaice/seaice_evp.F |
234 |
SEAICE_EVP |
& deltaZ(I,J) = SQRT(deltaZ(I,J)) |
|
./pkg/seaice/seaice_evp.F |
237 |
SEAICE_EVP |
deltaZ(I,J) = SQRT(deltaZ(I,J)) |
|
./pkg/seaice/seaice_evp.F |
240 |
SEAICE_EVP |
deltaZreg = MAX(deltaZ(I,J),SEAICE_EPS) |
|
./pkg/seaice/seaice_evp.F |
243 |
SEAICE_EVP |
pressZ = (deltaZ(I,J)/deltaZreg) * facZ |
|
./pkg/seaice/seaice_evp.F |
318 |
SEAICE_EVP |
zetaMaxZ = ecc2*zetaZ(I,J) * ( deltaZ(I,J) |
|
./pkg/seaice/seaice_evp.F |
86 |
SEAICE_EVP |
_RL deltaZ (1-OLx:sNx+OLx,1-OLy:sNy+OLy) |