Symbol Description Uses
up1 5


File Line number Procedure Code
./pkg/fizhi/fizhi_swrad.F 2119 SAGPOL 
      _RL  xx,uuu,ttt,emt,up1,um1,st1
./pkg/fizhi/fizhi_swrad.F 2125 SAGPOL 
             up1 = uuu + one
./pkg/fizhi/fizhi_swrad.F 2128 SAGPOL 
             st1 = one / ((up1+xx) * (up1-xx))
./pkg/fizhi/fizhi_swrad.F 2129 SAGPOL 
             rll = up1*um1*(one-emt*emt)*st1