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