Lines Matching refs:rad
36 PetscReal trace, mu = s_mu, lambda = s_lambda, rad; in f1_u_3d_alpha() local
38 for (i = 0, rad = 0.; i < dim; i++) { in f1_u_3d_alpha()
40 rad += t * t; in f1_u_3d_alpha()
42 rad = PetscSqrtReal(rad); in f1_u_3d_alpha()
43 if (rad > 0.25) { in f1_u_3d_alpha()
128 PetscReal mu = s_mu, lambda = s_lambda, rad; in g3_uu_3d_alpha() local
130 for (i = 0, rad = 0.; i < dim; i++) { in g3_uu_3d_alpha()
132 rad += t * t; in g3_uu_3d_alpha()
134 rad = PetscSqrtReal(rad); in g3_uu_3d_alpha()
135 if (rad > 0.25) { in g3_uu_3d_alpha()
155 PetscReal lambda = 1, rad; in g3_lap_alpha() local
157 for (i = 0, rad = 0.; i < dim; i++) { in g3_lap_alpha()
159 rad += t * t; in g3_lap_alpha()
161 rad = PetscSqrtReal(rad); in g3_lap_alpha()
162 if (rad > 0.25) lambda *= s_soft_alpha; /* we could keep the bulk the same like rubberish */ in g3_lap_alpha()