Symbol Description Uses
gm1 7



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 2020 DELEDD
                gm1 =  (seven - sscp*(four+xx))*fourth
./pkg/fizhi/fizhi_swrad.F 2026 DELEDD
                xx  = gm1-gm2
./pkg/fizhi/fizhi_swrad.F 2027 DELEDD
                akk = sqrt((gm1+gm2)*xx)
./pkg/fizhi/fizhi_swrad.F 2031 DELEDD
                alf1 = gm1 - gm3 * xx
./pkg/fizhi/fizhi_swrad.F 2059 DELEDD
                st1 =  sscp / ((akk+gm1 + (akk-gm1)*st4) * st3)