| File |
Line number |
Procedure |
Code |
|
./pkg/seaice/seaice_calc_lhs.F |
78 |
SEAICE_CALC_LHS |
_RL COSWAT, recip_deltaT, eplus, eminus |
|
./pkg/seaice/seaice_calc_stressdiv.F |
158 |
SEAICE_CALC_STRESS |
_RL eplus, eminus |
|
./pkg/seaice/seaice_calc_stressdiv.F |
172 |
SEAICE_CALC_STRESS |
eminus= e11(i,j,bi,bj) - e22(i,j,bi,bj) |
|
./pkg/seaice/seaice_calc_stressdiv.F |
173 |
SEAICE_CALC_STRESS |
sig11(i,j) = zeta(i,j,bi,bj)*eplus + eta(i,j,bi,bj)*eminus |
|
./pkg/seaice/seaice_calc_stressdiv.F |
175 |
SEAICE_CALC_STRESS |
sig22(i,j) = zeta(i,j,bi,bj)*eplus - eta(i,j,bi,bj)*eminus |
|
./pkg/seaice/seaice_lsr.F |
93 |
SEAICE_LSR |
_RL eplus, eminus |