Symbol Description Uses
Lfac 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 33 INI_VEL
      Lfac=(DELX(1)*float(Nx))