Symbol | Description | Uses |
nbasei | 4 |
File | Line number | Procedure | Code |
./pkg/fizhi/fizhi_gwdrag.F | 108 | GWDRAG |
do nbasei = 1,Lm+1 |
./pkg/fizhi/fizhi_gwdrag.F | 109 | GWDRAG |
if( ple(i,j,Lm+2-nbasei).lt.(0.667*pz(i,j)) ) then |
./pkg/fizhi/fizhi_gwdrag.F | 110 | GWDRAG |
nbase(i,j) = nbasei |
./pkg/fizhi/fizhi_gwdrag.F | 67 | GWDRAG |
integer nthini, nbasei |