Symbol Description Uses
XXZETA 14



File Line number Procedure Code
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F 1550 TRBFLX
      _RL ARG(irun,NLEV),XXZETA(irun),QBYU(irun)
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F 1856 TRBFLX
       XXZETA(I) = XX(I)-ZETA(I)
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F 1857 TRBFLX
       IF(XXZETA(I).LT.0.1*XX(I)) XXZETA(I)=0.1*XX(I)
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F 1858 TRBFLX
       IF(XXZETA(I).LE.0.) XXZETA(I)=0.1
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F 1859 TRBFLX
       QBYU(I) =QBUSTR * XXZETA(I)  ** ONETHRD
./pkg/fizhi/fizhi_turb.F 1510 TRBFLX
      _RL ARG(irun,NLEV),XXZETA(irun),QBYU(irun)
./pkg/fizhi/fizhi_turb.F 1816 TRBFLX
       XXZETA(I) = XX(I)-ZETA(I)
./pkg/fizhi/fizhi_turb.F 1817 TRBFLX
       IF(XXZETA(I).LT.0.1*XX(I)) XXZETA(I)=0.1*XX(I)
./pkg/fizhi/fizhi_turb.F 1818 TRBFLX
       IF(XXZETA(I).LE.0.) XXZETA(I)=0.1
./pkg/fizhi/fizhi_turb.F 1819 TRBFLX
       QBYU(I) =QBUSTR * XXZETA(I)  ** ONETHRD