Symbol Description Uses
XXZETA 7



File Line number Procedure Code
./pkg/fizhi/fizhi_turb.F 1401 TRBFLX
      _RL ARG(irun,NLEV),XXZETA(irun),QBYU(irun)
./pkg/fizhi/fizhi_turb.F 1730 TRBFLX
       XXZETA(I) = XX(I)-ZETA(I)
./pkg/fizhi/fizhi_turb.F 1731 TRBFLX
       IF(XXZETA(I).LT.0.1*XX(I)) XXZETA(I)=0.1*XX(I)
./pkg/fizhi/fizhi_turb.F 1732 TRBFLX
       IF(XXZETA(I).LE.0.) XXZETA(I)=0.1
./pkg/fizhi/fizhi_turb.F 1733 TRBFLX
       QBYU(I) =QBUSTR * XXZETA(I)  ** ONETHRD