150 lines
4.3 KiB
Fortran
150 lines
4.3 KiB
Fortran
!--------------------------------------------------------------------------------------------------
|
|
!> @author Franz Roters, Max-Planck-Institut für Eisenforschung GmbH
|
|
!> @author Philip Eisenlohr, Max-Planck-Institut für Eisenforschung GmbH
|
|
!> @brief needs a good name and description
|
|
!--------------------------------------------------------------------------------------------------
|
|
module CPFEM2
|
|
use prec
|
|
use config
|
|
use math
|
|
use rotations
|
|
use YAML_types
|
|
use YAML_parse
|
|
use material
|
|
use lattice
|
|
use IO
|
|
use base64
|
|
use DAMASK_interface
|
|
use results
|
|
use discretization
|
|
use HDF5_utilities
|
|
use homogenization
|
|
use constitutive
|
|
#if defined(Mesh)
|
|
use FEM_quadrature
|
|
use discretization_mesh
|
|
#elif defined(Grid)
|
|
use discretization_grid
|
|
#endif
|
|
|
|
implicit none
|
|
public
|
|
|
|
contains
|
|
|
|
|
|
!--------------------------------------------------------------------------------------------------
|
|
!> @brief call all module initializations
|
|
!--------------------------------------------------------------------------------------------------
|
|
subroutine CPFEM_initAll
|
|
|
|
call parallelization_init
|
|
call DAMASK_interface_init ! Spectral and FEM interface to commandline
|
|
call prec_init
|
|
call IO_init
|
|
call base64_init
|
|
#ifdef Mesh
|
|
call FEM_quadrature_init
|
|
#endif
|
|
call YAML_types_init
|
|
call YAML_parse_init
|
|
call config_init
|
|
call math_init
|
|
call rotations_init
|
|
call lattice_init
|
|
call HDF5_utilities_init
|
|
call results_init(restart=interface_restartInc>0)
|
|
#if defined(Mesh)
|
|
call discretization_mesh_init(restart=interface_restartInc>0)
|
|
#elif defined(Grid)
|
|
call discretization_grid_init(restart=interface_restartInc>0)
|
|
#endif
|
|
call material_init(restart=interface_restartInc>0)
|
|
call constitutive_init
|
|
call homogenization_init
|
|
call crystallite_init
|
|
call CPFEM_init
|
|
call config_deallocate
|
|
|
|
end subroutine CPFEM_initAll
|
|
|
|
|
|
!--------------------------------------------------------------------------------------------------
|
|
!> @brief Read restart information if needed.
|
|
!--------------------------------------------------------------------------------------------------
|
|
subroutine CPFEM_init
|
|
|
|
integer(HID_T) :: fileHandle
|
|
character(len=pStringLen) :: fileName
|
|
|
|
|
|
print'(/,a)', ' <<<+- CPFEM init -+>>>'; flush(IO_STDOUT)
|
|
|
|
|
|
if (interface_restartInc > 0) then
|
|
print'(/,a,i0,a)', ' reading restart information of increment from file'; flush(IO_STDOUT)
|
|
write(fileName,'(a,i0,a)') trim(getSolverJobName())//'_',worldrank,'.hdf5'
|
|
fileHandle = HDF5_openFile(fileName)
|
|
|
|
call homogenization_restartRead(fileHandle)
|
|
call constitutive_restartRead(fileHandle)
|
|
|
|
call HDF5_closeFile(fileHandle)
|
|
endif
|
|
|
|
end subroutine CPFEM_init
|
|
|
|
|
|
!--------------------------------------------------------------------------------------------------
|
|
!> @brief Write restart information.
|
|
!--------------------------------------------------------------------------------------------------
|
|
subroutine CPFEM_restartWrite
|
|
|
|
integer(HID_T) :: fileHandle
|
|
character(len=pStringLen) :: fileName
|
|
|
|
|
|
print*, ' writing field and constitutive data required for restart to file';flush(IO_STDOUT)
|
|
|
|
write(fileName,'(a,i0,a)') trim(getSolverJobName())//'_',worldrank,'.hdf5'
|
|
fileHandle = HDF5_openFile(fileName,'a')
|
|
|
|
call homogenization_restartWrite(fileHandle)
|
|
call constitutive_restartWrite(fileHandle)
|
|
|
|
call HDF5_closeFile(fileHandle)
|
|
|
|
end subroutine CPFEM_restartWrite
|
|
|
|
|
|
!--------------------------------------------------------------------------------------------------
|
|
!> @brief Forward data for new time increment.
|
|
!--------------------------------------------------------------------------------------------------
|
|
subroutine CPFEM_forward
|
|
|
|
call homogenization_forward
|
|
call constitutive_forward
|
|
|
|
end subroutine CPFEM_forward
|
|
|
|
|
|
!--------------------------------------------------------------------------------------------------
|
|
!> @brief Trigger writing of results.
|
|
!--------------------------------------------------------------------------------------------------
|
|
subroutine CPFEM_results(inc,time)
|
|
|
|
integer, intent(in) :: inc
|
|
real(pReal), intent(in) :: time
|
|
|
|
call results_openJobFile
|
|
call results_addIncrement(inc,time)
|
|
call constitutive_results
|
|
call homogenization_results
|
|
call discretization_results
|
|
call results_finalizeIncrement
|
|
call results_closeJobFile
|
|
|
|
end subroutine CPFEM_results
|
|
|
|
end module CPFEM2
|