Symbol Description Uses
VZZ 9


File Line number Procedure Code
./pkg/fizhi/fizhi_turb.F 3484 PSI 
      SUBROUTINE PSI(VZZ,VZH,VPSIM,VPSIH,IRUN,VX,VXS,VY,VYS,IFLAG)
./pkg/fizhi/fizhi_turb.F 3510 PSI 
      _RL VZZ(IRUN),VZH(IRUN),VPSIM(IRUN),VPSIH(IRUN),
./pkg/fizhi/fizhi_turb.F 3550 PSI 
       ZZ0(I) = VZH(I)*VZZ(I)
./pkg/fizhi/fizhi_turb.F 3554 PSI 
       IF(VZZ(I).LE.-1.e-7)IBIT = IBIT + 1
./pkg/fizhi/fizhi_turb.F 3557 PSI 
       IF(VZZ(I).LE.-1.e-7)THEN
./pkg/fizhi/fizhi_turb.F 3574 PSI 
        Z(indx) = VZZ(I)
./pkg/fizhi/fizhi_turb.F 3663 PSI 
       IF(VZZ(I).GT.-1.e-7)THEN
./pkg/fizhi/fizhi_turb.F 3668 PSI 
       IF(VZZ(I).GT.-1.e-7)THEN
./pkg/fizhi/fizhi_turb.F 3682 PSI 
        Z(indx) = VZZ(I)