File |
Line number |
Procedure |
Code |
./pkg/seaice/dynsolver.F |
299 |
DYNSOLVER |
CALL DIAGNOSTICS_FILL(press ,'SIpress ',0,1 ,0,1,1,myThid) |
./pkg/seaice/seaice_calc_lhs.F |
132 |
SEAICE_CALC_LHS |
I e11, e22, e12, press, zeta, eta, etaZ, |
./pkg/seaice/seaice_calc_residual.F |
103 |
SEAICE_CALC_RESIDUAL |
O eta, etaZ, zeta, zetaZ, press, deltaC, |
./pkg/seaice/seaice_calc_stressdiv.F |
106 |
SEAICE_CALC_STRESS |
I e11, e22, e12, press, zeta, eta, etaZ, |
./pkg/seaice/seaice_calc_stressdiv.F |
144 |
SEAICE_CALC_STRESS |
_RL press(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
./pkg/seaice/seaice_calc_stressdiv.F |
174 |
SEAICE_CALC_STRESS |
& - 0.5 _d 0 * press(i,j,bi,bj) |
./pkg/seaice/seaice_calc_stressdiv.F |
176 |
SEAICE_CALC_STRESS |
& - 0.5 _d 0 * press(i,j,bi,bj) |
./pkg/seaice/seaice_calc_stressdiv.F |
18 |
SEAICE_CALC_STRESSDIV |
I e11, e22, e12, press, zeta, eta, etaZ, |
./pkg/seaice/seaice_calc_stressdiv.F |
56 |
SEAICE_CALC_STRESSDIV |
_RL press(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
./pkg/seaice/seaice_calc_stressdiv.F |
75 |
SEAICE_CALC_STRESSDIV |
I e11, e22, e12, press, zeta, eta, etaZ, |
./pkg/seaice/seaice_calc_viscosities.F |
13 |
SEAICE_CALC_VISCOSITIES |
O eta, etaZ, zeta, zetaZ, press, deltaC, |
./pkg/seaice/seaice_calc_viscosities.F |
170 |
SEAICE_CALC_VISCOSITIES |
press(I,J,bi,bj) = |
./pkg/seaice/seaice_calc_viscosities.F |
189 |
SEAICE_CALC_VISCOSITIES |
etaMax = ( 0.5 _d 0*press(I,J,bi,bj)-zeta(I,J,bi,bj)*ep |
./pkg/seaice/seaice_calc_viscosities.F |
52 |
SEAICE_CALC_VISCOSITIES |
_RL press (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
./pkg/seaice/seaice_diagnostics_state.F |
130 |
SEAICE_DIAGNOSTICS_STATE |
CALL DIAGNOSTICS_FILL(press ,'SIpress ',0,1 ,0,1,1,myThid) |
./pkg/seaice/seaice_diagnostics_state.F |
149 |
SEAICE_DIAGNOSTICS_STATE |
& *press(I,J,bi,bj)/(1. _d 0 - tensileStrFac(I,J,bi,bj)) |
./pkg/seaice/seaice_diagnostics_state.F |
206 |
SEAICE_DIAGNOSTICS_STATE |
I e11, e22, e12, press, zeta, eta, etaZ, |
./pkg/seaice/seaice_diagnostics_state.F |
263 |
SEAICE_DIAGNOSTICS_STATE |
press(i,j,bi,bj) = |
./pkg/seaice/seaice_diagnostics_state.F |
275 |
SEAICE_DIAGNOSTICS_STATE |
CALL DIAGNOSTICS_FILL(press,'SIuheff ',0,1,0,1,1,myThid) |
./pkg/seaice/seaice_diagnostics_state.F |
282 |
SEAICE_DIAGNOSTICS_STATE |
press(i,j,bi,bj) = |
./pkg/seaice/seaice_diagnostics_state.F |
294 |
SEAICE_DIAGNOSTICS_STATE |
CALL DIAGNOSTICS_FILL(press,'SIvheff ',0,1,0,1,1,myThid) |
./pkg/seaice/seaice_evp.F |
500 |
SEAICE_EVP |
press(I,J,bi,bj) = pressC(I,J) |
./pkg/seaice/seaice_krylov.F |
225 |
SEAICE_KRYLOV |
O eta, etaZ, zeta, zetaZ, press, deltaC, |
./pkg/seaice/seaice_lsr.F |
184 |
SEAICE_LSR |
press (i,j,bi,bj) = 0. _d 0 |
./pkg/seaice/seaice_lsr.F |
330 |
SEAICE_LSR |
O eta, etaZ, zeta, zetaZ, press, deltaC, |
./pkg/seaice/seaice_lsr.F |
442 |
SEAICE_LSR |
I zetaMinusEta, etaPlusZeta, etaZ, zetaZ, press, |
./pkg/seaice/seaice_lsr.F |
455 |
SEAICE_LSR |
I zetaMinusEta, etaPlusZeta, etaZ, zetaZ, press, |
./pkg/seaice/seaice_lsr.F |
993 |
SEAICE_LSR |
I e11, e22, e12, press, zeta, eta, etaZ, |