| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_gwdrag.F |
160 |
GWDRAG |
call STRIPIT ( pz,ps,im*jm,im*jm,istrip,1 ,n ) |
|
./pkg/fizhi/fizhi_gwdrag.F |
170 |
GWDRAG |
call GWDD ( ps,us,vs,ts, |
|
./pkg/fizhi/fizhi_gwdrag.F |
295 |
GWDD |
SUBROUTINE GWDD ( ps,u,v,t,dudt,dvdt,xdrag,ydrag, |
|
./pkg/fizhi/fizhi_gwdrag.F |
341 |
GWDD |
_RL ps(irun) |
|
./pkg/fizhi/fizhi_gwdrag.F |
420 |
GWDD |
robar(i) = robar(i)/(ps(i)-ple(i,Lm+1-(nbase(i)-1))) * 100.0 |
|
./pkg/fizhi/fizhi_gwdrag.F |
421 |
GWDD |
ubar(i) = ubar(i)/(ps(i)-ple(i,Lm+1-(nbase(i)-1))) |
|
./pkg/fizhi/fizhi_gwdrag.F |
422 |
GWDD |
vbar(i) = vbar(i)/(ps(i)-ple(i,Lm+1-(nbase(i)-1))) |
|
./pkg/fizhi/fizhi_gwdrag.F |
638 |
GWDD |
coef = -grav*ps(i)/dpres(i,Lm+1-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 |
667 |
GWDD |
dudt(i,L) = - dudt(i,L)/ps(i)*0.01 |
|
./pkg/fizhi/fizhi_gwdrag.F |
668 |
GWDD |
dvdt(i,L) = - dvdt(i,L)/ps(i)*0.01 |
|
./pkg/fizhi/fizhi_gwdrag.F |
71 |
GWDRAG |
_RL std(istrip), ps(istrip) |