| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_gwdrag.F |
371 |
GWDD |
_RL richsn,crifro,crif2,fro2,coef |
|
./pkg/fizhi/fizhi_gwdrag.F |
638 |
GWDD |
coef = -grav*ps(i)/dpres(i,Lm+1-L) |
|
./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 |
640 |
GWDD |
dvdt(i,Lm+1-L) = coef*(ytens(i,L+1)-ytens(i,L)) |
|
./pkg/fizhi/fizhi_gwdrag.F |
647 |
GWDD |
coef = grav*ps(i)/(ple(i,Lm+1-nthin(i))-ple(i,Lm+1)) |
|
./pkg/fizhi/fizhi_gwdrag.F |
648 |
GWDD |
dudt(i,Lm) = coef*(xtens(i,nthin(i)+1)-xtens(i,1)) |
|
./pkg/fizhi/fizhi_gwdrag.F |
649 |
GWDD |
dvdt(i,Lm) = coef*(ytens(i,nthin(i)+1)-ytens(i,1)) |