| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_gwdrag.F |
103 |
GWDRAG |
nthin(i,j) = nthini |
|
./pkg/fizhi/fizhi_gwdrag.F |
167 |
GWDRAG |
call STRIPITINT ( nthin,nthinstr,im*jm,im*jm,istrip,1,n ) |
|
./pkg/fizhi/fizhi_gwdrag.F |
297 |
GWDD |
. grav,rgas,cp,irun,Lm,nthin,nbase,lstar ) |
|
./pkg/fizhi/fizhi_gwdrag.F |
348 |
GWDD |
integer nthin(irun),nbase(irun) |
|
./pkg/fizhi/fizhi_gwdrag.F |
475 |
GWDD |
if( nthin(i).gt.1 ) then |
|
./pkg/fizhi/fizhi_gwdrag.F |
476 |
GWDD |
do l = 1,nthin(i) |
|
./pkg/fizhi/fizhi_gwdrag.F |
489 |
GWDD |
do l = nthin(i)+1,nbase(i) |
|
./pkg/fizhi/fizhi_gwdrag.F |
637 |
GWDD |
do l = nthin(i)+1,Lm |
|
./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)) |
|
./pkg/fizhi/fizhi_gwdrag.F |
655 |
GWDD |
if( nthin(i).gt.1 ) then |
|
./pkg/fizhi/fizhi_gwdrag.F |
656 |
GWDD |
do l = 2,nthin(i) |
|
./pkg/fizhi/fizhi_gwdrag.F |
66 |
GWDRAG |
integer nthin(im,jm),nbase(im,jm) |