| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_gwdrag.F |
458 |
GWDD |
tensio(i,1) = 0.0 |
|
./pkg/fizhi/fizhi_gwdrag.F |
461 |
GWDD |
tensio(i,1) = gstar*(robar(i)*speed(i)*speed(i)*speed(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 |
467 |
GWDD |
dragsf(i) = tensio(i,1) |
|
./pkg/fizhi/fizhi_gwdrag.F |
477 |
GWDD |
tensio(i,L) = tensio(i,1) |
|
./pkg/fizhi/fizhi_gwdrag.F |
499 |
GWDD |
tensio(i,L) = tensio(i,L-1) |
|
./pkg/fizhi/fizhi_gwdrag.F |
505 |
GWDD |
fro2 = bv(i,L)/(akwnmb*roave*velco*velco*velco)*tensio(i,L-1) |
|
./pkg/fizhi/fizhi_gwdrag.F |
521 |
GWDD |
tensio(i,L) = tensio(i,L-1) |
|
./pkg/fizhi/fizhi_gwdrag.F |
533 |
GWDD |
tensio(i,L) = crif2/fro2*tensio(i,L-1) |
|
./pkg/fizhi/fizhi_gwdrag.F |
535 |
GWDD |
tensio(i,L) = tensio(i,L-1) |
|
./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 |
556 |
GWDD |
tensio(i,L) = 0.0 |
|
./pkg/fizhi/fizhi_gwdrag.F |
565 |
GWDD |
tensio(i,L) = tensio(i,L-1) |
|
./pkg/fizhi/fizhi_gwdrag.F |
574 |
GWDD |
tensio(i,L) = 0.0 |
|
./pkg/fizhi/fizhi_gwdrag.F |
588 |
GWDD |
tensio(i,L) = 0.0 |
|
./pkg/fizhi/fizhi_gwdrag.F |
594 |
GWDD |
fro2 = vaisd/(akwnmb*roave*velco*velco*velco)*tensio(i,L-1) |
|
./pkg/fizhi/fizhi_gwdrag.F |
609 |
GWDD |
tensio(i,L) = 0.0 |
|
./pkg/fizhi/fizhi_gwdrag.F |
621 |
GWDD |
tensio(i,L) = crif2/fro2*tensio(i,L-1) |
|
./pkg/fizhi/fizhi_gwdrag.F |
623 |
GWDD |
tensio(i,L) = tensio(i,L-1) |
|
./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)) |