diff --git a/src/phase_mechanical_elastic.f90 b/src/phase_mechanical_elastic.f90 index 326c23c7a..f253a0f5d 100644 --- a/src/phase_mechanical_elastic.f90 +++ b/src/phase_mechanical_elastic.f90 @@ -146,7 +146,7 @@ module function elastic_nu(ph) result(nu) integer, intent(in) :: ph - nu = param(ph)%mu + nu = param(ph)%nu end function elastic_nu