Searched refs:r_0 (Results 1 – 1 of 1) sorted by relevance
42 PetscReal r_0; // Ball radius member57 const PetscReal r_0 = par->r_0; in obstacle_ball() local59 const PetscReal psi_0 = PetscSqrtReal(1. - PetscSqr(r_0)); in obstacle_ball()60 const PetscReal dpsi_0 = -r_0 / psi_0; in obstacle_ball()64 if (r < r_0) u[0] = PetscSqrtReal(1.0 - PetscSqr(r)); in obstacle_ball()65 else u[0] = psi_0 + dpsi_0 * (r - r_0); in obstacle_ball()118 PetscCall(PetscBagRegisterReal(bag, &p->r_0, 0.9, "r_0", "Ball radius, m")); in SetupParameters()185 constants[0] = param->r_0; // Ball radius in SetupPrimalProblem()