| File |
Line number |
Procedure |
Code |
|
./pkg/seaice/dynsolver.F |
296 |
DYNSOLVER |
CALL DIAGNOSTICS_FILL(press ,'SIpress ',0,1 ,0,1,1,myThid) |
|
./pkg/seaice/seaice_calc_residual.F |
89 |
SEAICE_CALC_RESIDUAL |
O eta, etaZ, zeta, press, deltaC, |
|
./pkg/seaice/seaice_calc_viscosities.F |
10 |
SEAICE_CALC_VISCOSITIES |
O eta, etaZ, zeta, press, deltaC, |
|
./pkg/seaice/seaice_calc_viscosities.F |
146 |
SEAICE_CALC_VISCOSITIES |
press(I,J,bi,bj) = TWO *zeta(I,J,bi,bj)*deltaC(I,J,bi,bj) |
|
./pkg/seaice/seaice_calc_viscosities.F |
156 |
SEAICE_CALC_VISCOSITIES |
etaMax = ( 0.5 _d 0*press(I,J,bi,bj)-zeta(I,J,bi,bj) |
|
./pkg/seaice/seaice_calc_viscosities.F |
53 |
SEAICE_CALC_VISCOSITIES |
_RL press (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./pkg/seaice/seaice_diagnostics_state.F |
127 |
SEAICE_DIAGNOSTICS_STATE |
CALL DIAGNOSTICS_FILL(press ,'SIpress ',0,1 ,0,1,1,myThid) |
|
./pkg/seaice/seaice_diagnostics_state.F |
149 |
SEAICE_DIAGNOSTICS_STATE |
IF ( press(I,J,bi,bj) .GT. 1. _d -13 ) |
|
./pkg/seaice/seaice_diagnostics_state.F |
150 |
SEAICE_DIAGNOSTICS_STATE |
& recip_prs = 1./press(I,J,bi,bj) |
|
./pkg/seaice/seaice_diagnostics_state.F |
176 |
SEAICE_DIAGNOSTICS_STATE |
& - press(I,J,bi,bj) |
|
./pkg/seaice/seaice_diagnostics_state.F |
184 |
SEAICE_DIAGNOSTICS_STATE |
IF ( press(I,J,bi,bj) .GT. 1. _d -13 ) |
|
./pkg/seaice/seaice_diagnostics_state.F |
185 |
SEAICE_DIAGNOSTICS_STATE |
& recip_prs = 1./press(I,J,bi,bj) |
|
./pkg/seaice/seaice_diagnostics_state.F |
205 |
SEAICE_DIAGNOSTICS_STATE |
press(i,j,bi,bj) = |
|
./pkg/seaice/seaice_diagnostics_state.F |
217 |
SEAICE_DIAGNOSTICS_STATE |
CALL DIAGNOSTICS_FILL(press,'SIuheff ',0,1,0,1,1,myThid) |
|
./pkg/seaice/seaice_diagnostics_state.F |
224 |
SEAICE_DIAGNOSTICS_STATE |
press(i,j,bi,bj) = |
|
./pkg/seaice/seaice_diagnostics_state.F |
236 |
SEAICE_DIAGNOSTICS_STATE |
CALL DIAGNOSTICS_FILL(press,'SIvheff ',0,1,0,1,1,myThid) |
|
./pkg/seaice/seaice_evp.F |
310 |
SEAICE_EVP |
press(I,J,bi,bj) = pressC(I,J) |
|
./pkg/seaice/seaice_lsr.F |
168 |
SEAICE_LSR |
press (i,j,bi,bj )= 0. _d 0 |
|
./pkg/seaice/seaice_lsr.F |
293 |
SEAICE_LSR |
O eta, etaZ, zeta, press, deltaC, |
|
./pkg/seaice/seaice_lsr.F |
385 |
SEAICE_LSR |
I zetaMinusEta, etaPlusZeta, etaZ, press, vIceC, |
|
./pkg/seaice/seaice_lsr.F |
397 |
SEAICE_LSR |
I zetaMinusEta, etaPlusZeta, etaZ, press, uIceC, |