Merge branch 'less-public-variables' into development
This commit is contained in:
Sharan Roongta
commit
0b340a6d42
|
|
@ -72,12 +72,13 @@ contains
|
||||||
!> @brief call (thread safe) all module initializations
|
!> @brief call (thread safe) all module initializations
|
||||||
!--------------------------------------------------------------------------------------------------
|
!--------------------------------------------------------------------------------------------------
|
||||||
subroutine CPFEM_initAll(el,ip)
|
subroutine CPFEM_initAll(el,ip)
|
||||||
|
|
||||||
integer(pInt), intent(in) :: el, & !< FE el number
|
integer(pInt), intent(in) :: el, & !< FE el number
|
||||||
ip !< FE integration point number
|
ip !< FE integration point number
|
||||||
|
|
||||||
!$OMP CRITICAL(init)
|
!$OMP CRITICAL(init)
|
||||||
if (.not. CPFEM_init_done) then
|
if (.not. CPFEM_init_done) then
|
||||||
call DAMASK_interface_init ! Spectral and FEM interface to commandline
|
call DAMASK_interface_init
|
||||||
call prec_init
|
call prec_init
|
||||||
call IO_init
|
call IO_init
|
||||||
call numerics_init
|
call numerics_init
|
||||||
|
|
@ -174,35 +175,7 @@ subroutine CPFEM_general(mode, parallelExecution, ffn, ffn1, temperature_inp, dt
|
||||||
CPFEM_dcsde = CPFEM_dcsde_knownGood
|
CPFEM_dcsde = CPFEM_dcsde_knownGood
|
||||||
|
|
||||||
!*** age results
|
!*** age results
|
||||||
if (iand(mode, CPFEM_AGERESULTS) /= 0_pInt) then
|
if (iand(mode, CPFEM_AGERESULTS) /= 0_pInt) call CPFEM_forward
|
||||||
crystallite_F0 = crystallite_partionedF ! crystallite deformation
|
|
||||||
crystallite_Fp0 = crystallite_Fp ! crystallite plastic deformation
|
|
||||||
crystallite_Lp0 = crystallite_Lp ! crystallite plastic velocity
|
|
||||||
crystallite_Fi0 = crystallite_Fi ! crystallite intermediate deformation
|
|
||||||
crystallite_Li0 = crystallite_Li ! crystallite intermediate velocity
|
|
||||||
crystallite_S0 = crystallite_S ! crystallite 2nd Piola Kirchhoff stress
|
|
||||||
|
|
||||||
forall (i = 1:size(plasticState)) plasticState(i)%state0 = plasticState(i)%state
|
|
||||||
do i = 1, size(sourceState)
|
|
||||||
do mySource = 1,phase_Nsources(i)
|
|
||||||
sourceState(i)%p(mySource)%state0 = sourceState(i)%p(mySource)%state
|
|
||||||
enddo; enddo
|
|
||||||
if (iand(debug_level(debug_CPFEM), debug_levelBasic) /= 0_pInt) then
|
|
||||||
write(6,'(a)') '<< CPFEM >> aging states'
|
|
||||||
if (debug_e <= discretization_nElem .and. debug_i <=discretization_nIP) then
|
|
||||||
write(6,'(a,1x,i8,1x,i2,1x,i4,/,(12x,6(e20.8,1x)),/)') &
|
|
||||||
'<< CPFEM >> aged state of elFE ip grain',debug_e, debug_i, 1, &
|
|
||||||
plasticState(material_phaseAt(1,debug_e))%state(:,material_phasememberAt(1,debug_i,debug_e))
|
|
||||||
endif
|
|
||||||
endif
|
|
||||||
|
|
||||||
do homog = 1_pInt, material_Nhomogenization
|
|
||||||
homogState (homog)%state0 = homogState (homog)%state
|
|
||||||
thermalState (homog)%state0 = thermalState (homog)%state
|
|
||||||
damageState (homog)%state0 = damageState (homog)%state
|
|
||||||
enddo
|
|
||||||
endif
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
!*** collection of FEM input with returning of randomize odd stress and jacobian
|
!*** collection of FEM input with returning of randomize odd stress and jacobian
|
||||||
|
|
@ -358,9 +331,18 @@ subroutine CPFEM_general(mode, parallelExecution, ffn, ffn1, temperature_inp, dt
|
||||||
|
|
||||||
end subroutine CPFEM_general
|
end subroutine CPFEM_general
|
||||||
|
|
||||||
|
!--------------------------------------------------------------------------------------------------
|
||||||
|
!> @brief Forward data for new time increment.
|
||||||
|
!--------------------------------------------------------------------------------------------------
|
||||||
|
subroutine CPFEM_forward
|
||||||
|
|
||||||
|
call crystallite_forward
|
||||||
|
|
||||||
|
end subroutine CPFEM_forward
|
||||||
|
|
||||||
|
|
||||||
!--------------------------------------------------------------------------------------------------
|
!--------------------------------------------------------------------------------------------------
|
||||||
!> @brief triggers writing of the results
|
!> @brief Trigger writing of results.
|
||||||
!--------------------------------------------------------------------------------------------------
|
!--------------------------------------------------------------------------------------------------
|
||||||
subroutine CPFEM_results(inc,time)
|
subroutine CPFEM_results(inc,time)
|
||||||
|
|
||||||
|
|
|
||||||
114
src/CPFEM2.f90
114
src/CPFEM2.f90
|
|
@ -64,123 +64,37 @@ end subroutine CPFEM_initAll
|
||||||
|
|
||||||
|
|
||||||
!--------------------------------------------------------------------------------------------------
|
!--------------------------------------------------------------------------------------------------
|
||||||
!> @brief allocate the arrays defined in module CPFEM and initialize them
|
!> @brief Read restart information if needed.
|
||||||
!--------------------------------------------------------------------------------------------------
|
!--------------------------------------------------------------------------------------------------
|
||||||
subroutine CPFEM_init
|
subroutine CPFEM_init
|
||||||
|
|
||||||
integer :: i
|
|
||||||
integer(HID_T) :: fileHandle, groupHandle
|
|
||||||
character(len=pStringLen) :: fileName, datasetName
|
|
||||||
|
|
||||||
write(6,'(/,a)') ' <<<+- CPFEM init -+>>>'; flush(6)
|
write(6,'(/,a)') ' <<<+- CPFEM init -+>>>'; flush(6)
|
||||||
|
|
||||||
if (interface_restartInc > 0) then
|
if (interface_restartInc > 0) call crystallite_restartRead
|
||||||
write(6,'(/,a,i0,a)') ' reading restart information of increment ', interface_restartInc, ' from file'
|
|
||||||
|
|
||||||
write(fileName,'(a,i0,a)') trim(getSolverJobName())//'_',worldrank,'.hdf5'
|
|
||||||
fileHandle = HDF5_openFile(fileName)
|
|
||||||
|
|
||||||
call HDF5_read(fileHandle,crystallite_F0, 'F')
|
|
||||||
call HDF5_read(fileHandle,crystallite_Fp0,'Fp')
|
|
||||||
call HDF5_read(fileHandle,crystallite_Fi0,'Fi')
|
|
||||||
call HDF5_read(fileHandle,crystallite_Lp0,'Lp')
|
|
||||||
call HDF5_read(fileHandle,crystallite_Li0,'Li')
|
|
||||||
call HDF5_read(fileHandle,crystallite_S0, 'S')
|
|
||||||
|
|
||||||
groupHandle = HDF5_openGroup(fileHandle,'constituent')
|
|
||||||
do i = 1,size(phase_plasticity)
|
|
||||||
write(datasetName,'(i0,a)') i,'_omega_plastic'
|
|
||||||
call HDF5_read(groupHandle,plasticState(i)%state0,datasetName)
|
|
||||||
enddo
|
|
||||||
call HDF5_closeGroup(groupHandle)
|
|
||||||
|
|
||||||
groupHandle = HDF5_openGroup(fileHandle,'materialpoint')
|
|
||||||
do i = 1, material_Nhomogenization
|
|
||||||
write(datasetName,'(i0,a)') i,'_omega_homogenization'
|
|
||||||
call HDF5_read(groupHandle,homogState(i)%state0,datasetName)
|
|
||||||
enddo
|
|
||||||
call HDF5_closeGroup(groupHandle)
|
|
||||||
|
|
||||||
call HDF5_closeFile(fileHandle)
|
|
||||||
endif
|
|
||||||
|
|
||||||
end subroutine CPFEM_init
|
end subroutine CPFEM_init
|
||||||
|
|
||||||
|
|
||||||
!--------------------------------------------------------------------------------------------------
|
!--------------------------------------------------------------------------------------------------
|
||||||
!> @brief Forward data after successful increment.
|
!> @brief Write restart information.
|
||||||
! ToDo: Any guessing for the current states possible?
|
|
||||||
!--------------------------------------------------------------------------------------------------
|
|
||||||
subroutine CPFEM_forward
|
|
||||||
|
|
||||||
integer :: i, j
|
|
||||||
|
|
||||||
if (iand(debug_level(debug_CPFEM), debug_levelBasic) /= 0) &
|
|
||||||
write(6,'(a)') '<< CPFEM >> aging states'
|
|
||||||
|
|
||||||
crystallite_F0 = crystallite_partionedF
|
|
||||||
crystallite_Fp0 = crystallite_Fp
|
|
||||||
crystallite_Lp0 = crystallite_Lp
|
|
||||||
crystallite_Fi0 = crystallite_Fi
|
|
||||||
crystallite_Li0 = crystallite_Li
|
|
||||||
crystallite_S0 = crystallite_S
|
|
||||||
|
|
||||||
do i = 1, size(plasticState)
|
|
||||||
plasticState(i)%state0 = plasticState(i)%state
|
|
||||||
enddo
|
|
||||||
do i = 1, size(sourceState)
|
|
||||||
do j = 1,phase_Nsources(i)
|
|
||||||
sourceState(i)%p(j)%state0 = sourceState(i)%p(j)%state
|
|
||||||
enddo; enddo
|
|
||||||
do i = 1, material_Nhomogenization
|
|
||||||
homogState (i)%state0 = homogState (i)%state
|
|
||||||
thermalState(i)%state0 = thermalState(i)%state
|
|
||||||
damageState (i)%state0 = damageState (i)%state
|
|
||||||
enddo
|
|
||||||
|
|
||||||
end subroutine CPFEM_forward
|
|
||||||
|
|
||||||
|
|
||||||
!--------------------------------------------------------------------------------------------------
|
|
||||||
!> @brief Write current restart information (Field and constitutive data) to file.
|
|
||||||
!--------------------------------------------------------------------------------------------------
|
!--------------------------------------------------------------------------------------------------
|
||||||
subroutine CPFEM_restartWrite
|
subroutine CPFEM_restartWrite
|
||||||
|
|
||||||
integer :: i
|
call crystallite_restartWrite
|
||||||
integer(HID_T) :: fileHandle, groupHandle
|
|
||||||
character(len=pStringLen) :: fileName, datasetName
|
|
||||||
|
|
||||||
write(6,'(a)') ' writing field and constitutive data required for restart to file';flush(6)
|
|
||||||
|
|
||||||
write(fileName,'(a,i0,a)') trim(getSolverJobName())//'_',worldrank,'.hdf5'
|
|
||||||
fileHandle = HDF5_openFile(fileName,'a')
|
|
||||||
|
|
||||||
call HDF5_write(fileHandle,crystallite_partionedF,'F')
|
|
||||||
call HDF5_write(fileHandle,crystallite_Fp, 'Fp')
|
|
||||||
call HDF5_write(fileHandle,crystallite_Fi, 'Fi')
|
|
||||||
call HDF5_write(fileHandle,crystallite_Lp, 'Lp')
|
|
||||||
call HDF5_write(fileHandle,crystallite_Li, 'Li')
|
|
||||||
call HDF5_write(fileHandle,crystallite_S, 'S')
|
|
||||||
|
|
||||||
groupHandle = HDF5_addGroup(fileHandle,'constituent')
|
|
||||||
do i = 1,size(phase_plasticity)
|
|
||||||
write(datasetName,'(i0,a)') i,'_omega_plastic'
|
|
||||||
call HDF5_write(groupHandle,plasticState(i)%state,datasetName)
|
|
||||||
enddo
|
|
||||||
call HDF5_closeGroup(groupHandle)
|
|
||||||
|
|
||||||
groupHandle = HDF5_addGroup(fileHandle,'materialpoint')
|
|
||||||
do i = 1, material_Nhomogenization
|
|
||||||
write(datasetName,'(i0,a)') i,'_omega_homogenization'
|
|
||||||
call HDF5_write(groupHandle,homogState(i)%state,datasetName)
|
|
||||||
enddo
|
|
||||||
call HDF5_closeGroup(groupHandle)
|
|
||||||
|
|
||||||
call HDF5_closeFile(fileHandle)
|
|
||||||
|
|
||||||
end subroutine CPFEM_restartWrite
|
end subroutine CPFEM_restartWrite
|
||||||
|
|
||||||
|
|
||||||
|
!--------------------------------------------------------------------------------------------------
|
||||||
|
!> @brief Forward data for new time increment.
|
||||||
|
!--------------------------------------------------------------------------------------------------
|
||||||
|
subroutine CPFEM_forward
|
||||||
|
|
||||||
|
call crystallite_forward
|
||||||
|
|
||||||
|
end subroutine CPFEM_forward
|
||||||
|
|
||||||
|
|
||||||
!--------------------------------------------------------------------------------------------------
|
!--------------------------------------------------------------------------------------------------
|
||||||
!> @brief Trigger writing of results.
|
!> @brief Trigger writing of results.
|
||||||
!--------------------------------------------------------------------------------------------------
|
!--------------------------------------------------------------------------------------------------
|
||||||
|
|
|
||||||
|
|
@ -11,6 +11,8 @@
|
||||||
module crystallite
|
module crystallite
|
||||||
use prec
|
use prec
|
||||||
use IO
|
use IO
|
||||||
|
use HDF5_utilities
|
||||||
|
use DAMASK_interface
|
||||||
use config
|
use config
|
||||||
use debug
|
use debug
|
||||||
use numerics
|
use numerics
|
||||||
|
|
@ -36,25 +38,25 @@ module crystallite
|
||||||
crystallite_orientation !< current orientation
|
crystallite_orientation !< current orientation
|
||||||
real(pReal), dimension(:,:,:,:,:), allocatable, public, protected :: &
|
real(pReal), dimension(:,:,:,:,:), allocatable, public, protected :: &
|
||||||
crystallite_Fe, & !< current "elastic" def grad (end of converged time step)
|
crystallite_Fe, & !< current "elastic" def grad (end of converged time step)
|
||||||
crystallite_P !< 1st Piola-Kirchhoff stress per grain
|
crystallite_P, & !< 1st Piola-Kirchhoff stress per grain
|
||||||
|
crystallite_S0, & !< 2nd Piola-Kirchhoff stress vector at start of FE inc
|
||||||
|
crystallite_Fp0, & !< plastic def grad at start of FE inc
|
||||||
|
crystallite_Fi0, & !< intermediate def grad at start of FE inc
|
||||||
|
crystallite_F0, & !< def grad at start of FE inc
|
||||||
|
crystallite_Lp0, & !< plastic velocitiy grad at start of FE inc
|
||||||
|
crystallite_Li0 !< intermediate velocitiy grad at start of FE inc
|
||||||
real(pReal), dimension(:,:,:,:,:), allocatable, public :: &
|
real(pReal), dimension(:,:,:,:,:), allocatable, public :: &
|
||||||
crystallite_S, & !< current 2nd Piola-Kirchhoff stress vector (end of converged time step)
|
crystallite_S, & !< current 2nd Piola-Kirchhoff stress vector (end of converged time step)
|
||||||
crystallite_S0, & !< 2nd Piola-Kirchhoff stress vector at start of FE inc
|
|
||||||
crystallite_partionedS0, & !< 2nd Piola-Kirchhoff stress vector at start of homog inc
|
crystallite_partionedS0, & !< 2nd Piola-Kirchhoff stress vector at start of homog inc
|
||||||
crystallite_Fp, & !< current plastic def grad (end of converged time step)
|
crystallite_Fp, & !< current plastic def grad (end of converged time step)
|
||||||
crystallite_Fp0, & !< plastic def grad at start of FE inc
|
|
||||||
crystallite_partionedFp0,& !< plastic def grad at start of homog inc
|
crystallite_partionedFp0,& !< plastic def grad at start of homog inc
|
||||||
crystallite_Fi, & !< current intermediate def grad (end of converged time step)
|
crystallite_Fi, & !< current intermediate def grad (end of converged time step)
|
||||||
crystallite_Fi0, & !< intermediate def grad at start of FE inc
|
|
||||||
crystallite_partionedFi0,& !< intermediate def grad at start of homog inc
|
crystallite_partionedFi0,& !< intermediate def grad at start of homog inc
|
||||||
crystallite_F0, & !< def grad at start of FE inc
|
|
||||||
crystallite_partionedF, & !< def grad to be reached at end of homog inc
|
crystallite_partionedF, & !< def grad to be reached at end of homog inc
|
||||||
crystallite_partionedF0, & !< def grad at start of homog inc
|
crystallite_partionedF0, & !< def grad at start of homog inc
|
||||||
crystallite_Lp, & !< current plastic velocitiy grad (end of converged time step)
|
crystallite_Lp, & !< current plastic velocitiy grad (end of converged time step)
|
||||||
crystallite_Lp0, & !< plastic velocitiy grad at start of FE inc
|
|
||||||
crystallite_partionedLp0, & !< plastic velocity grad at start of homog inc
|
crystallite_partionedLp0, & !< plastic velocity grad at start of homog inc
|
||||||
crystallite_Li, & !< current intermediate velocitiy grad (end of converged time step)
|
crystallite_Li, & !< current intermediate velocitiy grad (end of converged time step)
|
||||||
crystallite_Li0, & !< intermediate velocitiy grad at start of FE inc
|
|
||||||
crystallite_partionedLi0 !< intermediate velocity grad at start of homog inc
|
crystallite_partionedLi0 !< intermediate velocity grad at start of homog inc
|
||||||
real(pReal), dimension(:,:,:,:,:), allocatable :: &
|
real(pReal), dimension(:,:,:,:,:), allocatable :: &
|
||||||
crystallite_subFp0,& !< plastic def grad at start of crystallite inc
|
crystallite_subFp0,& !< plastic def grad at start of crystallite inc
|
||||||
|
|
@ -104,7 +106,10 @@ module crystallite
|
||||||
crystallite_stressTangent, &
|
crystallite_stressTangent, &
|
||||||
crystallite_orientations, &
|
crystallite_orientations, &
|
||||||
crystallite_push33ToRef, &
|
crystallite_push33ToRef, &
|
||||||
crystallite_results
|
crystallite_results, &
|
||||||
|
crystallite_restartWrite, &
|
||||||
|
crystallite_restartRead, &
|
||||||
|
crystallite_forward
|
||||||
|
|
||||||
contains
|
contains
|
||||||
|
|
||||||
|
|
@ -130,38 +135,30 @@ subroutine crystallite_init
|
||||||
iMax = discretization_nIP
|
iMax = discretization_nIP
|
||||||
eMax = discretization_nElem
|
eMax = discretization_nElem
|
||||||
|
|
||||||
allocate(crystallite_S0(3,3,cMax,iMax,eMax), source=0.0_pReal)
|
|
||||||
allocate(crystallite_partionedS0(3,3,cMax,iMax,eMax), source=0.0_pReal)
|
|
||||||
allocate(crystallite_S(3,3,cMax,iMax,eMax), source=0.0_pReal)
|
|
||||||
allocate(crystallite_P(3,3,cMax,iMax,eMax), source=0.0_pReal)
|
|
||||||
allocate(crystallite_F0(3,3,cMax,iMax,eMax), source=0.0_pReal)
|
|
||||||
allocate(crystallite_partionedF0(3,3,cMax,iMax,eMax), source=0.0_pReal)
|
|
||||||
allocate(crystallite_partionedF(3,3,cMax,iMax,eMax),source=0.0_pReal)
|
allocate(crystallite_partionedF(3,3,cMax,iMax,eMax),source=0.0_pReal)
|
||||||
allocate(crystallite_subF0(3,3,cMax,iMax,eMax), source=0.0_pReal)
|
|
||||||
allocate(crystallite_subF(3,3,cMax,iMax,eMax), source=0.0_pReal)
|
allocate(crystallite_S0, &
|
||||||
allocate(crystallite_Fp0(3,3,cMax,iMax,eMax), source=0.0_pReal)
|
crystallite_F0, crystallite_Fi0,crystallite_Fp0, &
|
||||||
allocate(crystallite_partionedFp0(3,3,cMax,iMax,eMax), source=0.0_pReal)
|
crystallite_Li0,crystallite_Lp0, &
|
||||||
allocate(crystallite_subFp0(3,3,cMax,iMax,eMax), source=0.0_pReal)
|
crystallite_partionedS0, &
|
||||||
allocate(crystallite_Fp(3,3,cMax,iMax,eMax), source=0.0_pReal)
|
crystallite_partionedF0,crystallite_partionedFp0,crystallite_partionedFi0, &
|
||||||
allocate(crystallite_Fi0(3,3,cMax,iMax,eMax), source=0.0_pReal)
|
crystallite_partionedLp0,crystallite_partionedLi0, &
|
||||||
allocate(crystallite_partionedFi0(3,3,cMax,iMax,eMax), source=0.0_pReal)
|
crystallite_S,crystallite_P, &
|
||||||
allocate(crystallite_subFi0(3,3,cMax,iMax,eMax), source=0.0_pReal)
|
crystallite_Fe,crystallite_Fi,crystallite_Fp, &
|
||||||
allocate(crystallite_Fi(3,3,cMax,iMax,eMax), source=0.0_pReal)
|
crystallite_Li,crystallite_Lp, &
|
||||||
allocate(crystallite_Fe(3,3,cMax,iMax,eMax), source=0.0_pReal)
|
crystallite_subF,crystallite_subF0, &
|
||||||
allocate(crystallite_Lp0(3,3,cMax,iMax,eMax), source=0.0_pReal)
|
crystallite_subFp0,crystallite_subFi0, &
|
||||||
allocate(crystallite_partionedLp0(3,3,cMax,iMax,eMax), source=0.0_pReal)
|
crystallite_subLi0,crystallite_subLp0, &
|
||||||
allocate(crystallite_subLp0(3,3,cMax,iMax,eMax), source=0.0_pReal)
|
source = crystallite_partionedF)
|
||||||
allocate(crystallite_Lp(3,3,cMax,iMax,eMax), source=0.0_pReal)
|
|
||||||
allocate(crystallite_Li0(3,3,cMax,iMax,eMax), source=0.0_pReal)
|
|
||||||
allocate(crystallite_partionedLi0(3,3,cMax,iMax,eMax), source=0.0_pReal)
|
|
||||||
allocate(crystallite_subLi0(3,3,cMax,iMax,eMax), source=0.0_pReal)
|
|
||||||
allocate(crystallite_Li(3,3,cMax,iMax,eMax), source=0.0_pReal)
|
|
||||||
allocate(crystallite_dPdF(3,3,3,3,cMax,iMax,eMax),source=0.0_pReal)
|
allocate(crystallite_dPdF(3,3,3,3,cMax,iMax,eMax),source=0.0_pReal)
|
||||||
|
|
||||||
allocate(crystallite_dt(cMax,iMax,eMax),source=0.0_pReal)
|
allocate(crystallite_dt(cMax,iMax,eMax),source=0.0_pReal)
|
||||||
allocate(crystallite_subdt(cMax,iMax,eMax), source=0.0_pReal)
|
allocate(crystallite_subdt,crystallite_subFrac,crystallite_subStep, &
|
||||||
allocate(crystallite_subFrac(cMax,iMax,eMax), source=0.0_pReal)
|
source = crystallite_dt)
|
||||||
allocate(crystallite_subStep(cMax,iMax,eMax), source=0.0_pReal)
|
|
||||||
allocate(crystallite_orientation(cMax,iMax,eMax))
|
allocate(crystallite_orientation(cMax,iMax,eMax))
|
||||||
|
|
||||||
allocate(crystallite_localPlasticity(cMax,iMax,eMax), source=.true.)
|
allocate(crystallite_localPlasticity(cMax,iMax,eMax), source=.true.)
|
||||||
allocate(crystallite_requested(cMax,iMax,eMax), source=.false.)
|
allocate(crystallite_requested(cMax,iMax,eMax), source=.false.)
|
||||||
allocate(crystallite_todo(cMax,iMax,eMax), source=.false.)
|
allocate(crystallite_todo(cMax,iMax,eMax), source=.false.)
|
||||||
|
|
@ -1844,4 +1841,117 @@ logical function stateJump(ipc,ip,el)
|
||||||
|
|
||||||
end function stateJump
|
end function stateJump
|
||||||
|
|
||||||
|
|
||||||
|
!--------------------------------------------------------------------------------------------------
|
||||||
|
!> @brief Write current restart information (Field and constitutive data) to file.
|
||||||
|
! ToDo: Merge data into one file for MPI, move state to constitutive and homogenization, respectively
|
||||||
|
!--------------------------------------------------------------------------------------------------
|
||||||
|
subroutine crystallite_restartWrite
|
||||||
|
|
||||||
|
integer :: i
|
||||||
|
integer(HID_T) :: fileHandle, groupHandle
|
||||||
|
character(len=pStringLen) :: fileName, datasetName
|
||||||
|
|
||||||
|
write(6,'(a)') ' writing field and constitutive data required for restart to file';flush(6)
|
||||||
|
|
||||||
|
write(fileName,'(a,i0,a)') trim(getSolverJobName())//'_',worldrank,'.hdf5'
|
||||||
|
fileHandle = HDF5_openFile(fileName,'a')
|
||||||
|
|
||||||
|
call HDF5_write(fileHandle,crystallite_partionedF,'F')
|
||||||
|
call HDF5_write(fileHandle,crystallite_Fp, 'Fp')
|
||||||
|
call HDF5_write(fileHandle,crystallite_Fi, 'Fi')
|
||||||
|
call HDF5_write(fileHandle,crystallite_Lp, 'Lp')
|
||||||
|
call HDF5_write(fileHandle,crystallite_Li, 'Li')
|
||||||
|
call HDF5_write(fileHandle,crystallite_S, 'S')
|
||||||
|
|
||||||
|
groupHandle = HDF5_addGroup(fileHandle,'constituent')
|
||||||
|
do i = 1,size(phase_plasticity)
|
||||||
|
write(datasetName,'(i0,a)') i,'_omega_plastic'
|
||||||
|
call HDF5_write(groupHandle,plasticState(i)%state,datasetName)
|
||||||
|
enddo
|
||||||
|
call HDF5_closeGroup(groupHandle)
|
||||||
|
|
||||||
|
groupHandle = HDF5_addGroup(fileHandle,'materialpoint')
|
||||||
|
do i = 1, material_Nhomogenization
|
||||||
|
write(datasetName,'(i0,a)') i,'_omega_homogenization'
|
||||||
|
call HDF5_write(groupHandle,homogState(i)%state,datasetName)
|
||||||
|
enddo
|
||||||
|
call HDF5_closeGroup(groupHandle)
|
||||||
|
|
||||||
|
call HDF5_closeFile(fileHandle)
|
||||||
|
|
||||||
|
end subroutine crystallite_restartWrite
|
||||||
|
|
||||||
|
|
||||||
|
!--------------------------------------------------------------------------------------------------
|
||||||
|
!> @brief Read data for restart
|
||||||
|
! ToDo: Merge data into one file for MPI, move state to constitutive and homogenization, respectively
|
||||||
|
!--------------------------------------------------------------------------------------------------
|
||||||
|
subroutine crystallite_restartRead
|
||||||
|
|
||||||
|
integer :: i
|
||||||
|
integer(HID_T) :: fileHandle, groupHandle
|
||||||
|
character(len=pStringLen) :: fileName, datasetName
|
||||||
|
|
||||||
|
write(6,'(/,a,i0,a)') ' reading restart information of increment from file'
|
||||||
|
|
||||||
|
write(fileName,'(a,i0,a)') trim(getSolverJobName())//'_',worldrank,'.hdf5'
|
||||||
|
fileHandle = HDF5_openFile(fileName)
|
||||||
|
|
||||||
|
call HDF5_read(fileHandle,crystallite_F0, 'F')
|
||||||
|
call HDF5_read(fileHandle,crystallite_Fp0,'Fp')
|
||||||
|
call HDF5_read(fileHandle,crystallite_Fi0,'Fi')
|
||||||
|
call HDF5_read(fileHandle,crystallite_Lp0,'Lp')
|
||||||
|
call HDF5_read(fileHandle,crystallite_Li0,'Li')
|
||||||
|
call HDF5_read(fileHandle,crystallite_S0, 'S')
|
||||||
|
|
||||||
|
groupHandle = HDF5_openGroup(fileHandle,'constituent')
|
||||||
|
do i = 1,size(phase_plasticity)
|
||||||
|
write(datasetName,'(i0,a)') i,'_omega_plastic'
|
||||||
|
call HDF5_read(groupHandle,plasticState(i)%state0,datasetName)
|
||||||
|
enddo
|
||||||
|
call HDF5_closeGroup(groupHandle)
|
||||||
|
|
||||||
|
groupHandle = HDF5_openGroup(fileHandle,'materialpoint')
|
||||||
|
do i = 1, material_Nhomogenization
|
||||||
|
write(datasetName,'(i0,a)') i,'_omega_homogenization'
|
||||||
|
call HDF5_read(groupHandle,homogState(i)%state0,datasetName)
|
||||||
|
enddo
|
||||||
|
call HDF5_closeGroup(groupHandle)
|
||||||
|
|
||||||
|
call HDF5_closeFile(fileHandle)
|
||||||
|
|
||||||
|
end subroutine crystallite_restartRead
|
||||||
|
|
||||||
|
|
||||||
|
!--------------------------------------------------------------------------------------------------
|
||||||
|
!> @brief Forward data after successful increment.
|
||||||
|
! ToDo: Any guessing for the current states possible?
|
||||||
|
!--------------------------------------------------------------------------------------------------
|
||||||
|
subroutine crystallite_forward
|
||||||
|
|
||||||
|
integer :: i, j
|
||||||
|
|
||||||
|
crystallite_F0 = crystallite_partionedF
|
||||||
|
crystallite_Fp0 = crystallite_Fp
|
||||||
|
crystallite_Lp0 = crystallite_Lp
|
||||||
|
crystallite_Fi0 = crystallite_Fi
|
||||||
|
crystallite_Li0 = crystallite_Li
|
||||||
|
crystallite_S0 = crystallite_S
|
||||||
|
|
||||||
|
do i = 1, size(plasticState)
|
||||||
|
plasticState(i)%state0 = plasticState(i)%state
|
||||||
|
enddo
|
||||||
|
do i = 1, size(sourceState)
|
||||||
|
do j = 1,phase_Nsources(i)
|
||||||
|
sourceState(i)%p(j)%state0 = sourceState(i)%p(j)%state
|
||||||
|
enddo; enddo
|
||||||
|
do i = 1, material_Nhomogenization
|
||||||
|
homogState (i)%state0 = homogState (i)%state
|
||||||
|
thermalState(i)%state0 = thermalState(i)%state
|
||||||
|
damageState (i)%state0 = damageState (i)%state
|
||||||
|
enddo
|
||||||
|
|
||||||
|
end subroutine crystallite_forward
|
||||||
|
|
||||||
end module crystallite
|
end module crystallite
|
||||||
|
|
|
||||||
Loading…
Reference in New Issue