Symbol Description Uses
nbar 9



File Line number Procedure Code
./pkg/fizhi/fizhi_gwdrag.F 356 GWDD
      _RL nbar(irun)
./pkg/fizhi/fizhi_gwdrag.F 445 GWDD
       nbar(i) = 0.0
./pkg/fizhi/fizhi_gwdrag.F 449 GWDD
       nbar(i) = nbar(i) + bv(i,L)*(pl(i,Lm+2-L)-pl(i,Lm+1-L))
./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 455 GWDD
       frsf = nbar(i)*std(i)/speed(i)
./pkg/fizhi/fizhi_gwdrag.F 457 GWDD
       if( speed(i).eq.0.0 .or. nbar(i).eq.0.0 ) then
./pkg/fizhi/fizhi_gwdrag.F 462 GWDD
     .            / (nbar(i)*lstar)