Symbol Description Uses
akk 18


File Line number Procedure Code
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F 1989 DELEDD 
      _RL  zth,ff,xx,taup,sscp,gp,gm1,gm2,gm3,akk,alf1,alf2,
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F 2020 DELEDD 
                akk = sqrt((gm1+gm2)*xx)
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F 2030 DELEDD 
                xx  = akk * two
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F 2034 DELEDD 
                xx  = akk * zth
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F 2038 DELEDD 
                xx  = akk * gm3
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F 2042 DELEDD 
                xx  = akk * (one-gm3)
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F 2049 DELEDD 
                st2 = expmn(-akk*taup)
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F 2052 DELEDD 
                st1 =  sscp / ((akk+gm1 + (akk-gm1)*st4) * st3)
./pkg/fizhi/fizhi_swrad.F 1988 DELEDD 
      _RL  zth,ff,xx,taup,sscp,gp,gm1,gm2,gm3,akk,alf1,alf2,
./pkg/fizhi/fizhi_swrad.F 2019 DELEDD 
                akk = sqrt((gm1+gm2)*xx)
./pkg/fizhi/fizhi_swrad.F 2029 DELEDD 
                xx  = akk * two
./pkg/fizhi/fizhi_swrad.F 2033 DELEDD 
                xx  = akk * zth
./pkg/fizhi/fizhi_swrad.F 2037 DELEDD 
                xx  = akk * gm3
./pkg/fizhi/fizhi_swrad.F 2041 DELEDD 
                xx  = akk * (one-gm3)
./pkg/fizhi/fizhi_swrad.F 2048 DELEDD 
                st2 = expmn(-akk*taup)
./pkg/fizhi/fizhi_swrad.F 2051 DELEDD 
                st1 =  sscp / ((akk+gm1 + (akk-gm1)*st4) * st3)