Symbol Description Uses
ro 8



File Line number Procedure Code
./pkg/fizhi/fizhi_gwdrag.F 385 GWDD
       ro(i,L) = pl(i,Lm+1-L)/(rgas*t(i,Lm+1-L))
./pkg/fizhi/fizhi_gwdrag.F 393 GWDD
       roiave  = ( 1./ro(i,L-1) + 1./ro(i,L) )*0.5
./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 496 GWDD
        roave = 0.5*(ro(i,L-1)+ro(i,L)) * 100.0     
./pkg/fizhi/fizhi_gwdrag.F 569 GWDD
        roave = 0.5*(ro(i,L-1)+ro(i,L)) * 100.0