File |
Line number |
Procedure |
Code |
./pkg/seaice/lsr.F |
110 |
LSR |
_RL sig22(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
./pkg/seaice/lsr.F |
438 |
LSR |
sig22(I,J) = |
./pkg/seaice/lsr.F |
465 |
LSR |
& + _dxC(I, J, bi,bj) * sig22(I, J ) |
./pkg/seaice/lsr.F |
466 |
LSR |
& - _dxC(I, J-1,bi,bj) * sig22(I, J-1) ) |
./pkg/seaice/seaice_calc_stressdiv.F |
107 |
SEAICE_CALC_STRESS |
O sig11, sig22, sig12, |
./pkg/seaice/seaice_calc_stressdiv.F |
149 |
SEAICE_CALC_STRESS |
_RL sig22(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
./pkg/seaice/seaice_calc_stressdiv.F |
164 |
SEAICE_CALC_STRESS |
sig22(i,j) = 0. _d 0 |
./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_calc_stressdiv.F |
61 |
SEAICE_CALC_STRESSDIV |
_RL sig22(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
./pkg/seaice/seaice_calc_stressdiv.F |
76 |
SEAICE_CALC_STRESSDIV |
O sig11, sig22, sig12, |
./pkg/seaice/seaice_calc_stressdiv.F |
91 |
SEAICE_CALC_STRESSDIV |
& ( sig22(i ,j ) * _dxF(i,j ,bi,bj) |
./pkg/seaice/seaice_calc_stressdiv.F |
92 |
SEAICE_CALC_STRESSDIV |
& - sig22(i ,j-1) * _dxF(i,j-1,bi,bj) |
./pkg/seaice/seaice_diagnostics_state.F |
207 |
SEAICE_DIAGNOSTICS_STATE |
O sig11, sig22, sig12, |
./pkg/seaice/seaice_diagnostics_state.F |
211 |
SEAICE_DIAGNOSTICS_STATE |
sigp = sig11(I,J) + sig22(I,J) |
./pkg/seaice/seaice_diagnostics_state.F |
212 |
SEAICE_DIAGNOSTICS_STATE |
sigm = sig11(I,J) - sig22(I,J) |
./pkg/seaice/seaice_diagnostics_state.F |
49 |
SEAICE_DIAGNOSTICS_STATE |
_RL sig22(1-oLx:sNx+oLx,1-oLy:sNy+oLy) |
./pkg/seaice/seaice_evp.F |
119 |
SEAICE_EVP |
_RL sig22 (1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
./pkg/seaice/seaice_evp.F |
622 |
SEAICE_EVP |
sig22(I,J) = 0.5 _d 0 * |
./pkg/seaice/seaice_evp.F |
669 |
SEAICE_EVP |
& ( sig22(I,J ) * _dxF(I,J ,bi,bj) |
./pkg/seaice/seaice_evp.F |
670 |
SEAICE_EVP |
& - sig22(I,J-1) * _dxF(I,J-1,bi,bj) |
./pkg/seaice/seaice_lsr.F |
1635 |
SEAICE_LSR_RHSV |
_RL sig22(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
./pkg/seaice/seaice_lsr.F |
1642 |
SEAICE_LSR_RHSV |
sig22(I,J) = 0. _d 0 |
./pkg/seaice/seaice_lsr.F |
1650 |
SEAICE_LSR_RHSV |
sig22(I,J) = zetaMinusEta(I,J,bi,bj) |
./pkg/seaice/seaice_lsr.F |
1711 |
SEAICE_LSR_RHSV |
& + _dxF(I ,J ,bi,bj) * sig22(I ,J ) |
./pkg/seaice/seaice_lsr.F |
1712 |
SEAICE_LSR_RHSV |
& - _dxF(I ,J-1,bi,bj) * sig22(I ,J-1) ) |