File |
Line number |
Procedure |
Code |
./pkg/seaice/seaice_calc_viscosities.F |
146 |
SEAICE_CALC_VISCOSITIES |
deltaCreg = SQRT(deltaCsq + deltaMinSq) |
./pkg/seaice/seaice_calc_viscosities.F |
149 |
SEAICE_CALC_VISCOSITIES |
deltaCreg = MAX(deltaC(I,J,bi,bj),SEAICE_deltaMin) |
./pkg/seaice/seaice_calc_viscosities.F |
155 |
SEAICE_CALC_VISCOSITIES |
argTmp = exp(-1. _d 0/(deltaCreg*SEAICE_zetaMaxFac)) |
./pkg/seaice/seaice_calc_viscosities.F |
161 |
SEAICE_CALC_VISCOSITIES |
& )/deltaCreg |
./pkg/seaice/seaice_calc_viscosities.F |
73 |
SEAICE_CALC_VISCOSITIES |
_RL recip_e2, deltaCreg, deltaCsq, deltaMinSq, tmp, ep, em |
./pkg/seaice/seaice_evp.F |
136 |
SEAICE_EVP |
_RL deltaCreg, deltaSq, deltaMinSq, tmp |
./pkg/seaice/seaice_evp.F |
422 |
SEAICE_EVP |
deltaCreg = deltaC(I,J,bi,bj) + SEAICE_deltaMin |
./pkg/seaice/seaice_evp.F |
424 |
SEAICE_EVP |
deltaCreg = MAX(deltaC(I,J,bi,bj),SEAICE_deltaMin) |
./pkg/seaice/seaice_evp.F |
428 |
SEAICE_EVP |
& )/deltaCreg |