Lines Matching refs:f0
43 …Real t, const PetscReal x[], PetscInt numConstants, const PetscScalar constants[], PetscScalar *f0) in f0_vz() argument
45 if (dim == 2) f0[0] = u[0] * (2. * PETSC_PI * x[0]) * x[1]; /* n r v_|| */ in f0_vz()
46 else f0[0] = u[0] * x[2]; in f0_vz()
49 …Real t, const PetscReal x[], PetscInt numConstants, const PetscScalar constants[], PetscScalar *f0) in f0_v2_par_shift() argument
52 …if (dim == 2) *f0 = u[0] * (2. * PETSC_PI * x[0]) * (x[1] - vz) * (x[1] - vz); /* n r v^2_par|perp… in f0_v2_par_shift()
53 else *f0 = u[0] * (x[2] - vz) * (x[2] - vz); in f0_v2_par_shift()
55 …Real t, const PetscReal x[], PetscInt numConstants, const PetscScalar constants[], PetscScalar *f0) in f0_v2_perp() argument
57 if (dim == 2) *f0 = u[0] * (2. * PETSC_PI * x[0]) * x[0] * x[0]; /* n r v^2_perp */ in f0_v2_perp()
58 else *f0 = u[0] * (x[0] * x[0] + x[1] * x[1]); in f0_v2_perp()
61 …Real t, const PetscReal x[], PetscInt numConstants, const PetscScalar constants[], PetscScalar *f0) in f0_n() argument
63 if (dim == 2) f0[0] = 2. * PETSC_PI * x[0] * u[0]; in f0_n()
64 else f0[0] = u[0]; in f0_n()
66 …Real t, const PetscReal x[], PetscInt numConstants, const PetscScalar constants[], PetscScalar *f0) in f0_v2_shift() argument
69 if (dim == 2) f0[0] = u[0] * (2. * PETSC_PI * x[0]) * (x[0] * x[0] + (x[1] - vz) * (x[1] - vz)); in f0_v2_shift()
70 else f0[0] = u[0] * (x[0] * x[0] + x[1] * x[1] + (x[2] - vz) * (x[2] - vz)); in f0_v2_shift()