Searched refs:F2_z (Results 1 – 1 of 1) sorted by relevance
496 PetscScalar F2_z = 0.0; in terzaghi_2d_eps() local499 …if (m % 2 == 1) F2_z += (-4.0 / (m * PETSC_PI * L)) * PetscSinReal(0.5 * m * PETSC_PI * zstar) * (… in terzaghi_2d_eps()501 …0 - nu_u) * L)) + ((P_0 * L * (nu_u - nu)) / (2.0 * G * (1.0 - nu_u) * (1.0 - nu))) * F2_z; /* - */ in terzaghi_2d_eps()