| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_gwdrag.F |
354 |
GWDD |
_RL speed(irun), ang(irun) |
|
./pkg/fizhi/fizhi_gwdrag.F |
425 |
GWDD |
ang(i) = atan2(vbar(i),ubar(i)) |
|
./pkg/fizhi/fizhi_gwdrag.F |
465 |
GWDD |
xtens(i,1) = tensio(i,1) * cos(ang(i)) |
|
./pkg/fizhi/fizhi_gwdrag.F |
466 |
GWDD |
ytens(i,1) = tensio(i,1) * sin(ang(i)) |
|
./pkg/fizhi/fizhi_gwdrag.F |
539 |
GWDD |
xtens(i,L) = tensio(i,L)*cos(ang(i)) |
|
./pkg/fizhi/fizhi_gwdrag.F |
540 |
GWDD |
ytens(i,L) = tensio(i,L)*sin(ang(i)) |
|
./pkg/fizhi/fizhi_gwdrag.F |
627 |
GWDD |
xtens(i,L) = tensio(i,L)*cos(ang(i)) |
|
./pkg/fizhi/fizhi_gwdrag.F |
628 |
GWDD |
ytens(i,L) = tensio(i,L)*sin(ang(i)) |