Symbol Description Uses
Z0 46


File Line number Procedure Code
./pkg/fizhi/fizhi_turb.F 3102 PSI 
      _RL ZZ0(irun),Z(irun),Z2(irun),Z1(irun),Z0(irun)
./pkg/fizhi/fizhi_turb.F 3149 PSI 
        Z0(indx) = ZZ0(I)
./pkg/fizhi/fizhi_turb.F 3155 PSI 
       Z0(I) = -18. * Z0(I)
./pkg/fizhi/fizhi_turb.F 3159 PSI 
      CALL PHI( Z0,X0,Y0,IFLAG,IBIT )
./pkg/fizhi/fizhi_turb.F 3173 PSI 
       IF ( Z0(I) .LT. 0.013 ) ARG0(I) =
./pkg/fizhi/fizhi_turb.F 3174 PSI 
     1       Z0(I) * ( 0.25 -  0.09375 * Z0(I) )
./pkg/fizhi/fizhi_turb.F 3210 PSI 
       IF( Z0(I) .LT. 0.0065 ) ARG0(I) =
./pkg/fizhi/fizhi_turb.F 3211 PSI 
     1       Z0(I) * ( 0.5 -  0.625 * Z0(I) )
./pkg/fizhi/fizhi_turb.F 3257 PSI 
        Z0(indx) = ZZ0(I)
./pkg/fizhi/fizhi_turb.F 3275 PSI 
       IF ( Z0(I) .GT. Z0M ) THEN
./pkg/fizhi/fizhi_turb.F 3276 PSI 
        Z0(I) = Z0M
./pkg/fizhi/fizhi_turb.F 3283 PSI 
       X0NUM(I) = 1. + 5. * Z0(I)
./pkg/fizhi/fizhi_turb.F 3285 PSI 
       X0DEN(I) = 1. + CM1 * (X0NUM(I) * Z0(I))
./pkg/fizhi/fizhi_turb.F 3288 PSI 
     1      HZ(I) = Z1(I) / Z0(I)
./pkg/fizhi/fizhi_turb.F 3292 PSI 
       ARG0(I) = (Z1(I) + 0.1) * (Z0(I) + 0.1)
./pkg/fizhi/fizhi_turb.F 3294 PSI 
       ARG0(I) = ( Z1(I) - Z0(I) ) / ARG0(I)