Symbol Description Uses
IBIT1 10



File Line number Procedure Code
./pkg/fizhi/fizhi_turb.F 2993 PHI
      IBIT1 = 0
./pkg/fizhi/fizhi_turb.F 2997 PHI
       IF(Z(I).GE.0.15)IBIT1 = IBIT1 + 1
./pkg/fizhi/fizhi_turb.F 3001 PHI
      IF( IBIT1 .LE. 0 ) GO TO 200
./pkg/fizhi/fizhi_turb.F 3049 PHI
      IF( IBIT1 .GE. N ) GO TO 500
./verification/fizhi-cs-aqualev20/code/fizhi_turb.F 2975 PHI
      IBIT1 = 0
./verification/fizhi-cs-aqualev20/code/fizhi_turb.F 2979 PHI
       IF(Z(I).GE.0.15)IBIT1 = IBIT1 + 1
./verification/fizhi-cs-aqualev20/code/fizhi_turb.F 2983 PHI
      IF( IBIT1 .LE. 0 ) GO TO 200
./verification/fizhi-cs-aqualev20/code/fizhi_turb.F 3031 PHI
      IF( IBIT1 .GE. N ) GO TO 500