Searched refs:F2_zt (Results 1 – 1 of 1) sorted by relevance
608 PetscScalar F2_zt = 0.0; in terzaghi_2d_eps_t() local611 …if (m % 2 == 1) F2_zt += ((-m * PETSC_PI * c) / (L * L * L)) * PetscSinReal(0.5 * m * PETSC_PI * z… in terzaghi_2d_eps_t()613 u[0] = ((P_0 * L * (nu_u - nu)) / (2.0 * G * (1.0 - nu_u) * (1.0 - nu))) * F2_zt; /* 1 / s */ in terzaghi_2d_eps_t()