| File |
Line number |
Procedure |
Code |
|
./pkg/seaice/seaice_evp.F |
105 |
SEAICE_EVP |
_RL zetaZ (1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/seaice/seaice_evp.F |
222 |
SEAICE_EVP |
zetaZ (I,J) = 0. _d 0 |
|
./pkg/seaice/seaice_evp.F |
272 |
SEAICE_EVP |
zetaZ(I,J) = HALF/deltaZreg * pressZ |
|
./pkg/seaice/seaice_evp.F |
295 |
SEAICE_EVP |
zetaZ(I,J) = MAX(zMinZ,MIN(zMaxZ,zetaZ(I,J))) |
|
./pkg/seaice/seaice_evp.F |
345 |
SEAICE_EVP |
zetaMaxZ = ecc2*zetaZ(I,J) * ( deltaZ(I,J) |
|
./pkg/seaice/seaice_evp.F |
358 |
SEAICE_EVP |
seaice_shear (I,J) = 2. _d 0*MIN(zetaZ(I,J),zetaMaxZ) |
|
./pkg/seaice/seaice_evp.F |
374 |
SEAICE_EVP |
& 2. _d 0*zetaZ(I,J)*2. _d 0*e12(I,J,bi,bj) |