Searched refs:A_s (Results 1 – 1 of 1) sorted by relevance
729 PetscReal A_s = 0.0; in mandel_initial_u() local733 …A_s += ((PetscSinReal(alpha_n) * PetscCosReal(alpha_n)) / (alpha_n - PetscSinReal(alpha_n) * Petsc… in mandel_initial_u()736 u[0] = ((P_0 * nu) / (2.0 * G * a) - (P_0 * nu_u) / (G * a) * A_s) * x[0] + P_0 / G * B_s; in mandel_initial_u()737 u[1] = (-1 * (P_0 * (1.0 - nu)) / (2 * G * a) + (P_0 * (1 - nu_u)) / (G * a) * A_s) * x[1]; in mandel_initial_u()