Symbol Description Uses
xk 6



File Line number Procedure Code
./pkg/fizhi/fizhi_swrad.F 1248 SOLIR
      _RL  xk(nk),hk(nband,nk),ssaal(nband),asyal(nband)
./pkg/fizhi/fizhi_swrad.F 1269 SOLIR
      data xk/
./pkg/fizhi/fizhi_swrad.F 1396 SOLIR
             tauwv=xk(ik)*wh(i,j,k)
./pkg/fizhi/fizhi_swrad.F 1671 SOLUV
      _RL  hk(nband),xk(nband),ry(nband)
./pkg/fizhi/fizhi_swrad.F 1694 SOLUV
      data xk /30.47, 187.2,  301.9,   42.83,
./pkg/fizhi/fizhi_swrad.F 1786 SOLUV
          tauoz=xk(ib)*oh(i,j,k)