Symbol Description Uses
gstar 3



File Line number Procedure Code
./pkg/fizhi/fizhi_gwdrag.F 369 GWDD
      _RL gocp,roave,roiave,frsf,gstar,vai1,vai2
./pkg/fizhi/fizhi_gwdrag.F 460 GWDD
        gstar = g*frsf*frsf/(frsf*frsf+a*a)
./pkg/fizhi/fizhi_gwdrag.F 461 GWDD
        tensio(i,1) = gstar*(robar(i)*speed(i)*speed(i)*speed(i))