| File |
Line number |
Procedure |
Code |
|
./pkg/seaice/seaice_calc_viscosities.F |
128 |
SEAICE_CALC_VISCOSITIES |
deltaCreg = MAX(deltaC(I,J,bi,bj),SEAICE_EPS) |
|
./pkg/seaice/seaice_calc_viscosities.F |
133 |
SEAICE_CALC_VISCOSITIES |
argTmp = exp(-1. _d 0/(deltaCreg*SEAICE_zetaMaxFac)) |
|
./pkg/seaice/seaice_calc_viscosities.F |
137 |
SEAICE_CALC_VISCOSITIES |
zeta (I,J,bi,bj) = HALF*press0(I,J,bi,bj)/deltaCreg |
|
./pkg/seaice/seaice_calc_viscosities.F |
69 |
SEAICE_CALC_VISCOSITIES |
_RL ECM2, deltaCreg, tmp |
|
./pkg/seaice/seaice_evp.F |
106 |
SEAICE_EVP |
_RL deltaCreg, deltaZreg, pressZ |
|
./pkg/seaice/seaice_evp.F |
265 |
SEAICE_EVP |
deltaCreg = MAX(deltaC(I,J,bi,bj),SEAICE_EPS) |
|
./pkg/seaice/seaice_evp.F |
268 |
SEAICE_EVP |
zetaC(I,J) = HALF*press0(I,J,bi,bj)/deltaCreg |