| File |
Line number |
Procedure |
Code |
|
./pkg/seaice/seaice_evp.F |
124 |
SEAICE_EVP |
recip_ecc2 = 0. _d 0 |
|
./pkg/seaice/seaice_evp.F |
125 |
SEAICE_EVP |
IF ( ecc2 .NE. 0. _d 0 ) recip_ecc2=ONE/ecc2 |
|
./pkg/seaice/seaice_evp.F |
244 |
SEAICE_EVP |
& ep(I,J)**2 + recip_ecc2*em(I,J)**2 |
|
./pkg/seaice/seaice_evp.F |
245 |
SEAICE_EVP |
& + recip_ecc2* |
|
./pkg/seaice/seaice_evp.F |
252 |
SEAICE_EVP |
& +em(I,J-1)**2 + em(I-1,J-1)**2)*recip_ecc2 |
|
./pkg/seaice/seaice_evp.F |
254 |
SEAICE_EVP |
& + 4. _d 0*recip_ecc2*e12(I,J,bi,bj)**2 |
|
./pkg/seaice/seaice_evp.F |
312 |
SEAICE_EVP |
eta (I,J,bi,bj) = zetaC(I,J)*recip_ecc2 |
|
./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 |
91 |
SEAICE_EVP |
_RL ecc2, recip_ecc2, recip_evpAlpha, recip_deltaT |