diff --git a/code/constitutive.f90 b/code/constitutive.f90 index 8f8d1dc70..09a5093bb 100644 --- a/code/constitutive.f90 +++ b/code/constitutive.f90 @@ -1783,15 +1783,13 @@ function constitutive_getVacancyMobility33(ipc, ip, el) el !< element number real(pReal), dimension(3,3) :: & constitutive_getVacancyMobility33 - real(pReal), dimension(:), allocatable :: & - accumulatedSlip integer(pInt) :: & nSlip select case(phase_vacancy(material_phase(ipc,ip,el))) case (LOCAL_VACANCY_generation_ID) constitutive_getVacancyMobility33 = & - vacancy_generation_getVacancyMobility33(nSlip,accumulatedSlip,constitutive_getTemperature(ipc,ip,el), & + vacancy_generation_getVacancyMobility33(nSlip,constitutive_getTemperature(ipc,ip,el), & ipc,ip,el) end select diff --git a/code/vacancy_generation.f90 b/code/vacancy_generation.f90 index a612fc127..4894bf4e4 100644 --- a/code/vacancy_generation.f90 +++ b/code/vacancy_generation.f90 @@ -439,7 +439,7 @@ end function vacancy_generation_getVacancyDiffusion33 !-------------------------------------------------------------------------------------------------- !> @brief returns generation vacancy mobility tensor !-------------------------------------------------------------------------------------------------- -function vacancy_generation_getVacancyMobility33(nSlip,accumulatedSlip,temperature,ipc,ip,el) +function vacancy_generation_getVacancyMobility33(nSlip,temperature,ipc,ip,el) use math, only: & math_I3 use material, only: & @@ -454,8 +454,6 @@ function vacancy_generation_getVacancyMobility33(nSlip,accumulatedSlip,temperatu el !< element number real(pReal), dimension(3,3) :: & vacancy_generation_getVacancyMobility33 - real(pReal), dimension(nSlip) :: & - accumulatedSlip real(pReal) :: & temperature integer(pInt) :: &