| File |
Line number |
Procedure |
Code |
|
./pkg/seaice/lsr.F |
109 |
LSR |
_RL sig11(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/seaice/lsr.F |
421 |
LSR |
sig11(I,J) = |
|
./pkg/seaice/lsr.F |
456 |
LSR |
& + ( _dyC(I, J, bi,bj) * sig11(I, J ) |
|
./pkg/seaice/lsr.F |
457 |
LSR |
& - _dyC(I-1,J, bi,bj) * sig11(I-1,J ) |
|
./pkg/seaice/seaice_calc_stressdiv.F |
107 |
SEAICE_CALC_STRESS |
O sig11, sig22, sig12, |
|
./pkg/seaice/seaice_calc_stressdiv.F |
148 |
SEAICE_CALC_STRESS |
_RL sig11(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/seaice/seaice_calc_stressdiv.F |
163 |
SEAICE_CALC_STRESS |
sig11(i,j) = 0. _d 0 |
|
./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 |
60 |
SEAICE_CALC_STRESSDIV |
_RL sig11(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 |
85 |
SEAICE_CALC_STRESSDIV |
& ( sig11(i ,j ) * _dyF(i ,j,bi,bj) |
|
./pkg/seaice/seaice_calc_stressdiv.F |
86 |
SEAICE_CALC_STRESSDIV |
& - sig11(i-1,J ) * _dyF(i-1,J,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 |
48 |
SEAICE_DIAGNOSTICS_STATE |
_RL sig11(1-oLx:sNx+oLx,1-oLy:sNy+oLy) |
|
./pkg/seaice/seaice_evp.F |
118 |
SEAICE_EVP |
_RL sig11 (1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/seaice/seaice_evp.F |
620 |
SEAICE_EVP |
sig11(I,J) = 0.5 _d 0 * |
|
./pkg/seaice/seaice_evp.F |
663 |
SEAICE_EVP |
& ( sig11(I ,J ) * _dyF(I ,J,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
664 |
SEAICE_EVP |
& - sig11(I-1,J ) * _dyF(I-1,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
1504 |
SEAICE_LSR_RHSU |
_RL sig11(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/seaice/seaice_lsr.F |
1511 |
SEAICE_LSR_RHSU |
sig11(I,J) = 0. _d 0 |
|
./pkg/seaice/seaice_lsr.F |
1518 |
SEAICE_LSR_RHSU |
sig11(I,J) = zetaMinusEta(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
1577 |
SEAICE_LSR_RHSU |
& ( _dyF(I ,J ,bi,bj)*sig11(I ,J ) |
|
./pkg/seaice/seaice_lsr.F |
1578 |
SEAICE_LSR_RHSU |
& - _dyF(I-1,J ,bi,bj)*sig11(I-1,J ) |