Symbol Description Uses
st7 6


File Line number Procedure Code
./pkg/fizhi/fizhi_swrad.F 1997 DELEDD 
     *     all1,bll,st7,st8,cll,dll,fll,ell,st1,st2,st3,st4
./pkg/fizhi/fizhi_swrad.F 2042 DELEDD 
                st7 = one - xx
./pkg/fizhi/fizhi_swrad.F 2046 DELEDD 
                cll = (alf2 + xx) * st7
./pkg/fizhi/fizhi_swrad.F 2051 DELEDD 
                ell = (alf1 - xx) * st7
./pkg/fizhi/fizhi_swrad.F 2053 DELEDD 
                st3 = max(abs(st7*st8),tumin)
./pkg/fizhi/fizhi_swrad.F 2054 DELEDD 
                st3 = sign (st3,st7)