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)) |