| File |
Line number |
Procedure |
Code |
|
./pkg/seaice/dynsolver.F |
488 |
DYNSOLVER |
CALL DIAGNOSTICS_FILL(press ,'SIpress ',0,1 ,0,1,1,myThid) |
|
./pkg/seaice/seaice_calc_viscosities.F |
104 |
SEAICE_CALC_VISCOSITIES |
press(I,J,bi,bj) = TWO *zeta(I,J,bi,bj)*deltaC |
|
./pkg/seaice/seaice_calc_viscosities.F |
114 |
SEAICE_CALC_VISCOSITIES |
etaMax = ( 0.5 _d 0*press(I,J,bi,bj)-zeta(I,J,bi,bj) |
|
./pkg/seaice/seaice_calc_viscosities.F |
51 |
SEAICE_CALC_VISCOSITIES |
_RL press (1-Olx:sNx+Olx,1-Oly:sNy+Oly,nSx,nSy) |
|
./pkg/seaice/seaice_calc_viscosities.F |
9 |
SEAICE_CALC_VISCOSITIES |
O eta, zeta, press, |
|
./pkg/seaice/seaice_diagnostics_state.F |
105 |
SEAICE_DIAGNOSTICS_STATE |
CALL DIAGNOSTICS_FILL(press ,'SIpress ',0,1 ,0,1,1,myThid) |
|
./pkg/seaice/seaice_diagnostics_state.F |
127 |
SEAICE_DIAGNOSTICS_STATE |
IF ( press(I,J,bi,bj) .GT. 1. _d -13 ) |
|
./pkg/seaice/seaice_diagnostics_state.F |
128 |
SEAICE_DIAGNOSTICS_STATE |
& recip_prs = 1./press(I,J,bi,bj) |
|
./pkg/seaice/seaice_diagnostics_state.F |
154 |
SEAICE_DIAGNOSTICS_STATE |
& - press(I,J,bi,bj) |
|
./pkg/seaice/seaice_diagnostics_state.F |
162 |
SEAICE_DIAGNOSTICS_STATE |
IF ( press(I,J,bi,bj) .GT. 1. _d -13 ) |
|
./pkg/seaice/seaice_diagnostics_state.F |
163 |
SEAICE_DIAGNOSTICS_STATE |
& recip_prs = 1./press(I,J,bi,bj) |
|
./pkg/seaice/seaice_diagnostics_state.F |
183 |
SEAICE_DIAGNOSTICS_STATE |
press(i,j,bi,bj) = |
|
./pkg/seaice/seaice_diagnostics_state.F |
195 |
SEAICE_DIAGNOSTICS_STATE |
CALL DIAGNOSTICS_FILL(press,'SIuheff ',0,1,0,1,1,myThid) |
|
./pkg/seaice/seaice_diagnostics_state.F |
202 |
SEAICE_DIAGNOSTICS_STATE |
press(i,j,bi,bj) = |
|
./pkg/seaice/seaice_diagnostics_state.F |
214 |
SEAICE_DIAGNOSTICS_STATE |
CALL DIAGNOSTICS_FILL(press,'SIvheff ',0,1,0,1,1,myThid) |
|
./pkg/seaice/seaice_evp.F |
284 |
SEAICE_EVP |
press(I,J,bi,bj) = pressC(I,J) |
|
./pkg/seaice/seaice_lsr.F |
212 |
SEAICE_LSR |
O eta, zeta, press, |