| File |
Line number |
Procedure |
Code |
|
./pkg/seaice/dynsolver.F |
295 |
DYNSOLVER |
CALL DIAGNOSTICS_FILL(eta ,'SIeta ',0,1 ,0,1,1,myThid) |
|
./pkg/seaice/lsr.F |
279 |
LSR |
& + eta(I,J,bi,bj) + eta(I-1,J,bi,bj) ) |
|
./pkg/seaice/lsr.F |
287 |
LSR |
& + eta(I,J,bi,bj) + eta(I,J-1,bi,bj) ) |
|
./pkg/seaice/seaice_calc_lhs.F |
114 |
SEAICE_CALC_LHS |
sig11(I,J) = zeta(I,J,bi,bj)*eplus + eta(I,J,bi,bj)*eminus |
|
./pkg/seaice/seaice_calc_lhs.F |
116 |
SEAICE_CALC_LHS |
sig22(I,J) = zeta(I,J,bi,bj)*eplus - eta(I,J,bi,bj)*eminus |
|
./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 |
144 |
SEAICE_CALC_VISCOSITIES |
eta (I,J,bi,bj) = ECM2*zeta(I,J,bi,bj) |
|
./pkg/seaice/seaice_calc_viscosities.F |
159 |
SEAICE_CALC_VISCOSITIES |
eta(I,J,bi,bj) = MIN(eta(I,J,bi,bj),etaMax) |
|
./pkg/seaice/seaice_calc_viscosities.F |
171 |
SEAICE_CALC_VISCOSITIES |
& ( eta (I,J ,bi,bj) + eta (I-1,J ,bi,bj) |
|
./pkg/seaice/seaice_calc_viscosities.F |
172 |
SEAICE_CALC_VISCOSITIES |
& + eta (I,J-1,bi,bj) + eta (I-1,J-1,bi,bj) ) |
|
./pkg/seaice/seaice_calc_viscosities.F |
57 |
SEAICE_CALC_VISCOSITIES |
_RL eta (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./pkg/seaice/seaice_diagnostics_state.F |
126 |
SEAICE_DIAGNOSTICS_STATE |
CALL DIAGNOSTICS_FILL(eta ,'SIeta ',0,1 ,0,1,1,myThid) |
|
./pkg/seaice/seaice_diagnostics_state.F |
177 |
SEAICE_DIAGNOSTICS_STATE |
sig2 = 2.* eta(I,J,bi,bj) |
|
./pkg/seaice/seaice_diagnostics_state.F |
179 |
SEAICE_DIAGNOSTICS_STATE |
sig12 = 2.*eta(I,J,bi,bj) * 0.25 _d 0 * |
|
./pkg/seaice/seaice_evp.F |
312 |
SEAICE_EVP |
eta (I,J,bi,bj) = zetaC(I,J)*recip_ecc2 |
|
./pkg/seaice/seaice_evp.F |
351 |
SEAICE_EVP |
eta(I,J,bi,bj) = MIN(zetaC(I,J),zetaMaxC)*recip_ecc2 |
|
./pkg/seaice/seaice_jfnk.F |
187 |
SEAICE_JFNK |
etaPre(I,J,bi,bj) = eta(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
170 |
SEAICE_LSR |
eta (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 |
920 |
SEAICE_LSR |
sig11(I,J) = zeta(I,J,bi,bj)*eplus + eta(I,J,bi,bj)*eminus |
|
./pkg/seaice/seaice_lsr.F |
922 |
SEAICE_LSR |
sig22(I,J) = zeta(I,J,bi,bj)*eplus - eta(I,J,bi,bj)*eminus |