223031012
/
DAMASK_EICMD
mirror of https://github.com/achalhp/DAMASK_EICMD.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity

removed unused variable.

This commit is contained in:
Luv Sharma 2015-01-04 20:13:16 +00:00
parent 460c0d73fa
commit 8610531aae
2 changed files with 2 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
code/constitutive.f90
View File

@ -1783,15 +1783,13 @@ function constitutive_getVacancyMobility33(ipc, ip, el)
el !< element number el !< element number
real(pReal), dimension(3,3) :: & real(pReal), dimension(3,3) :: &
constitutive_getVacancyMobility33 constitutive_getVacancyMobility33
real(pReal), dimension(:), allocatable :: &
accumulatedSlip
integer(pInt) :: & integer(pInt) :: &
nSlip nSlip
select case(phase_vacancy(material_phase(ipc,ip,el))) select case(phase_vacancy(material_phase(ipc,ip,el)))
case (LOCAL_VACANCY_generation_ID) case (LOCAL_VACANCY_generation_ID)
constitutive_getVacancyMobility33 = & constitutive_getVacancyMobility33 = &
vacancy_generation_getVacancyMobility33(nSlip,accumulatedSlip,constitutive_getTemperature(ipc,ip,el), & vacancy_generation_getVacancyMobility33(nSlip,constitutive_getTemperature(ipc,ip,el), &
ipc,ip,el) ipc,ip,el)
end select end select

4
code/vacancy_generation.f90
View File

@ -439,7 +439,7 @@ end function vacancy_generation_getVacancyDiffusion33
!-------------------------------------------------------------------------------------------------- !--------------------------------------------------------------------------------------------------
!> @brief returns generation vacancy mobility tensor !> @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: & use math, only: &
math_I3 math_I3
use material, only: & use material, only: &
@ -454,8 +454,6 @@ function vacancy_generation_getVacancyMobility33(nSlip,accumulatedSlip,temperatu
el !< element number el !< element number
real(pReal), dimension(3,3) :: & real(pReal), dimension(3,3) :: &
vacancy_generation_getVacancyMobility33 vacancy_generation_getVacancyMobility33
real(pReal), dimension(nSlip) :: &
accumulatedSlip
real(pReal) :: & real(pReal) :: &
temperature temperature
integer(pInt) :: & integer(pInt) :: &