| 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 |
192 |
SEAICE_EVP |
ecc2=SEAICE_eccen**2 |
|
./pkg/seaice/seaice_evp.F |
194 |
SEAICE_EVP |
IF ( ecc2 .NE. 0. _d 0 ) recip_ecc2=ONE/ecc2 |
|
./pkg/seaice/seaice_evp.F |
205 |
SEAICE_EVP |
denom2(I,J,bi,bj) = 1. _d 0 / ( SEAICE_evpAlpha + ecc2 ) |
|
./pkg/seaice/seaice_evp.F |
518 |
SEAICE_EVP |
zetaMaxC = ecc2*zetaC(I,J) |
|
./pkg/seaice/seaice_evp.F |
549 |
SEAICE_EVP |
zetaMaxZ = ecc2*zetaZ(I,J,bi,bj) * ( deltaZ(I,J) |