Symbol Description Uses
ZSTAR 16



File Line number Procedure Code
./pkg/fizhi/fizhi_turb.F 2762 PHI
      _RL ZSTAR(N),E1(N),E2(N),TEMP1(N)
./pkg/fizhi/fizhi_turb.F 2960 PHI
       ZSTAR(I)    = 100. * Z(I) - 14.
./pkg/fizhi/fizhi_turb.F 2969 PHI
       IF( Z(I) .GT. 2. ) ZSTAR(I) = TEMP1(I)
./pkg/fizhi/fizhi_turb.F 2970 PHI
       IF( Z(I).GT.1.78e10 ) ZSTAR(I) = 384.9999
./pkg/fizhi/fizhi_turb.F 2976 PHI
       I1(I) = ZSTAR(I)
./pkg/fizhi/fizhi_turb.F 2978 PHI
       TEMP1(I) = ZSTAR(I) - I1(I)
./pkg/fizhi/fizhi_turb.F 3008 PHI
       ZSTAR(I) = -Z(I)
./pkg/fizhi/fizhi_turb.F 3013 PHI
       IF( Z(I) .LT. 0.15 ) PHIM(I) = 1. + ZSTAR(I)
./pkg/fizhi/fizhi_turb.F 3014 PHI
     2     *(0.25+ZSTAR(I)*(0.09375+ZSTAR(I)*
./pkg/fizhi/fizhi_turb.F 3015 PHI
     3     (0.03125+0.00732422 * ZSTAR(I))))
./pkg/fizhi/fizhi_turb.F 3022 PHI
       PHIH(I) =1.+ Z(I) * (0.5+ZSTAR(I)*(0.375+ZSTAR(I)*
./pkg/fizhi/fizhi_turb.F 3023 PHI
     1     (0.5+ZSTAR(I)*(0.8203125+ZSTAR(I)*
./pkg/fizhi/fizhi_turb.F 3024 PHI
     2     (1.5+2.93262*ZSTAR(I))))))