| File |
Line number |
Procedure |
Code |
|
./pkg/seaice/seaice_diagnostics_state.F |
126 |
SEAICE_DIAGNOSTICS_STATE |
recip_prs = 0. _d 0 |
|
./pkg/seaice/seaice_diagnostics_state.F |
128 |
SEAICE_DIAGNOSTICS_STATE |
& recip_prs = 1./press(I,J,bi,bj) |
|
./pkg/seaice/seaice_diagnostics_state.F |
129 |
SEAICE_DIAGNOSTICS_STATE |
sigI (I,J) = 0.5*(sig1 + sigTmp)*recip_prs |
|
./pkg/seaice/seaice_diagnostics_state.F |
130 |
SEAICE_DIAGNOSTICS_STATE |
sigII(I,J) = 0.5*(sig1 - sigTmp)*recip_prs |
|
./pkg/seaice/seaice_diagnostics_state.F |
161 |
SEAICE_DIAGNOSTICS_STATE |
recip_prs = 0. _d 0 |
|
./pkg/seaice/seaice_diagnostics_state.F |
163 |
SEAICE_DIAGNOSTICS_STATE |
& recip_prs = 1./press(I,J,bi,bj) |
|
./pkg/seaice/seaice_diagnostics_state.F |
164 |
SEAICE_DIAGNOSTICS_STATE |
sigI (I,J) = 0.5*(sig1 + sigTmp)*recip_prs |
|
./pkg/seaice/seaice_diagnostics_state.F |
165 |
SEAICE_DIAGNOSTICS_STATE |
sigII(I,J) = 0.5*(sig1 - sigTmp)*recip_prs |
|
./pkg/seaice/seaice_diagnostics_state.F |
50 |
SEAICE_DIAGNOSTICS_STATE |
_RL sig1, sig2, sig12, sigTmp, recip_prs |