Symbol Description Uses
VZZ 9


File Line number Procedure Code
./pkg/fizhi/fizhi_turb.F 3035 PSI 
      SUBROUTINE PSI(VZZ,VZH,VPSIM,VPSIH,IRUN,VX,VXS,VY,VYS,IFLAG)
./pkg/fizhi/fizhi_turb.F 3058 PSI 
      _RL VZZ(IRUN),VZH(IRUN),VPSIM(IRUN),VPSIH(IRUN),
./pkg/fizhi/fizhi_turb.F 3098 PSI 
       ZZ0(I) = VZH(I)*VZZ(I)
./pkg/fizhi/fizhi_turb.F 3102 PSI 
       IF(VZZ(I).LE.-1.e-7)IBIT = IBIT + 1
./pkg/fizhi/fizhi_turb.F 3105 PSI 
       IF(VZZ(I).LE.-1.e-7)THEN
./pkg/fizhi/fizhi_turb.F 3122 PSI 
        Z(indx) = VZZ(I)
./pkg/fizhi/fizhi_turb.F 3211 PSI 
       IF(VZZ(I).GT.-1.e-7)THEN
./pkg/fizhi/fizhi_turb.F 3216 PSI 
       IF(VZZ(I).GT.-1.e-7)THEN
./pkg/fizhi/fizhi_turb.F 3230 PSI 
        Z(indx) = VZZ(I)