Symbol Description Uses
FAC1 6


File Line number Procedure Code
./pkg/fizhi/fizhi_turb.F 1710 TRBFLX 
       FAC1 = DPSTR(I,L) / ( DPSTR(I,L) + DPSTR(I,LP1) )
./pkg/fizhi/fizhi_turb.F 1711 TRBFLX 
       FAC2 = 1. - FAC1
./pkg/fizhi/fizhi_turb.F 1712 TRBFLX 
       RHODZ2(I,L) = FAC1 * THV(I,LP1)