| File |
Line number |
Procedure |
Code |
|
./pkg/seaice/seaice_diagnostics_state.F |
120 |
SEAICE_DIAGNOSTICS_STATE |
sig12 = 0.25 _d 0 * |
|
./pkg/seaice/seaice_diagnostics_state.F |
125 |
SEAICE_DIAGNOSTICS_STATE |
sigTmp = SQRT( sig2*sig2 + 4. _d 0*sig12*sig12 ) |
|
./pkg/seaice/seaice_diagnostics_state.F |
157 |
SEAICE_DIAGNOSTICS_STATE |
sig12 = 2.*eta(I,J,bi,bj) * 0.25 _d 0 * |
|
./pkg/seaice/seaice_diagnostics_state.F |
160 |
SEAICE_DIAGNOSTICS_STATE |
sigTmp = SQRT( sig2*sig2 + 4. _d 0*sig12*sig12 ) |
|
./pkg/seaice/seaice_diagnostics_state.F |
50 |
SEAICE_DIAGNOSTICS_STATE |
_RL sig1, sig2, sig12, sigTmp, recip_prs |
|
./pkg/seaice/seaice_lsr.F |
100 |
SEAICE_LSR |
_RL sig12(1-Olx:sNx+Olx,1-Oly:sNy+Oly) |
|
./pkg/seaice/seaice_lsr.F |
1763 |
SEAICE_LSR |
sig12(I,J) = 0. _d 0 |
|
./pkg/seaice/seaice_lsr.F |
1780 |
SEAICE_LSR |
sig12(I,J) = 2. _d 0 * e12(I,J,bi,bj) * etaMeanZ(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
1789 |
SEAICE_LSR |
& + sig12(I ,J+1) * _dxV(I ,J+1,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
1790 |
SEAICE_LSR |
& - sig12(I ,J ) * _dxV(I ,J ,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
1795 |
SEAICE_LSR |
& + sig12(I+1,J ) * _dyU(I+1,J ,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
1796 |
SEAICE_LSR |
& - sig12(I ,J ) * _dyU(I ,J ,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
451 |
SEAICE_LSR |
sig12(I,J) = etaMeanZ(I,J,bi,bj) * ( |
|
./pkg/seaice/seaice_lsr.F |
482 |
SEAICE_LSR |
& + _dxV(I ,J+1,bi,bj)*sig12(I ,J+1) |
|
./pkg/seaice/seaice_lsr.F |
483 |
SEAICE_LSR |
& - _dxV(I ,J ,bi,bj)*sig12(I ,J ) ) |
|
./pkg/seaice/seaice_lsr.F |
709 |
SEAICE_LSR |
sig12(I,J) = etaMeanZ(I,J,bi,bj) * ( |
|
./pkg/seaice/seaice_lsr.F |
738 |
SEAICE_LSR |
& ( _dyU(I+1,J ,bi,bj) * sig12(I+1,J ) |
|
./pkg/seaice/seaice_lsr.F |
739 |
SEAICE_LSR |
& - _dyU(I ,J ,bi,bj) * sig12(I ,J ) |
|
./pkg/seaice/seaice_lsr.F |
902 |
SEAICE_LSR |
_RL sig12 (1-Olx:sNx+Olx,1-Oly:sNy+Oly) |