| File |
Line number |
Procedure |
Code |
|
./pkg/seaice/seaice_evp.F |
112 |
SEAICE_EVP |
_RL ecc2, recip_ecc2, recip_evpAlpha, recip_deltaT |
|
./pkg/seaice/seaice_evp.F |
193 |
SEAICE_EVP |
recip_ecc2 = 0. _d 0 |
|
./pkg/seaice/seaice_evp.F |
194 |
SEAICE_EVP |
IF ( ecc2 .NE. 0. _d 0 ) recip_ecc2=ONE/ecc2 |
|
./pkg/seaice/seaice_evp.F |
223 |
SEAICE_EVP |
recip_evpRevFac = recip_ecc2 |
|
./pkg/seaice/seaice_evp.F |
408 |
SEAICE_EVP |
deltaSq = ep(I,J)**2 + recip_ecc2 * em(I,J)**2 |
|
./pkg/seaice/seaice_evp.F |
409 |
SEAICE_EVP |
& + recip_ecc2 * 4. _d 0 * e12Csq(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 |
522 |
SEAICE_EVP |
eta(I,J,bi,bj) = MIN(zetaC(I,J),zetaMaxC)*recip_ecc2 |