| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_turb.F |
1471 |
TRBFLX |
_RL RIB(irun), ZETA(irun), WS(irun) |
|
./pkg/fizhi/fizhi_turb.F |
1798 |
TRBFLX |
ZETA(I) = ZETASAVE(I) |
|
./pkg/fizhi/fizhi_turb.F |
1816 |
TRBFLX |
XXZETA(I) = XX(I)-ZETA(I) |
|
./pkg/fizhi/fizhi_turb.F |
1854 |
TRBFLX |
9 CT,RIB,ZETA,WS, |
|
./pkg/fizhi/fizhi_turb.F |
2115 |
TRBFLX |
ZETAIN(I) = ZETA(I) |
|
./pkg/fizhi/fizhi_turb.F |
2339 |
TRBFLX |
ZETASAVE(I) = ZETA(I) |
|
./verification/fizhi-cs-aqualev20/code/fizhi_turb.F |
1471 |
TRBFLX |
_RL RIB(irun), ZETA(irun), WS(irun) |
|
./verification/fizhi-cs-aqualev20/code/fizhi_turb.F |
1798 |
TRBFLX |
ZETA(I) = ZETASAVE(I) |
|
./verification/fizhi-cs-aqualev20/code/fizhi_turb.F |
1816 |
TRBFLX |
XXZETA(I) = XX(I)-ZETA(I) |
|
./verification/fizhi-cs-aqualev20/code/fizhi_turb.F |
1854 |
TRBFLX |
9 CT,RIB,ZETA,WS, |
|
./verification/fizhi-cs-aqualev20/code/fizhi_turb.F |
2115 |
TRBFLX |
ZETAIN(I) = ZETA(I) |
|
./verification/fizhi-cs-aqualev20/code/fizhi_turb.F |
2321 |
TRBFLX |
ZETASAVE(I) = ZETA(I) |
|
./pkg/seaice/seaice_lsr.F |
186 |
SEAICE_LSR |
etaPlusZeta (I,J,bi,bj) = ETA (I,J,bi,bj)+ZETA(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
187 |
SEAICE_LSR |
zetaMinusEta(I,J,bi,bj) = ZETA(I,J,bi,bj)-ETA (I,J,bi,bj) |
|
./pkg/seaice/SEAICE.h |
41 |
NO PROCEDURE |
& ETA,ZETA,DRAGS,DRAGA,FORCEX,FORCEY,UICEC,VICEC |
|
./pkg/seaice/SEAICE.h |
48 |
NO PROCEDURE |
_RL ZETA (1-OLx:sNx+OLx,1-OLy:sNy+OLy, nSx,nSy) |
|
./pkg/seaice/dynsolver.F |
229 |
DYNSOLVER |
ZETA(I,J,bi,bj)=HALF*PRESS0(I,J,bi,bj)/DELT2 |
|
./pkg/seaice/dynsolver.F |
231 |
DYNSOLVER |
ZETA(I,J,bi,bj)=MIN(ZMAX(I,J,bi,bj),ZETA(I,J,bi,bj)) |
|
./pkg/seaice/dynsolver.F |
232 |
DYNSOLVER |
ZETA(I,J,bi,bj)=MAX(ZMIN(I,J,bi,bj),ZETA(I,J,bi,bj)) |
|
./pkg/seaice/dynsolver.F |
234 |
DYNSOLVER |
ZETA(I,J,bi,bj)=ZETA(I,J,bi,bj)*HEFFM(I,J,bi,bj) |
|
./pkg/seaice/dynsolver.F |
235 |
DYNSOLVER |
ETA(I,J,bi,bj)=ECM2*ZETA(I,J,bi,bj) |
|
./pkg/seaice/dynsolver.F |
236 |
DYNSOLVER |
PRESS(I,J,bi,bj)=TWO*ZETA(I,J,bi,bj)*DELT2 |
|
./pkg/seaice/dynsolver.F |
244 |
DYNSOLVER |
_EXCH_XY_R8(ZETA, myThid) |
|
./pkg/seaice/dynsolver.F |
340 |
DYNSOLVER |
ZETA(I,J,bi,bj)=HALF*PRESS0(I,J,bi,bj)/DELT2 |
|
./pkg/seaice/dynsolver.F |
342 |
DYNSOLVER |
ZETA(I,J,bi,bj)=MIN(ZMAX(I,J,bi,bj),ZETA(I,J,bi,bj)) |
|
./pkg/seaice/dynsolver.F |
343 |
DYNSOLVER |
ZETA(I,J,bi,bj)=MAX(ZMIN(I,J,bi,bj),ZETA(I,J,bi,bj)) |
|
./pkg/seaice/dynsolver.F |
345 |
DYNSOLVER |
ZETA(I,J,bi,bj)=ZETA(I,J,bi,bj)*HEFFM(I,J,bi,bj) |
|
./pkg/seaice/dynsolver.F |
346 |
DYNSOLVER |
ETA(I,J,bi,bj)=ECM2*ZETA(I,J,bi,bj) |
|
./pkg/seaice/dynsolver.F |
347 |
DYNSOLVER |
PRESS(I,J,bi,bj)=TWO*ZETA(I,J,bi,bj)*DELT2 |
|
./pkg/seaice/dynsolver.F |
355 |
DYNSOLVER |
_EXCH_XY_R8(ZETA, myThid) |
|
./pkg/seaice/seaice_init.F |
261 |
SEAICE_INIT |
CALL READ_FLD_XY_RL( HeffFile, ' ', ZETA, 0, myThid ) |
|
./pkg/seaice/seaice_init.F |
263 |
SEAICE_INIT |
_EXCH_XY_R8(ZETA,myThid) |
|
./pkg/seaice/seaice_init.F |
269 |
SEAICE_INIT |
HEFF(I,J,k,bi,bj) = MAX(ZETA(i,j,bi,bj),ZERO) |
|
./pkg/seaice/seaice_init.F |
296 |
SEAICE_INIT |
ZETA(I,J,bi,bj)=HEFF(I,J,1,bi,bj)*(1.0 _d 11) |
|
./pkg/seaice/seaice_init.F |
297 |
SEAICE_INIT |
ETA(I,J,bi,bj)=ZETA(I,J,bi,bj)/4.0 _d 0 |
|
./pkg/seaice/seaice_init.F |
81 |
SEAICE_INIT |
ZETA(I,J,bi,bj)=ZERO |
|
./pkg/seaice/lsr.F |
114 |
LSR |
etaPlusZeta(I,J,bi,bj) = ETA(I,J,bi,bj)+ZETA(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
115 |
LSR |
zetaMinusEta(I,J,bi,bj) = ZETA(I,J,bi,bj)-ETA(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
124 |
LSR |
& ZETA(I,J-1,bi,bj) + ZETA(I-1,J-1,bi,bj) |
|
./pkg/seaice/lsr.F |
125 |
LSR |
& +ZETA(I,J ,bi,bj) + ZETA(I-1,J ,bi,bj)) |