Symbol Description Uses
PHIH 8


File Line number Procedure Code
./pkg/fizhi/fizhi_turb.F 2741 PHI 
      SUBROUTINE PHI(Z,PHIM,PHIH,IFLAG,N)
./pkg/fizhi/fizhi_turb.F 2758 PHI 
      _RL PHIM(N),PHIH(N),Z(N)
./pkg/fizhi/fizhi_turb.F 2999 PHI 
       PHIH(I)  = TEMP1(I) * ( E2(I)-E1(I) )
./pkg/fizhi/fizhi_turb.F 3000 PHI 
       PHIH(I)  = PHIH(I) +   E1(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 3025 PHI 
       PHIH(I) = 1. / PHIH(I)