| File |
Line number |
Procedure |
Code |
|
./pkg/kl10/kl10_calc.F |
233 |
KL10_CALC |
KLeps(I-1,J-1,Km1,bi,bj) = 0.5*(ep+ec) |
|
./pkg/kl10/kl10_calc.F |
237 |
KL10_CALC |
ep=ec |
|
./pkg/kl10/kl10_calc.F |
250 |
KL10_CALC |
KLeps(I-1,J-1,Nr,bi,bj) =ep |
|
./pkg/kl10/kl10_calc.F |
66 |
KL10_CALC |
_RL dzp,ec,ep,es,epss(-1:0),epsw(-1:0),dz,KTemp |
|
./pkg/kl10/kl10_calc.F |
89 |
KL10_CALC |
ep = 0.0 |
|
./pkg/seaice/seaice_evp.F |
100 |
SEAICE_EVP |
_RL ep (1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/seaice/seaice_evp.F |
228 |
SEAICE_EVP |
ep(i,j) = e11(i,j,bi,bj) + e22(i,j,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
244 |
SEAICE_EVP |
& ep(I,J)**2 + recip_ecc2*em(I,J)**2 |
|
./pkg/seaice/seaice_evp.F |
249 |
SEAICE_EVP |
& ( ep(I,J )**2 + ep(I-1,J )**2 |
|
./pkg/seaice/seaice_evp.F |
250 |
SEAICE_EVP |
& + ep(I,J-1)**2 + ep(I-1,J-1)**2 |
|
./pkg/seaice/seaice_evp.F |
339 |
SEAICE_EVP |
& *(deltaC(I,J,bi,bj)-ep(I,J))/etaDenC |
|
./pkg/seaice/seaice_evp.F |
346 |
SEAICE_EVP |
& - facZ * ( ep(I,J ) + ep(I-1,J ) |
|
./pkg/seaice/seaice_evp.F |
347 |
SEAICE_EVP |
& + ep(I,J-1) + ep(I-1,J-1) ) |
|
./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 |
369 |
SEAICE_EVP |
& ( 2. _d 0 *zetaC(I,J)*ep(I,J) - pressC(I,J) |