Symbol Description Uses
gm3 8


File Line number Procedure Code
./pkg/fizhi/fizhi_swrad.F 1996 DELEDD 
      _RL  zth,ff,xx,taup,sscp,gp,gm1,gm2,gm3,akk,alf1,alf2,
./pkg/fizhi/fizhi_swrad.F 2022 DELEDD 
                gm3 =  (two   -        zth*xx )*fourth
./pkg/fizhi/fizhi_swrad.F 2031 DELEDD 
                alf1 = gm1 - gm3 * xx
./pkg/fizhi/fizhi_swrad.F 2032 DELEDD 
                alf2 = gm2 + gm3 * xx
./pkg/fizhi/fizhi_swrad.F 2038 DELEDD 
                all1 = (gm3 - alf2 * zth    )*xx*td
./pkg/fizhi/fizhi_swrad.F 2039 DELEDD 
                bll = (one - gm3 + alf1*zth)*xx
./pkg/fizhi/fizhi_swrad.F 2045 DELEDD 
                xx  = akk * gm3
./pkg/fizhi/fizhi_swrad.F 2049 DELEDD 
                xx  = akk * (one-gm3)