Symbol Description Uses
st7 12


File Line number Procedure Code
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F 1990 DELEDD 
     *     all1,bll,st7,st8,cll,dll,fll,ell,st1,st2,st3,st4
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F 2035 DELEDD 
                st7 = one - xx
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F 2039 DELEDD 
                cll = (alf2 + xx) * st7
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F 2044 DELEDD 
                ell = (alf1 - xx) * st7
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F 2046 DELEDD 
                st3 = max(abs(st7*st8),tumin)
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F 2047 DELEDD 
                st3 = sign (st3,st7)
./pkg/fizhi/fizhi_swrad.F 1989 DELEDD 
     *     all1,bll,st7,st8,cll,dll,fll,ell,st1,st2,st3,st4
./pkg/fizhi/fizhi_swrad.F 2034 DELEDD 
                st7 = one - xx
./pkg/fizhi/fizhi_swrad.F 2038 DELEDD 
                cll = (alf2 + xx) * st7
./pkg/fizhi/fizhi_swrad.F 2043 DELEDD 
                ell = (alf1 - xx) * st7
./pkg/fizhi/fizhi_swrad.F 2045 DELEDD 
                st3 = max(abs(st7*st8),tumin)
./pkg/fizhi/fizhi_swrad.F 2046 DELEDD 
                st3 = sign (st3,st7)