| File |
Line number |
Procedure |
Code |
|
./pkg/seaice/seaice_evp.F |
103 |
SEAICE_EVP |
_RL zetaC (1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/seaice/seaice_evp.F |
220 |
SEAICE_EVP |
zetaC (I,J) = 0. _d 0 |
|
./pkg/seaice/seaice_evp.F |
268 |
SEAICE_EVP |
zetaC(I,J) = HALF*press0(I,J,bi,bj)/deltaCreg |
|
./pkg/seaice/seaice_evp.F |
283 |
SEAICE_EVP |
zetaC(I,J) = MAX(zMin(I,J,bi,bj),MIN(zMax(I,J,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
284 |
SEAICE_EVP |
& ,zetaC(I,J))) |
|
./pkg/seaice/seaice_evp.F |
302 |
SEAICE_EVP |
pressC(I,J) = TWO*zetaC(I,J)*deltaC(I,J,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
311 |
SEAICE_EVP |
zeta (I,J,bi,bj) = zetaC(I,J) |
|
./pkg/seaice/seaice_evp.F |
312 |
SEAICE_EVP |
eta (I,J,bi,bj) = zetaC(I,J)*recip_ecc2 |
|
./pkg/seaice/seaice_evp.F |
338 |
SEAICE_EVP |
zetaMaxC = ecc2*zetaC(I,J) |
|
./pkg/seaice/seaice_evp.F |
351 |
SEAICE_EVP |
eta(I,J,bi,bj) = MIN(zetaC(I,J),zetaMaxC)*recip_ecc2 |
|
./pkg/seaice/seaice_evp.F |
354 |
SEAICE_EVP |
& ( 2. _d 0 *zetaC(I,J)*ep(I,J) - pressC(I,J) |
|
./pkg/seaice/seaice_evp.F |
356 |
SEAICE_EVP |
seaice_tension(I,J) = 2. _d 0*MIN(zetaC(I,J),zetaMaxC) |
|
./pkg/seaice/seaice_evp.F |
369 |
SEAICE_EVP |
& ( 2. _d 0 *zetaC(I,J)*ep(I,J) - pressC(I,J) |
|
./pkg/seaice/seaice_evp.F |
371 |
SEAICE_EVP |
seaice_tension(I,J) = 2. _d 0*zetaC(I,J) |