Symbol Description Uses
PHIM 6



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 2987 PHI
       PHIM(I)  = TEMP1(I) * ( E2(I)-E1(I) )
./pkg/fizhi/fizhi_turb.F 2988 PHI
       PHIM(I)  = PHIM(I) +   E1(I)
./pkg/fizhi/fizhi_turb.F 3013 PHI
       IF( Z(I) .LT. 0.15 ) PHIM(I) = 1. + ZSTAR(I)