| 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 |
450 |
SEAICE_LSR |
sig12(I,J) = etaMeanZ(I,J,bi,bj) * ( |
|
./pkg/seaice/seaice_lsr.F |
481 |
SEAICE_LSR |
& + _dxV(I ,J+1,bi,bj)*sig12(I ,J+1) |
|
./pkg/seaice/seaice_lsr.F |
482 |
SEAICE_LSR |
& - _dxV(I ,J ,bi,bj)*sig12(I ,J ) ) |
|
./pkg/seaice/seaice_lsr.F |
708 |
SEAICE_LSR |
sig12(I,J) = etaMeanZ(I,J,bi,bj) * ( |
|
./pkg/seaice/seaice_lsr.F |
737 |
SEAICE_LSR |
& ( _dyU(I+1,J ,bi,bj) * sig12(I+1,J ) |
|
./pkg/seaice/seaice_lsr.F |
738 |
SEAICE_LSR |
& - _dyU(I ,J ,bi,bj) * sig12(I ,J ) |
|
./pkg/seaice/seaice_lsr.F |
894 |
SEAICE_LSR |
sig12(I,J) = 0. _d 0 |
|
./pkg/seaice/seaice_lsr.F |
911 |
SEAICE_LSR |
sig12(I,J) = 2. _d 0 * e12(I,J,bi,bj) * etaMeanZ(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
920 |
SEAICE_LSR |
& + sig12(I ,J+1) * _dxV(I ,J+1,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
921 |
SEAICE_LSR |
& - sig12(I ,J ) * _dxV(I ,J ,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
926 |
SEAICE_LSR |
& + sig12(I+1,J ) * _dyU(I+1,J ,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
927 |
SEAICE_LSR |
& - sig12(I ,J ) * _dyU(I ,J ,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
99 |
SEAICE_LSR |
_RL sig12(1-Olx:sNx+Olx,1-Oly:sNy+Oly) |