Symbol Description Uses
ZETA 30



File Line number Procedure Code
./pkg/fizhi/fizhi_turb.F 1362 TRBFLX
      _RL RIB(irun),   ZETA(irun), WS(irun)
./pkg/fizhi/fizhi_turb.F 1712 TRBFLX
        ZETA(I) = ZETASAVE(I)
./pkg/fizhi/fizhi_turb.F 1730 TRBFLX
       XXZETA(I) = XX(I)-ZETA(I)
./pkg/fizhi/fizhi_turb.F 1768 TRBFLX
     9   CT,RIB,ZETA,WS,
./pkg/fizhi/fizhi_turb.F 2053 TRBFLX
       ZETAIN(I) = ZETA(I)
./pkg/fizhi/fizhi_turb.F 2293 TRBFLX
        ZETASAVE(I) = ZETA(I)
./pkg/seaice/SEAICE.h 86 NO PROCEDURE
     &     ETA,etaZ,ZETA,PRESS, e11, e22, e12, deltaC,
./pkg/seaice/SEAICE.h 91 NO PROCEDURE
      _RL ZETA       (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
./pkg/seaice/lsr.F 207 LSR
          ZETA(I,J,bi,bj)  = 0.5 _d 0*PRESS0(I,J,bi,bj)/DELT2
./pkg/seaice/lsr.F 209 LSR
          ZETA(I,J,bi,bj)  = MIN(ZMAX(I,J,bi,bj),ZETA(I,J,bi,bj))
./pkg/seaice/lsr.F 210 LSR
          ZETA(I,J,bi,bj)  = MAX(ZMIN(I,J,bi,bj),ZETA(I,J,bi,bj))
./pkg/seaice/lsr.F 212 LSR
          ZETA(I,J,bi,bj)  = ZETA(I,J,bi,bj)*HEFFM(I,J,bi,bj)
./pkg/seaice/lsr.F 213 LSR
          ETA(I,J,bi,bj)   = ECM2*ZETA(I,J,bi,bj)
./pkg/seaice/lsr.F 214 LSR
          PRESS(I,J,bi,bj) = 2.0 _d 0*ZETA(I,J,bi,bj)*DELT2
./pkg/seaice/lsr.F 701 LSR
          etaPlusZeta(I,J,bi,bj) = ETA(I,J,bi,bj)+ZETA(I,J,bi,bj)
./pkg/seaice/lsr.F 702 LSR
          zetaMinusEta(I,J,bi,bj) = ZETA(I,J,bi,bj)-ETA(I,J,bi,bj)
./pkg/seaice/lsr.F 711 LSR
     &          ZETA(I,J-1,bi,bj) + ZETA(I-1,J-1,bi,bj)
./pkg/seaice/lsr.F 712 LSR
     &         +ZETA(I,J  ,bi,bj) + ZETA(I-1,J  ,bi,bj))
./pkg/seaice/seaice_init_varia.F 277 SEAICE_INIT_VARIA
          ZETA(i,j,bi,bj)   = 0. _d 0
./pkg/seaice/seaice_init_varia.F 672 SEAICE_INIT_VARIA
          ZETA(i,j,bi,bj)   = HEFF(i,j,bi,bj)*(1.0 _d 11)
./pkg/seaice/seaice_init_varia.F 673 SEAICE_INIT_VARIA
          ETA(i,j,bi,bj)    = ZETA(i,j,bi,bj)/SEAICE_eccen**2
./pkg/seaice/seaice_lsr.F 307 SEAICE_LSR
          etaPlusZeta (I,J,bi,bj) = ETA (I,J,bi,bj)+ZETA(I,J,bi,bj)
./pkg/seaice/seaice_lsr.F 308 SEAICE_LSR
          zetaMinusEta(I,J,bi,bj) = ZETA(I,J,bi,bj)-ETA (I,J,bi,bj)
./pkg/autodiff/autodiff_restore.F 466 AUTODIFF_RESTORE
          ZETA(I,J,bi,bj)      = StoreSEAICE(I,J,bi,bj,9)
./pkg/autodiff/autodiff_store.F 564 AUTODIFF_STORE
          StoreSEAICE(I,J,bi,bj,9) = ZETA(I,J,bi,bj)