| File |
Line number |
Procedure |
Code |
|
./pkg/seaice/seaice_calc_viscosities.F |
199 |
SEAICE_CALC_VISCOSITIES |
sumNorm = maskC(I,J, k,bi,bj)+maskC(I-1,J, k,bi,bj) |
|
./pkg/seaice/seaice_calc_viscosities.F |
201 |
SEAICE_CALC_VISCOSITIES |
IF ( sumNorm.GT.0. _d 0 ) sumNorm = 1. _d 0 / sumNorm |
|
./pkg/seaice/seaice_calc_viscosities.F |
202 |
SEAICE_CALC_VISCOSITIES |
etaZ(I,J,bi,bj) = sumNorm * |
|
./pkg/seaice/seaice_calc_viscosities.F |
205 |
SEAICE_CALC_VISCOSITIES |
zetaZ(I,J,bi,bj) = sumNorm * |
|
./pkg/seaice/seaice_calc_viscosities.F |
79 |
SEAICE_CALC_VISCOSITIES |
_RL sumNorm, maskZ |
|
./pkg/seaice/seaice_evp.F |
145 |
SEAICE_EVP |
_RL sumNorm, denomU, denomV |
|
./pkg/seaice/seaice_evp.F |
448 |
SEAICE_EVP |
sumNorm = maskC(I,J, kSrf,bi,bj)+maskC(I-1,J, kSrf,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
450 |
SEAICE_EVP |
IF ( sumNorm.GT.0. _d 0 ) sumNorm = 1. _d 0 / sumNorm |
|
./pkg/seaice/seaice_evp.F |
451 |
SEAICE_EVP |
zetaZ(I,J,bi,bj) = sumNorm * |
|
./pkg/seaice/seaice_evp.F |
454 |
SEAICE_EVP |
deltaZ(I,J) = sumNorm * |
|
./pkg/seaice/seaice_evp.F |
533 |
SEAICE_EVP |
sumNorm = 0.25 _d 0 |
|
./pkg/seaice/seaice_evp.F |
542 |
SEAICE_EVP |
& sumNorm * recip_rAz(I,J,bi,bj) * |
|
./pkg/seaice/seaice_evp.F |
550 |
SEAICE_EVP |
& - sumNorm * ( ep(I,J ) + ep(I-1,J ) |