Symbol Description Uses
ZSTAR 32


File Line number Procedure Code
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F 2827 PHI 
      _RL ZSTAR(N),E1(N),E2(N),TEMP1(N)
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F 3025 PHI 
       ZSTAR(I)    = 100. * Z(I) - 14.
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F 3034 PHI 
       IF( Z(I) .GT. 2. ) ZSTAR(I) = TEMP1(I)
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F 3035 PHI 
       IF( Z(I).GT.1.78e10 ) ZSTAR(I) = 384.9999
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F 3041 PHI 
       I1(I) = ZSTAR(I)
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F 3043 PHI 
       TEMP1(I) = ZSTAR(I) - I1(I)
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F 3073 PHI 
       ZSTAR(I) = -Z(I)
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F 3078 PHI 
       IF( Z(I) .LT. 0.15 ) PHIM(I) = 1. + ZSTAR(I)
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F 3079 PHI 
     2     *(0.25+ZSTAR(I)*(0.09375+ZSTAR(I)*
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F 3080 PHI 
     3     (0.03125+0.00732422 * ZSTAR(I))))
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F 3087 PHI 
       PHIH(I) =1.+ Z(I) * (0.5+ZSTAR(I)*(0.375+ZSTAR(I)*
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F 3088 PHI 
     1     (0.5+ZSTAR(I)*(0.8203125+ZSTAR(I)*
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F 3089 PHI 
     2     (1.5+2.93262*ZSTAR(I))))))
./pkg/fizhi/fizhi_turb.F 2788 PHI 
      _RL ZSTAR(N),E1(N),E2(N),TEMP1(N)
./pkg/fizhi/fizhi_turb.F 2986 PHI 
       ZSTAR(I)    = 100. * Z(I) - 14.
./pkg/fizhi/fizhi_turb.F 2995 PHI 
       IF( Z(I) .GT. 2. ) ZSTAR(I) = TEMP1(I)
./pkg/fizhi/fizhi_turb.F 2996 PHI 
       IF( Z(I).GT.1.78e10 ) ZSTAR(I) = 384.9999
./pkg/fizhi/fizhi_turb.F 3002 PHI 
       I1(I) = ZSTAR(I)
./pkg/fizhi/fizhi_turb.F 3004 PHI 
       TEMP1(I) = ZSTAR(I) - I1(I)
./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 3040 PHI 
     2     *(0.25+ZSTAR(I)*(0.09375+ZSTAR(I)*
./pkg/fizhi/fizhi_turb.F 3041 PHI 
     3     (0.03125+0.00732422 * ZSTAR(I))))
./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 3049 PHI 
     1     (0.5+ZSTAR(I)*(0.8203125+ZSTAR(I)*
./pkg/fizhi/fizhi_turb.F 3050 PHI 
     2     (1.5+2.93262*ZSTAR(I))))))