| File |
Line number |
Procedure |
Code |
|
./pkg/seaice/seaice_calc_lhs.F |
113 |
SEAICE_CALC_LHS |
eminus= e11(I,J,bi,bj) - e22(I,J,bi,bj) |
|
./pkg/seaice/seaice_calc_lhs.F |
114 |
SEAICE_CALC_LHS |
sig11(I,J) = zeta(I,J,bi,bj)*eplus + eta(I,J,bi,bj)*eminus |
|
./pkg/seaice/seaice_calc_lhs.F |
116 |
SEAICE_CALC_LHS |
sig22(I,J) = zeta(I,J,bi,bj)*eplus - eta(I,J,bi,bj)*eminus |
|
./pkg/seaice/seaice_calc_lhs.F |
75 |
SEAICE_CALC_LHS |
_RL COSWAT, recip_deltaT, eplus, eminus |
|
./pkg/seaice/seaice_lsr.F |
90 |
SEAICE_LSR |
_RL eplus, eminus |
|
./pkg/seaice/seaice_lsr.F |
919 |
SEAICE_LSR |
eminus= e11(I,J,bi,bj) - e22(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
920 |
SEAICE_LSR |
sig11(I,J) = zeta(I,J,bi,bj)*eplus + eta(I,J,bi,bj)*eminus |
|
./pkg/seaice/seaice_lsr.F |
922 |
SEAICE_LSR |
sig22(I,J) = zeta(I,J,bi,bj)*eplus - eta(I,J,bi,bj)*eminus |