| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_gwdrag.F |
466 |
GWDD |
ytens(i,1) = tensio(i,1) * sin(ang(i)) |
|
./pkg/fizhi/fizhi_gwdrag.F |
469 |
GWDD |
ydrag(i) = ytens(i,1) |
|
./pkg/fizhi/fizhi_gwdrag.F |
479 |
GWDD |
ytens(i,L) = ytens(i,1) |
|
./pkg/fizhi/fizhi_gwdrag.F |
540 |
GWDD |
ytens(i,L) = tensio(i,L)*sin(ang(i)) |
|
./pkg/fizhi/fizhi_gwdrag.F |
628 |
GWDD |
ytens(i,L) = tensio(i,L)*sin(ang(i)) |
|
./pkg/fizhi/fizhi_gwdrag.F |
640 |
GWDD |
dvdt(i,Lm+1-L) = coef*(ytens(i,L+1)-ytens(i,L)) |
|
./pkg/fizhi/fizhi_gwdrag.F |
649 |
GWDD |
dvdt(i,Lm) = coef*(ytens(i,nthin(i)+1)-ytens(i,1)) |