| 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 |
2321 |
TRBFLX |
ZETASAVE(I) = ZETA(I) |
|
./pkg/seaice/SEAICE.h |
33 |
NO PROCEDURE |
& ETA,ZETA,DRAGS,DRAGA,AMASS,FORCEX,FORCEY,UICEC,VICEC |
|
./pkg/seaice/SEAICE.h |
38 |
NO PROCEDURE |
_RL ZETA (1-OLx:sNx+OLx,1-OLy:sNy+OLy, nSx,nSy) |
|
./pkg/seaice/dynsolver.F |
215 |
DYNSOLVER |
ZETA(I,J,bi,bj)=HALF*PRESS0(I,J,bi,bj)/DELT2 |
|
./pkg/seaice/dynsolver.F |
217 |
DYNSOLVER |
ZETA(I,J,bi,bj)=MIN(ZMAX(I,J,bi,bj),ZETA(I,J,bi,bj)) |
|
./pkg/seaice/dynsolver.F |
218 |
DYNSOLVER |
ZETA(I,J,bi,bj)=MAX(ZMIN(I,J,bi,bj),ZETA(I,J,bi,bj)) |
|
./pkg/seaice/dynsolver.F |
220 |
DYNSOLVER |
ZETA(I,J,bi,bj)=ZETA(I,J,bi,bj)*HEFFM(I,J,bi,bj) |
|
./pkg/seaice/dynsolver.F |
221 |
DYNSOLVER |
ETA(I,J,bi,bj)=ECM2*ZETA(I,J,bi,bj) |
|
./pkg/seaice/dynsolver.F |
222 |
DYNSOLVER |
PRESS(I,J,bi,bj)=TWO*ZETA(I,J,bi,bj)*DELT2 |
|
./pkg/seaice/dynsolver.F |
230 |
DYNSOLVER |
_EXCH_XY_R8(ZETA, myThid) |
|
./pkg/seaice/dynsolver.F |
322 |
DYNSOLVER |
ZETA(I,J,bi,bj)=HALF*PRESS0(I,J,bi,bj)/DELT2 |
|
./pkg/seaice/dynsolver.F |
324 |
DYNSOLVER |
ZETA(I,J,bi,bj)=MIN(ZMAX(I,J,bi,bj),ZETA(I,J,bi,bj)) |
|
./pkg/seaice/dynsolver.F |
325 |
DYNSOLVER |
ZETA(I,J,bi,bj)=MAX(ZMIN(I,J,bi,bj),ZETA(I,J,bi,bj)) |
|
./pkg/seaice/dynsolver.F |
327 |
DYNSOLVER |
ZETA(I,J,bi,bj)=ZETA(I,J,bi,bj)*HEFFM(I,J,bi,bj) |
|
./pkg/seaice/dynsolver.F |
328 |
DYNSOLVER |
ETA(I,J,bi,bj)=ECM2*ZETA(I,J,bi,bj) |
|
./pkg/seaice/dynsolver.F |
329 |
DYNSOLVER |
PRESS(I,J,bi,bj)=TWO*ZETA(I,J,bi,bj)*DELT2 |
|
./pkg/seaice/dynsolver.F |
337 |
DYNSOLVER |
_EXCH_XY_R8(ZETA, myThid) |
|
./pkg/seaice/lsr.F |
113 |
LSR |
ZETAMEAN(I,J,bi,bj)=QUART*(ZETA(I,J-1,bi,bj) |
|
./pkg/seaice/lsr.F |
114 |
LSR |
& +ZETA(I-1,J-1,bi,bj) |
|
./pkg/seaice/lsr.F |
115 |
LSR |
& +ZETA(I,J,bi,bj)+ZETA(I-1,J,bi,bj)) |
|
./pkg/seaice/lsr.F |
131 |
LSR |
AA1=((ETA(I,J-1,bi,bj)+ZETA(I,J-1,bi,bj)) |
|
./pkg/seaice/lsr.F |
133 |
LSR |
& +(ETA(I,J,bi,bj)+ZETA(I,J,bi,bj)) |
|
./pkg/seaice/lsr.F |
135 |
LSR |
AA2=((ETA(I-1,J-1,bi,bj)+ZETA(I-1,J-1,bi,bj)) |
|
./pkg/seaice/lsr.F |
137 |
LSR |
& +(ETA(I-1,J,bi,bj)+ZETA(I-1,J,bi,bj)) |
|
./pkg/seaice/lsr.F |
164 |
LSR |
3 +HALF*(ZETA(I,J,bi,bj)*(VICEC(I+1,J+1,bi,bj) |
|
./pkg/seaice/lsr.F |
167 |
LSR |
3 +ZETA(I,J-1,bi,bj)*(VICEC(I+1,J,bi,bj) |
|
./pkg/seaice/lsr.F |
169 |
LSR |
3 -VICEC(I,J-1,bi,bj))+ZETA(I-1,J,bi,bj) |
|
./pkg/seaice/lsr.F |
172 |
LSR |
3 +ZETA(I-1,J-1,bi,bj)*(VICEC(I,J-1,bi,bj) |
|
./pkg/seaice/lsr.F |
205 |
LSR |
6 -((ZETA(I,J,bi,bj)+ZETA(I,J-1,bi,bj) |
|
./pkg/seaice/lsr.F |
206 |
LSR |
6 -ZETA(I-1,J-1,bi,bj)-ZETA(I-1,J,bi,bj)) |
|
./pkg/seaice/lsr.F |
266 |
LSR |
AA2=((ETA(I-1,J-1,bi,bj)+ZETA(I-1,J-1,bi,bj)) |
|
./pkg/seaice/lsr.F |
268 |
LSR |
& +(ETA(I-1,J,bi,bj)+ZETA(I-1,J,bi,bj)) |
|
./pkg/seaice/lsr.F |
272 |
LSR |
AA1=((ETA(I,J-1,bi,bj)+ZETA(I,J-1,bi,bj)) |
|
./pkg/seaice/lsr.F |
274 |
LSR |
& +(ETA(I,J,bi,bj)+ZETA(I,J,bi,bj)) |
|
./pkg/seaice/lsr.F |
358 |
LSR |
AA1=ETA(I-1,J,bi,bj)+ZETA(I-1,J,bi,bj)+ETA(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
359 |
LSR |
& +ZETA(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
360 |
LSR |
AA2=ETA(I-1,J-1,bi,bj)+ZETA(I-1,J-1,bi,bj)+ETA(I,J-1,bi,bj) |
|
./pkg/seaice/lsr.F |
361 |
LSR |
& +ZETA(I,J-1,bi,bj) |
|
./pkg/seaice/lsr.F |
366 |
LSR |
AA5=((ZETA(I-1,J,bi,bj)-ETA(I-1,J,bi,bj)) |
|
./pkg/seaice/lsr.F |
367 |
LSR |
& +(ZETA(I,J,bi,bj)-ETA(I,J,bi,bj)) |
|
./pkg/seaice/lsr.F |
368 |
LSR |
& -(ZETA(I-1,J-1,bi,bj)-ETA(I-1,J-1,bi,bj)) |
|
./pkg/seaice/lsr.F |
369 |
LSR |
& -(ZETA(I,J-1,bi,bj) |
|
./pkg/seaice/lsr.F |
402 |
LSR |
3 *(ZETA(I-1,J,bi,bj)+ZETA(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
403 |
LSR |
3 -ZETA(I-1,J-1,bi,bj)-ZETA(I,J-1,bi,bj))*DELXY(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
485 |
LSR |
AA2=ETA(I-1,J-1,bi,bj)+ZETA(I-1,J-1,bi,bj) |
|
./pkg/seaice/lsr.F |
486 |
LSR |
& +ETA(I,J-1,bi,bj)+ZETA(I,J-1,bi,bj) |
|
./pkg/seaice/lsr.F |
494 |
LSR |
AA1=ETA(I-1,J,bi,bj)+ZETA(I-1,J,bi,bj)+ETA(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
495 |
LSR |
& +ZETA(I,J,bi,bj) |
|
./pkg/seaice/seaice_init.F |
301 |
SEAICE_INIT |
CALL READ_FLD_XY_RL( HeffFile, ' ', ZETA, 0, myThid ) |
|
./pkg/seaice/seaice_init.F |
303 |
SEAICE_INIT |
_EXCH_XY_R8(ZETA,myThid) |
|
./pkg/seaice/seaice_init.F |
309 |
SEAICE_INIT |
HEFF(I,J,k,bi,bj) = MAX(ZETA(i,j,bi,bj),ZERO) |
|
./pkg/seaice/seaice_init.F |
336 |
SEAICE_INIT |
ZETA(I,J,bi,bj)=HEFF(I,J,1,bi,bj)*(1.0 _d 11) |
|
./pkg/seaice/seaice_init.F |
337 |
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 |