Symbol Description Uses
fourth 5



File Line number Procedure Code
./pkg/fizhi/fizhi_swrad.F 1982 DELEDD
      _RL  zero,one,two,three,four,fourth,seven,tumin
./pkg/fizhi/fizhi_swrad.F 1985 DELEDD
      parameter (four=4., fourth=.25)
./pkg/fizhi/fizhi_swrad.F 2020 DELEDD
                gm1 =  (seven - sscp*(four+xx))*fourth
./pkg/fizhi/fizhi_swrad.F 2021 DELEDD
                gm2 = -(one   - sscp*(four-xx))*fourth
./pkg/fizhi/fizhi_swrad.F 2022 DELEDD
                gm3 =  (two   -        zth*xx )*fourth