Symbol Description Uses
xtens 10



File Line number Procedure Code
./pkg/fizhi/fizhi_gwdrag.F 465 GWDD
       xtens(i,1) = tensio(i,1) * cos(ang(i))
./pkg/fizhi/fizhi_gwdrag.F 468 GWDD
       xdrag(i) = xtens(i,1)
./pkg/fizhi/fizhi_gwdrag.F 478 GWDD
         xtens(i,L) = xtens(i,1)
./pkg/fizhi/fizhi_gwdrag.F 539 GWDD
        xtens(i,L) = tensio(i,L)*cos(ang(i))
./pkg/fizhi/fizhi_gwdrag.F 627 GWDD
        xtens(i,L) = tensio(i,L)*cos(ang(i))
./pkg/fizhi/fizhi_gwdrag.F 639 GWDD
       dudt(i,Lm+1-L) = coef*(xtens(i,L+1)-xtens(i,L))
./pkg/fizhi/fizhi_gwdrag.F 648 GWDD
       dudt(i,Lm) = coef*(xtens(i,nthin(i)+1)-xtens(i,1))