Symbol Description Uses
Z 93


File Line number Procedure Code
./pkg/fizhi/fizhi_turb.F 3034 PHI 
       ZSTAR(I) = -Z(I)
./pkg/fizhi/fizhi_turb.F 3039 PHI 
       IF( Z(I) .LT. 0.15 ) PHIM(I) = 1. + ZSTAR(I)
./pkg/fizhi/fizhi_turb.F 3047 PHI 
       IF( Z(I) .LT. 0.15 ) THEN
./pkg/fizhi/fizhi_turb.F 3048 PHI 
       PHIH(I) =1.+ Z(I) * (0.5+ZSTAR(I)*(0.375+ZSTAR(I)*
./pkg/fizhi/fizhi_turb.F 3102 PSI 
      _RL ZZ0(irun),Z(irun),Z2(irun),Z1(irun),Z0(irun)
./pkg/fizhi/fizhi_turb.F 3148 PSI 
        Z(indx) = VZZ(I)
./pkg/fizhi/fizhi_turb.F 3154 PSI 
       Z(I) = -18. * Z(I)
./pkg/fizhi/fizhi_turb.F 3158 PSI 
      CALL PHI( Z,X1,Y1,IFLAG,IBIT )
./pkg/fizhi/fizhi_turb.F 3169 PSI 
       IF ( Z(I) .LT. 0.013 ) ARG1(I) =
./pkg/fizhi/fizhi_turb.F 3170 PSI 
     1        Z(I) * ( 0.25 -  0.09375 * Z(I) )
./pkg/fizhi/fizhi_turb.F 3206 PSI 
       IF( Z(I) .LT. 0.0065 ) ARG1(I) =
./pkg/fizhi/fizhi_turb.F 3207 PSI 
     1       Z(I) * ( 0.5 -  0.625 * Z(I) )
./pkg/fizhi/fizhi_turb.F 3256 PSI 
        Z(indx) = VZZ(I)
./pkg/fizhi/fizhi_turb.F 3267 PSI 
       Z1(I) = Z(I)
./pkg/fizhi/fizhi_turb.F 3270 PSI 
       IF ( Z(I) .GT. ZWM ) THEN
./pkg/fizhi/fizhi_turb.F 3272 PSI 
        Z2(I) = Z(I)
./pkg/fizhi/fizhi_turb.F 3287 PSI 
       IF ( (INTZ0(I).EQ.1) .OR. (Z(I).GT.ZWM) )
./pkg/fizhi/fizhi_turb.F 3333 PSI 
       Y1DEN(I) = 1. + CM1 * ( X1NUM(I) * Z(I) )