File |
Line number |
Procedure |
Code |
./pkg/kl10/kl10_calc.F |
242 |
KL10_CALC |
KLeps(I-1,J-1,Km1,bi,bj) = 0.5*(ep+ec) |
./pkg/kl10/kl10_calc.F |
246 |
KL10_CALC |
ep=ec |
./pkg/kl10/kl10_calc.F |
259 |
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_calc_viscosities.F |
126 |
SEAICE_CALC_VISCOSITIES |
ep = e11(i,j,bi,bj)+e22(i,j,bi,bj) |
./pkg/seaice/seaice_calc_viscosities.F |
128 |
SEAICE_CALC_VISCOSITIES |
deltaCsq = ep*ep+recip_e2*(em*em+4. _d 0*e12Csq(i,j)) |
./pkg/seaice/seaice_calc_viscosities.F |
185 |
SEAICE_CALC_VISCOSITIES |
ep = e11(i,j,bi,bj)+e22(i,j,bi,bj) |
./pkg/seaice/seaice_calc_viscosities.F |
189 |
SEAICE_CALC_VISCOSITIES |
etaMax = ( 0.5 _d 0*press(I,J,bi,bj)-zeta(I,J,bi,bj)*ep |
./pkg/seaice/seaice_calc_viscosities.F |
73 |
SEAICE_CALC_VISCOSITIES |
_RL recip_e2, deltaCreg, deltaCsq, deltaMinSq, tmp, ep, em |
./pkg/seaice/seaice_evp.F |
124 |
SEAICE_EVP |
_RL ep (1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
./pkg/seaice/seaice_evp.F |
377 |
SEAICE_EVP |
ep(i,j) = e11(i,j,bi,bj) + e22(i,j,bi,bj) |
./pkg/seaice/seaice_evp.F |
408 |
SEAICE_EVP |
deltaSq = ep(I,J)**2 + recip_ecc2 * em(I,J)**2 |
./pkg/seaice/seaice_evp.F |
519 |
SEAICE_EVP |
& *(deltaC(I,J,bi,bj)-ep(I,J))/etaDenC |
./pkg/seaice/seaice_evp.F |
525 |
SEAICE_EVP |
& ( 2. _d 0 *zetaC(I,J)*ep(I,J) - pressC(I,J) |
./pkg/seaice/seaice_evp.F |
550 |
SEAICE_EVP |
& - sumNorm * ( ep(I,J ) + ep(I-1,J ) |
./pkg/seaice/seaice_evp.F |
551 |
SEAICE_EVP |
& + ep(I,J-1) + ep(I-1,J-1) ) |
./pkg/seaice/seaice_evp.F |
565 |
SEAICE_EVP |
& ( 2. _d 0 *zetaC(I,J)*ep(I,J) - pressC(I,J) |