Symbol Description Uses
FAC1 3


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