File |
Line number |
Procedure |
Code |
./verification/advect_cs/code/ini_vel.F |
38 |
INI_VEL |
_RL psi,omegaprime,fac |
./verification/advect_cs/code/ini_vel.F |
50 |
INI_VEL |
omegaprime=38.60328935834681d0/rSphere |
./verification/advect_cs/code/ini_vel.F |
51 |
INI_VEL |
fac=-(rSphere**2)*omegaprime/(2.d0*Omega) |
./verification/solid-body.cs-32x32x1/code/ini_psurf.F |
36 |
INI_PSURF |
_RL omegaprime,fac |
./verification/solid-body.cs-32x32x1/code/ini_psurf.F |
39 |
INI_PSURF |
omegaprime=38.60328935834681d0/rSphere |
./verification/solid-body.cs-32x32x1/code/ini_psurf.F |
40 |
INI_PSURF |
fac=-(rSphere**2)*omegaprime*(Omega+omegaprime)/(4.d0*(Omega**2)) |
./verification/solid-body.cs-32x32x1/code/ini_vel.F |
36 |
INI_VEL |
_RL psi,omegaprime,fac |
./verification/solid-body.cs-32x32x1/code/ini_vel.F |
47 |
INI_VEL |
omegaprime=38.60328935834681d0/rSphere |
./verification/solid-body.cs-32x32x1/code/ini_vel.F |
48 |
INI_VEL |
fac=-(rSphere**2)*omegaprime/(2.d0*Omega) |