| File |
Line number |
Procedure |
Code |
|
./pkg/seaice/seaice_evp.F |
196 |
SEAICE_EVP |
zetaZ (I,J) = 0. _d 0 |
|
./pkg/seaice/seaice_evp.F |
246 |
SEAICE_EVP |
zetaZ(I,J) = HALF/deltaZreg * pressZ |
|
./pkg/seaice/seaice_evp.F |
269 |
SEAICE_EVP |
zetaZ(I,J) = MAX(zMinZ,MIN(zMaxZ,zetaZ(I,J))) |
|
./pkg/seaice/seaice_evp.F |
318 |
SEAICE_EVP |
zetaMaxZ = ecc2*zetaZ(I,J) * ( deltaZ(I,J) |
|
./pkg/seaice/seaice_evp.F |
331 |
SEAICE_EVP |
seaice_shear (I,J) = 2. _d 0*MIN(zetaZ(I,J),zetaMaxZ) |
|
./pkg/seaice/seaice_evp.F |
347 |
SEAICE_EVP |
& 2. _d 0*zetaZ(I,J)*2. _d 0*e12(I,J,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
87 |
SEAICE_EVP |
_RL zetaZ (1-OLx:sNx+OLx,1-OLy:sNy+OLy) |