Symbol Description Uses
Rpi 4



File Line number Procedure Code
./verification/advect_xz/code/ini_vel.F 26 INI_VEL
      _RL psi,Lfac,Rpi
./verification/advect_xz/code/ini_vel.F 27 INI_VEL
      psi(i,j,k,bi,bj)=Lfac*sin(XG(i,j,bi,bj)*Rpi/Lfac)
./verification/advect_xz/code/ini_vel.F 30 INI_VEL
     &                   )*Rpi*recip_Rcol(i,j,bi,bj))
./verification/advect_xz/code/ini_vel.F 32 INI_VEL
      Rpi=3.14159265358979 _d 0