| File |
Line number |
Procedure |
Code |
|
./pkg/seaice/dynsolver.F |
487 |
DYNSOLVER |
CALL DIAGNOSTICS_FILL(eta ,'SIeta ',0,1 ,0,1,1,myThid) |
|
./pkg/seaice/seaice_calc_viscosities.F |
103 |
SEAICE_CALC_VISCOSITIES |
eta (I,J,bi,bj) = ECM2*zeta(I,J,bi,bj) |
|
./pkg/seaice/seaice_calc_viscosities.F |
117 |
SEAICE_CALC_VISCOSITIES |
eta(I,J,bi,bj) = MIN(eta(I,J,bi,bj),etaMax) |
|
./pkg/seaice/seaice_calc_viscosities.F |
53 |
SEAICE_CALC_VISCOSITIES |
_RL eta (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 |
104 |
SEAICE_DIAGNOSTICS_STATE |
CALL DIAGNOSTICS_FILL(eta ,'SIeta ',0,1 ,0,1,1,myThid) |
|
./pkg/seaice/seaice_diagnostics_state.F |
155 |
SEAICE_DIAGNOSTICS_STATE |
sig2 = 2.* eta(I,J,bi,bj) |
|
./pkg/seaice/seaice_diagnostics_state.F |
157 |
SEAICE_DIAGNOSTICS_STATE |
sig12 = 2.*eta(I,J,bi,bj) * 0.25 _d 0 * |
|
./pkg/seaice/seaice_evp.F |
286 |
SEAICE_EVP |
eta (I,J,bi,bj) = zetaC(I,J)*recip_ecc2 |
|
./pkg/seaice/seaice_evp.F |
324 |
SEAICE_EVP |
eta(I,J,bi,bj) = MIN(zetaC(I,J),zetaMaxC)*recip_ecc2 |
|
./pkg/seaice/seaice_lsr.F |
212 |
SEAICE_LSR |
O eta, zeta, press, |
|
./pkg/seaice/seaice_lsr.F |
902 |
SEAICE_LSR |
sig11(I,J) = zeta(I,J,bi,bj)*eplus + eta(I,J,bi,bj)*eminus |
|
./pkg/seaice/seaice_lsr.F |
904 |
SEAICE_LSR |
sig22(I,J) = zeta(I,J,bi,bj)*eplus - eta(I,J,bi,bj)*eminus |