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

removed arguments Fe and Fp from collectDeltaState function call

This commit is contained in:
Christoph Kords 2012-05-17 11:04:22 +00:00
parent a54439e3b5
commit f6d5efeed3
2 changed files with 3 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
code/constitutive.f90
View File

@ -769,7 +769,7 @@ endsubroutine
!* calculating the incremental change of microstructure based on the *
!* state at the beginning of the timestep *
!*********************************************************************
subroutine constitutive_collectDeltaState(Tstar_v, Fe, Fp, Temperature, ipc, ip, el)
subroutine constitutive_collectDeltaState(Tstar_v, Temperature, ipc, ip, el)
use prec, only: pReal, pLongInt
use debug, only: debug_cumDeltaStateCalls, &
@ -799,9 +799,6 @@ integer(pInt), intent(in) :: ipc, & ! component-ID of current integrat
ip, & ! current integration point
el ! current element
real(pReal), intent(in) :: Temperature
real(pReal), dimension(3,3,homogenization_maxNgrains,mesh_maxNips,mesh_NcpElems), intent(in) :: &
Fe, & ! elastic deformation gradient
Fp ! plastic deformation gradient
real(pReal), dimension(6), intent(in) :: &
Tstar_v ! 2nd Piola Kirchhoff stress tensor (Mandel)
!*** local variables
@ -828,7 +825,7 @@ select case (phase_plasticity(material_phase(ipc,ip,el)))
constitutive_deltaState(ipc,ip,el)%p = constitutive_dislotwin_deltaState(Tstar_v,Temperature,constitutive_subState0,ipc,ip,el)
case (constitutive_nonlocal_label)
constitutive_deltaState(ipc,ip,el)%p = constitutive_nonlocal_deltaState(Tstar_v, Fe, Fp, Temperature, constitutive_subState0, ipc, ip, el)
constitutive_deltaState(ipc,ip,el)%p = constitutive_nonlocal_deltaState(Tstar_v,Temperature,constitutive_subState0,ipc,ip,el)
end select

5
code/constitutive_nonlocal.f90
View File

@ -1524,7 +1524,7 @@ endsubroutine
!*********************************************************************
!* incremental change of microstructure *
!*********************************************************************
function constitutive_nonlocal_deltaState(Tstar_v, Fe, Fp, Temperature, state, g,ip,el)
function constitutive_nonlocal_deltaState(Tstar_v, Temperature, state, g,ip,el)
use prec, only: pReal, &
pInt, &
@ -1543,9 +1543,6 @@ integer(pInt), intent(in) :: g, & ! current
el ! current element number
real(pReal), intent(in) :: Temperature ! temperature
real(pReal), dimension(6), intent(in) :: Tstar_v ! current 2nd Piola-Kirchhoff stress in Mandel notation
real(pReal), dimension(3,3,homogenization_maxNgrains,mesh_maxNips,mesh_NcpElems), intent(in) :: &
Fe, & ! elastic deformation gradient
Fp ! plastic deformation gradient
type(p_vec), dimension(homogenization_maxNgrains,mesh_maxNips,mesh_NcpElems), intent(in) :: &
state ! current microstructural state