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

variables were not used

This commit is contained in:
Martin Diehl 2019-01-23 23:18:14 +01:00
parent ae931c49a1
commit 1cccd761cd
1 changed files with 6 additions and 23 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

29
src/crystallite.f90
View File

@ -1601,7 +1601,6 @@ subroutine integrateStateFPI()
tempSourceState tempSourceState
logical :: & logical :: &
converged, & converged, &
NaN, &
singleRun, & ! flag indicating computation for single (g,i,e) triple singleRun, & ! flag indicating computation for single (g,i,e) triple
doneWithIntegration doneWithIntegration
@ -1890,9 +1889,6 @@ subroutine integrateStateEuler()
mesh_element, & mesh_element, &
mesh_NcpElems mesh_NcpElems
use material, only: & use material, only: &
plasticState, &
sourceState, &
phaseAt, phasememberAt, &
phase_Nsources, & phase_Nsources, &
homogenization_Ngrains homogenization_Ngrains
use constitutive, only: & use constitutive, only: &
@ -1904,19 +1900,14 @@ subroutine integrateStateEuler()
integer(pInt) :: & integer(pInt) :: &
e, & ! element index in element loop e, & ! element index in element loop
i, & ! integration point index in ip loop i, & ! integration point index in ip loop
g, & ! grain index in grain loop g ! grain index in grain loop
p, & ! phase loop
c, &
mySource, &
mySizePlasticDotState, &
mySizeSourceDotState
integer(pInt), dimension(2) :: & integer(pInt), dimension(2) :: &
eIter ! bounds for element iteration eIter ! bounds for element iteration
integer(pInt), dimension(2,mesh_NcpElems) :: & integer(pInt), dimension(2,mesh_NcpElems) :: &
iIter, & ! bounds for ip iteration iIter, & ! bounds for ip iteration
gIter ! bounds for grain iteration gIter ! bounds for grain iteration
logical :: & logical :: &
NaN, &
singleRun ! flag indicating computation for single (g,i,e) triple singleRun ! flag indicating computation for single (g,i,e) triple
@ -2314,14 +2305,11 @@ subroutine integrateStateRK4()
p, & ! phase loop p, & ! phase loop
c, & c, &
n, & n, &
mySource, & mySource
mySizePlasticDotState, &
mySizeSourceDotState
integer(pInt), dimension(2) :: eIter ! bounds for element iteration integer(pInt), dimension(2) :: eIter ! bounds for element iteration
integer(pInt), dimension(2,mesh_NcpElems) :: iIter, & ! bounds for ip iteration integer(pInt), dimension(2,mesh_NcpElems) :: iIter, & ! bounds for ip iteration
gIter ! bounds for grain iteration gIter ! bounds for grain iteration
logical :: NaN, & logical :: singleRun ! flag indicating computation for single (g,i,e) triple
singleRun ! flag indicating computation for single (g,i,e) triple
eIter = FEsolving_execElem(1:2) eIter = FEsolving_execElem(1:2)
do e = eIter(1),eIter(2) do e = eIter(1),eIter(2)
@ -2532,7 +2520,6 @@ subroutine integrateStateRKCK45()
sourceStateResiduum, & ! residuum from evolution in microstructure sourceStateResiduum, & ! residuum from evolution in microstructure
relSourceStateResiduum ! relative residuum from evolution in microstructure relSourceStateResiduum ! relative residuum from evolution in microstructure
logical :: & logical :: &
NaN, &
singleRun ! flag indicating computation for single (g,i,e) triple singleRun ! flag indicating computation for single (g,i,e) triple
eIter = FEsolving_execElem(1:2) eIter = FEsolving_execElem(1:2)
@ -2815,8 +2802,6 @@ end subroutine integrateStateRKCK45
!> @brief tbd !> @brief tbd
!-------------------------------------------------------------------------------------------------- !--------------------------------------------------------------------------------------------------
subroutine update_dependentState() subroutine update_dependentState()
use material, only: &
plasticState
use constitutive, only: & use constitutive, only: &
constitutive_dependentState => constitutive_microstructure constitutive_dependentState => constitutive_microstructure
@ -2825,8 +2810,7 @@ subroutine update_dependentState()
i, & ! integration point index in ip loop i, & ! integration point index in ip loop
g ! grain index in grain loop g ! grain index in grain loop
!$OMP PARALLEL !$OMP PARALLEL DO
!$OMP DO
do e = FEsolving_execElem(1),FEsolving_execElem(2) do e = FEsolving_execElem(1),FEsolving_execElem(2)
do i = FEsolving_execIP(1,e),FEsolving_execIP(2,e) do i = FEsolving_execIP(1,e),FEsolving_execIP(2,e)
do g = 1,homogenization_Ngrains(mesh_element(3,e)) do g = 1,homogenization_Ngrains(mesh_element(3,e))
@ -2836,8 +2820,7 @@ subroutine update_dependentState()
crystallite_Fp(1:3,1:3,g,i,e), & crystallite_Fp(1:3,1:3,g,i,e), &
g, i, e) g, i, e)
enddo; enddo; enddo enddo; enddo; enddo
!$OMP ENDDO !$OMP END PARALLEL DO
!$OMP END PARALLEL
end subroutine update_dependentState end subroutine update_dependentState