Symbol Description Uses
VRIB2 6


File Line number Procedure Code
./pkg/fizhi/fizhi_turb.F 4083 LINADJ 
      SUBROUTINE LINADJ ( NN,VRIB1,VRIB2,VWS1,VWS2,VZ1,VUSTAR,IWATER,
./pkg/fizhi/fizhi_turb.F 4128 LINADJ 
      _RL VRIB1(IRUN),VRIB2(IRUN)
./pkg/fizhi/fizhi_turb.F 4262 LINADJ 
        VXNUM(I) = VRIB2(I) - VRIB1(I)
./pkg/fizhi/fizhi_turb.F 4290 LINADJ 
        IF ( (VRIB2(I).EQ.0.) .OR. (VDZETA(I).LE.-1.) ) THEN
./pkg/fizhi/fizhi_turb.F 4301 LINADJ 
        IF ( (VRIB2(I).EQ.0.) .OR. (VDZETA2(I).LE.-1.) ) THEN
./pkg/fizhi/fizhi_turb.F 4306 LINADJ 
        IF(VINT1(I).EQ.1)VDZETA(I)=VXNUM1(I)*VRIB2(I) - 1. - VDZETA1(I)