Symbol Description Uses
xk 12



File Line number Procedure Code
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F 1241 SOLIR
      _RL  xk(nk),hk(nband,nk),ssaal(nband),asyal(nband)
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F 1262 SOLIR
      data xk/            
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F 1389 SOLIR
             tauwv=xk(ik)*wh(i,j,k)
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F 1664 SOLUV
      _RL  hk(nband),xk(nband),ry(nband)
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F 1687 SOLUV
      data xk /30.47, 187.2,  301.9,   42.83,
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F 1779 SOLUV
          tauoz=xk(ib)*oh(i,j,k)
./pkg/fizhi/fizhi_swrad.F 1240 SOLIR
      _RL  xk(nk),hk(nband,nk),ssaal(nband),asyal(nband)
./pkg/fizhi/fizhi_swrad.F 1261 SOLIR
      data xk/            
./pkg/fizhi/fizhi_swrad.F 1388 SOLIR
             tauwv=xk(ik)*wh(i,j,k)
./pkg/fizhi/fizhi_swrad.F 1663 SOLUV
      _RL  hk(nband),xk(nband),ry(nband)
./pkg/fizhi/fizhi_swrad.F 1686 SOLUV
      data xk /30.47, 187.2,  301.9,   42.83,
./pkg/fizhi/fizhi_swrad.F 1778 SOLUV
          tauoz=xk(ib)*oh(i,j,k)