| File |
Line number |
Procedure |
Code |
|
./pkg/seaice/seaice_calc_residual.F |
102 |
SEAICE_CALC_RESIDUAL |
I e11, e22, e12, zMin, zMax, hEffM, press0, tensileStrFac, |
|
./pkg/seaice/seaice_calc_viscosities.F |
12 |
SEAICE_CALC_VISCOSITIES |
I e11, e22, e12, zMin, zMax, hEffM, press0, tnsFac, |
|
./pkg/seaice/seaice_calc_viscosities.F |
159 |
SEAICE_CALC_VISCOSITIES |
zeta (I,J,bi,bj) = HALF*( press0(I,J,bi,bj) |
|
./pkg/seaice/seaice_calc_viscosities.F |
171 |
SEAICE_CALC_VISCOSITIES |
& ( press0(I,J,bi,bj)*( 1. _d 0 - SEAICEpressReplFac ) |
|
./pkg/seaice/seaice_calc_viscosities.F |
51 |
SEAICE_CALC_VISCOSITIES |
_RL press0(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./pkg/seaice/seaice_diagnostics_state.F |
144 |
SEAICE_DIAGNOSTICS_STATE |
tIce(I,J,bi,bj) = press0(I,J,bi,bj) |
|
./pkg/seaice/seaice_diagnostics_state.F |
178 |
SEAICE_DIAGNOSTICS_STATE |
IF ( press0(I,J,bi,bj) .GT. 1. _d -13 ) |
|
./pkg/seaice/seaice_diagnostics_state.F |
179 |
SEAICE_DIAGNOSTICS_STATE |
& recip_prs = 1./press0(I,J,bi,bj) |
|
./pkg/seaice/seaice_diagnostics_state.F |
226 |
SEAICE_DIAGNOSTICS_STATE |
IF ( press0(I,J,bi,bj) .GT. 1. _d -13 ) |
|
./pkg/seaice/seaice_diagnostics_state.F |
227 |
SEAICE_DIAGNOSTICS_STATE |
& recip_prs = 1./press0(I,J,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
426 |
SEAICE_EVP |
zetaC(I,J) = HALF*( press0(I,J,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
489 |
SEAICE_EVP |
& ( press0(I,J,bi,bj) * ( 1. _d 0 - SEAICEpressReplFac ) |
|
./pkg/seaice/seaice_krylov.F |
224 |
SEAICE_KRYLOV |
I e11, e22, e12, zMin, zMax, hEffM, press0, tensileStrFac, |
|
./pkg/seaice/seaice_lsr.F |
329 |
SEAICE_LSR |
I e11, e22, e12, zMin, zMax, hEffM, press0, tensileStrFac, |