| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_turb.F |
1532 |
TRBFLX |
_RL RIB(irun), ZETA(irun), WS(irun) |
|
./pkg/fizhi/fizhi_turb.F |
1964 |
TRBFLX |
ZETA(I) = ZETASAVE(I) |
|
./pkg/fizhi/fizhi_turb.F |
1982 |
TRBFLX |
XXZETA(I) = XX(I)-ZETA(I) |
|
./pkg/fizhi/fizhi_turb.F |
2020 |
TRBFLX |
9 CT,RIB,ZETA,WS, |
|
./pkg/fizhi/fizhi_turb.F |
2431 |
TRBFLX |
ZETAIN(I) = ZETA(I) |
|
./pkg/fizhi/fizhi_turb.F |
2735 |
TRBFLX |
ZETASAVE(I) = ZETA(I) |
|
./pkg/seaice/SEAICE.h |
78 |
NO PROCEDURE |
& ETA,ZETA,PRESS, e11, e22, e12, |
|
./pkg/seaice/SEAICE.h |
81 |
NO PROCEDURE |
_RL ZETA (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./pkg/seaice/dynsolver.F |
293 |
DYNSOLVER |
ZETA(I,J,bi,bj)=HALF*PRESS0(I,J,bi,bj)/DELT2 |
|
./pkg/seaice/dynsolver.F |
295 |
DYNSOLVER |
ZETA(I,J,bi,bj)=MIN(ZMAX(I,J,bi,bj),ZETA(I,J,bi,bj)) |
|
./pkg/seaice/dynsolver.F |
296 |
DYNSOLVER |
ZETA(I,J,bi,bj)=MAX(ZMIN(I,J,bi,bj),ZETA(I,J,bi,bj)) |
|
./pkg/seaice/dynsolver.F |
298 |
DYNSOLVER |
ZETA(I,J,bi,bj)=ZETA(I,J,bi,bj)*HEFFM(I,J,bi,bj) |
|
./pkg/seaice/dynsolver.F |
299 |
DYNSOLVER |
ETA(I,J,bi,bj)=ECM2*ZETA(I,J,bi,bj) |
|
./pkg/seaice/dynsolver.F |
300 |
DYNSOLVER |
PRESS(I,J,bi,bj)=TWO*ZETA(I,J,bi,bj)*DELT2 |
|
./pkg/seaice/dynsolver.F |
308 |
DYNSOLVER |
_EXCH_XY_RL(ZETA, myThid) |
|
./pkg/seaice/dynsolver.F |
412 |
DYNSOLVER |
ZETA(I,J,bi,bj)=HALF*PRESS0(I,J,bi,bj)/DELT2 |
|
./pkg/seaice/dynsolver.F |
414 |
DYNSOLVER |
ZETA(I,J,bi,bj)=MIN(ZMAX(I,J,bi,bj),ZETA(I,J,bi,bj)) |
|
./pkg/seaice/dynsolver.F |
415 |
DYNSOLVER |
ZETA(I,J,bi,bj)=MAX(ZMIN(I,J,bi,bj),ZETA(I,J,bi,bj)) |
|
./pkg/seaice/dynsolver.F |
417 |
DYNSOLVER |
ZETA(I,J,bi,bj)=ZETA(I,J,bi,bj)*HEFFM(I,J,bi,bj) |
|
./pkg/seaice/dynsolver.F |
418 |
DYNSOLVER |
ETA(I,J,bi,bj)=ECM2*ZETA(I,J,bi,bj) |
|
./pkg/seaice/dynsolver.F |
419 |
DYNSOLVER |
PRESS(I,J,bi,bj)=TWO*ZETA(I,J,bi,bj)*DELT2 |
|
./pkg/seaice/dynsolver.F |
427 |
DYNSOLVER |
_EXCH_XY_RL(ZETA, myThid) |
|
./pkg/seaice/lsr.F |
123 |
LSR |
etaPlusZeta(I,J,bi,bj) = ETA(I,J,bi,bj)+ZETA(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
124 |
LSR |
zetaMinusEta(I,J,bi,bj) = ZETA(I,J,bi,bj)-ETA(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
133 |
LSR |
& ZETA(I,J-1,bi,bj) + ZETA(I-1,J-1,bi,bj) |
|
./pkg/seaice/lsr.F |
134 |
LSR |
& +ZETA(I,J ,bi,bj) + ZETA(I-1,J ,bi,bj)) |
|
./pkg/seaice/seaice_init_varia.F |
449 |
SEAICE_INIT_VARIA |
ZETA(i,j,bi,bj) = HEFF(i,j,bi,bj)*(1.0 _d 11) |
|
./pkg/seaice/seaice_init_varia.F |
450 |
SEAICE_INIT_VARIA |
ETA(i,j,bi,bj) = ZETA(i,j,bi,bj)/SEAICE_eccen**2 |
|
./pkg/seaice/seaice_init_varia.F |
92 |
SEAICE_INIT_VARIA |
ZETA(i,j,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_lsr.F |
294 |
SEAICE_LSR |
etaPlusZeta (I,J,bi,bj) = ETA (I,J,bi,bj)+ZETA(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
295 |
SEAICE_LSR |
zetaMinusEta(I,J,bi,bj) = ZETA(I,J,bi,bj)-ETA (I,J,bi,bj) |
|
./pkg/autodiff/autodiff_restore.F |
462 |
AUTODIFF_RESTORE |
ZETA(I,J,bi,bj) = StoreSEAICE(I,J,bi,bj,9) |
|
./pkg/autodiff/autodiff_store.F |
565 |
AUTODIFF_STORE |
StoreSEAICE(I,J,bi,bj,9) = ZETA(I,J,bi,bj) |