Symbol Description Uses
PHIH 8


File Line number Procedure Code
./pkg/fizhi/fizhi_turb.F 3190 PHI 
      SUBROUTINE PHI(Z,PHIM,PHIH,IFLAG,N)
./pkg/fizhi/fizhi_turb.F 3210 PHI 
      _RL PHIM(N),PHIH(N),Z(N)
./pkg/fizhi/fizhi_turb.F 3451 PHI 
       PHIH(I)  = TEMP1(I) * ( E2(I)-E1(I) )
./pkg/fizhi/fizhi_turb.F 3452 PHI 
       PHIH(I)  = PHIH(I) +   E1(I)
./pkg/fizhi/fizhi_turb.F 3474 PHI 
       PHIH(I) =1.+ Z(I) * (0.5+ZSTAR(I)*(0.375+ZSTAR(I)*
./pkg/fizhi/fizhi_turb.F 3477 PHI 
       PHIH(I) = 1. / PHIH(I)