| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_gwdrag.F |
110 |
GWDRAG |
nbase(i,j) = nbasei |
|
./pkg/fizhi/fizhi_gwdrag.F |
115 |
GWDRAG |
if( (0.667*pz(i,j))-ple(i,j,Lm+2-nbase(i,j)) .gt. |
|
./pkg/fizhi/fizhi_gwdrag.F |
116 |
GWDRAG |
. ple(i,j,Lm+3-nbase(i,j))-(0.667*pz(i,j)) ) then |
|
./pkg/fizhi/fizhi_gwdrag.F |
117 |
GWDRAG |
nbase(i,j) = nbase(i,j)-1 |
|
./pkg/fizhi/fizhi_gwdrag.F |
168 |
GWDRAG |
call STRIPITINT ( nbase,nbasestr,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 |
412 |
GWDD |
do L = 1,nbase(i)-1 |
|
./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 |
431 |
GWDD |
do l = 2,nbase(i) |
|
./pkg/fizhi/fizhi_gwdrag.F |
448 |
GWDD |
do l = 2,nbase(i) |
|
./pkg/fizhi/fizhi_gwdrag.F |
454 |
GWDD |
nbar(i) = nbar(i)/(pl(i,Lm)-pl(i,Lm+1-nbase(i))) |
|
./pkg/fizhi/fizhi_gwdrag.F |
489 |
GWDD |
do l = nthin(i)+1,nbase(i) |
|
./pkg/fizhi/fizhi_gwdrag.F |
554 |
GWDD |
do l = nbase(i)+1,Lm+1 |
|
./pkg/fizhi/fizhi_gwdrag.F |
66 |
GWDRAG |
integer nthin(im,jm),nbase(im,jm) |