| File |
Line number |
Procedure |
Code |
|
./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 |
138 |
SEAICE_CALC_VISCOSITIES |
IF ( deltaCsq .GT. 0. _d 0 ) |
|
./pkg/seaice/seaice_calc_viscosities.F |
139 |
SEAICE_CALC_VISCOSITIES |
& deltaC(I,J,bi,bj) = SQRT(deltaCsq) |
|
./pkg/seaice/seaice_calc_viscosities.F |
141 |
SEAICE_CALC_VISCOSITIES |
deltaC(I,J,bi,bj) = SQRT(deltaCsq) |
|
./pkg/seaice/seaice_calc_viscosities.F |
146 |
SEAICE_CALC_VISCOSITIES |
deltaCreg = SQRT(deltaCsq + deltaMinSq) |
|
./pkg/seaice/seaice_calc_viscosities.F |
73 |
SEAICE_CALC_VISCOSITIES |
_RL recip_e2, deltaCreg, deltaCsq, deltaMinSq, tmp, ep, em |