| File |
Line number |
Procedure |
Code |
|
./pkg/seaice/seaice_evp.F |
106 |
SEAICE_EVP |
recip_ecc2 = 0. _d 0 |
|
./pkg/seaice/seaice_evp.F |
107 |
SEAICE_EVP |
IF ( ecc2 .NE. 0. _d 0 ) recip_ecc2=ONE/ecc2 |
|
./pkg/seaice/seaice_evp.F |
218 |
SEAICE_EVP |
& ep(I,J)**2 + recip_ecc2*em(I,J)**2 |
|
./pkg/seaice/seaice_evp.F |
219 |
SEAICE_EVP |
& + recip_ecc2* |
|
./pkg/seaice/seaice_evp.F |
226 |
SEAICE_EVP |
& +em(I,J-1)**2 + em(I-1,J-1)**2)*recip_ecc2 |
|
./pkg/seaice/seaice_evp.F |
228 |
SEAICE_EVP |
& + 4. _d 0*recip_ecc2*e12(I,J,bi,bj)**2 |
|
./pkg/seaice/seaice_evp.F |
286 |
SEAICE_EVP |
eta (I,J,bi,bj) = zetaC(I,J)*recip_ecc2 |
|
./pkg/seaice/seaice_evp.F |
324 |
SEAICE_EVP |
eta(I,J,bi,bj) = MIN(zetaC(I,J),zetaMaxC)*recip_ecc2 |
|
./pkg/seaice/seaice_evp.F |
74 |
SEAICE_EVP |
_RL TEMPVAR, ecc2, recip_ecc2, recip_evp_tau |