| File |
Line number |
Procedure |
Code |
|
./pkg/seaice/seaice_evp.F |
128 |
SEAICE_EVP |
_RL zetaC (1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/seaice/seaice_evp.F |
369 |
SEAICE_EVP |
zetaC (I,J) = 0. _d 0 |
|
./pkg/seaice/seaice_evp.F |
426 |
SEAICE_EVP |
zetaC(I,J) = HALF*( press0(I,J,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
436 |
SEAICE_EVP |
evpAlphaC(I,J,bi,bj) = SQRT(zetaC(I,J) |
|
./pkg/seaice/seaice_evp.F |
452 |
SEAICE_EVP |
& ( zetaC(I, J) + zetaC(I-1,J-1) |
|
./pkg/seaice/seaice_evp.F |
453 |
SEAICE_EVP |
& + zetaC(I-1,J) + zetaC(I, J-1) ) |
|
./pkg/seaice/seaice_evp.F |
469 |
SEAICE_EVP |
zetaC(I,J) = MAX(zMin(I,J,bi,bj),MIN(zMax(I,J,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
470 |
SEAICE_EVP |
& ,zetaC(I,J))) |
|
./pkg/seaice/seaice_evp.F |
490 |
SEAICE_EVP |
& + TWO*zetaC(I,J)*deltaC(I,J,bi,bj)*SEAICEpressReplFac |
|
./pkg/seaice/seaice_evp.F |
501 |
SEAICE_EVP |
zeta (I,J,bi,bj) = zetaC(I,J) |
|
./pkg/seaice/seaice_evp.F |
502 |
SEAICE_EVP |
eta (I,J,bi,bj) = zetaC(I,J)*recip_ecc2 |
|
./pkg/seaice/seaice_evp.F |
518 |
SEAICE_EVP |
zetaMaxC = ecc2*zetaC(I,J) |
|
./pkg/seaice/seaice_evp.F |
522 |
SEAICE_EVP |
eta(I,J,bi,bj) = MIN(zetaC(I,J),zetaMaxC)*recip_ecc2 |
|
./pkg/seaice/seaice_evp.F |
525 |
SEAICE_EVP |
& ( 2. _d 0 *zetaC(I,J)*ep(I,J) - pressC(I,J) |
|
./pkg/seaice/seaice_evp.F |
527 |
SEAICE_EVP |
seaice_tension(I,J) = 2. _d 0*MIN(zetaC(I,J),zetaMaxC) |
|
./pkg/seaice/seaice_evp.F |
565 |
SEAICE_EVP |
& ( 2. _d 0 *zetaC(I,J)*ep(I,J) - pressC(I,J) |
|
./pkg/seaice/seaice_evp.F |
567 |
SEAICE_EVP |
seaice_tension(I,J) = 2. _d 0*zetaC(I,J) |