Symbol Description Uses
FAC1 3



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