Symbol Description Uses
robar 7



File Line number Procedure Code
./pkg/fizhi/fizhi_gwdrag.F 353 GWDD
      _RL ubar(irun), vbar(irun), robar(irun)
./pkg/fizhi/fizhi_gwdrag.F 406 GWDD
       robar(i) = 0.0
./pkg/fizhi/fizhi_gwdrag.F 413 GWDD
       robar(i) = robar(i) + ro(i,L) * (ple(i,Lm+2-L)-ple(i,Lm+1-L))
./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 461 GWDD
        tensio(i,1) = gstar*(robar(i)*speed(i)*speed(i)*speed(i))