Symbol Description Uses
ssc 18


File Line number Procedure Code
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F 1941 DELEDD 
      subroutine DELEDD(tau,ssc,g0,csm,rr,tt,td)
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F 1982 DELEDD 
      _RL  tau,ssc,g0,csm
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F 1999 DELEDD 
                xx  = one-ff*ssc
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F 2001 DELEDD 
                sscp= ssc*(one-ff)/xx
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F 2068 SAGPOL 
      subroutine SAGPOL(tau,ssc,g0,rll,tll)
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F 2104 SAGPOL 
      _RL  tau,ssc,g0
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F 2114 SAGPOL 
             xx  = one-ssc*g0
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F 2115 SAGPOL 
             uuu = sqrt( xx/(one-ssc))
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F 2116 SAGPOL 
             ttt = sqrt( xx*(one-ssc)*three )*tau
./pkg/fizhi/fizhi_swrad.F 1940 DELEDD 
      subroutine DELEDD(tau,ssc,g0,csm,rr,tt,td)
./pkg/fizhi/fizhi_swrad.F 1981 DELEDD 
      _RL  tau,ssc,g0,csm
./pkg/fizhi/fizhi_swrad.F 1998 DELEDD 
                xx  = one-ff*ssc
./pkg/fizhi/fizhi_swrad.F 2000 DELEDD 
                sscp= ssc*(one-ff)/xx
./pkg/fizhi/fizhi_swrad.F 2067 SAGPOL 
      subroutine SAGPOL(tau,ssc,g0,rll,tll)
./pkg/fizhi/fizhi_swrad.F 2103 SAGPOL 
      _RL  tau,ssc,g0
./pkg/fizhi/fizhi_swrad.F 2113 SAGPOL 
             xx  = one-ssc*g0
./pkg/fizhi/fizhi_swrad.F 2114 SAGPOL 
             uuu = sqrt( xx/(one-ssc))
./pkg/fizhi/fizhi_swrad.F 2115 SAGPOL 
             ttt = sqrt( xx*(one-ssc)*three )*tau