Symbol Description Uses
VZETA 30



File Line number Procedure Code
./pkg/fizhi/fizhi_turb.F 2345 SFCFLX
     3      VUSTAR,VXX,VYY,VCU,VCT,VRIB,VZETA,VWS,
./pkg/fizhi/fizhi_turb.F 2408 SFCFLX
      _RL VZETA(IRUN),VWS(IRUN)
./pkg/fizhi/fizhi_turb.F 2534 SFCFLX
       VZETA(I) = VK2 * VRIB(I) / (VCU(I) * VCU(I) * VPSIHG(I))
./pkg/fizhi/fizhi_turb.F 2542 SFCFLX
      CALL PSI (VZETA,VZH,VPSIM,
./pkg/fizhi/fizhi_turb.F 2552 SFCFLX
       VZETA(I) = VK2 * VRIB(I) / (VCU(I) * VCU(I) * VPSIHG(I))
./pkg/fizhi/fizhi_turb.F 2588 SFCFLX
       VZETA(I) = VZETA(I) + VZETAL(I) * VDZETA(I)
./pkg/fizhi/fizhi_turb.F 2589 SFCFLX
       IF (IVBITRIB(I).EQ.1 )VZETA(I) =
./pkg/fizhi/fizhi_turb.F 2612 SFCFLX
       CALL PSI (VZETA,VZH,VPSIM,
./pkg/fizhi/fizhi_turb.F 2629 SFCFLX
        VRIB1(I) = VAPSIM(I) * VAPSIM(I) * VPSIHG(I) * VZETA(I)
./pkg/fizhi/fizhi_turb.F 2651 SFCFLX
         VZETAL(I) = VZETA(I)
./pkg/fizhi/fizhi_turb.F 2657 SFCFLX
        VZETA(I) = VZETA(I) * ( 1. + VDZETA(I) )
./pkg/fizhi/fizhi_turb.F 2658 SFCFLX
        IF (IVBITRIB(I).EQ.1 ) VZETA(I) =
./pkg/fizhi/fizhi_turb.F 2702 SFCFLX
        VTEMP(I) =  10. * VAHS(I) * VZETA(I)