matching names

src/CPFEM.f90

@@ -77,7 +77,7 @@ subroutine CPFEM_initAll(el,ip)
 
  !$OMP CRITICAL (init)
    if (.not. CPFEM_init_done) then
-     call DAMASK_interface_init                                                                    ! Spectral and FEM interface to commandline
+     call DAMASK_interface_init
      call prec_init
      call IO_init
      call numerics_init
@@ -331,9 +331,18 @@ subroutine CPFEM_general(mode, parallelExecution, ffn, ffn1, temperature_inp, dt
 
 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)
 

src/CPFEM2.f90

@@ -59,21 +59,40 @@ subroutine CPFEM_initAll
   call crystallite_init
   call homogenization_init
   call CPFEM_init
-  call CPFEM_initX
 
 end subroutine CPFEM_initAll
 
 
 !--------------------------------------------------------------------------------------------------
-!> @brief allocate the arrays defined in module CPFEM and initialize them
+!> @brief Read restart information if needed.
 !--------------------------------------------------------------------------------------------------
 subroutine CPFEM_init
 
   write(6,'(/,a)')   ' <<<+-  CPFEM init  -+>>>'; flush(6)
 
+  if (interface_restartInc > 0) call crystallite_restartRead
+
 end subroutine CPFEM_init
 
 
+!--------------------------------------------------------------------------------------------------
+!> @brief Write restart information.
+!--------------------------------------------------------------------------------------------------
+subroutine CPFEM_restartWrite
+
+  call crystallite_restartWrite
+
+end subroutine CPFEM_restartWrite
+
+
+!--------------------------------------------------------------------------------------------------
+!> @brief Forward data for new time increment.
+!--------------------------------------------------------------------------------------------------
+subroutine CPFEM_forward
+
+  call crystallite_forward
+
+end subroutine CPFEM_forward
 
 
 !--------------------------------------------------------------------------------------------------

src/DAMASK_marc.f90

@@ -43,8 +43,6 @@ module DAMASK_interface
   logical,                     public :: symmetricSolver
   character(len=*), parameter, public :: INPUTFILEEXTENSION = '.dat'
 
-  integer(pInt),    parameter, public :: interface_restartInc = 0
-
   public :: &
     DAMASK_interface_init, &
     getSolverJobName

src/crystallite.f90

@@ -107,9 +107,9 @@ module crystallite
     crystallite_orientations, &
     crystallite_push33ToRef, &
     crystallite_results, &
-    CPFEM_restartWrite, &
+    crystallite_restartWrite, &
-    CPFEM_forward, &
+    crystallite_restartRead, &
-    CPFEM_initX
+    crystallite_forward
 
 contains
 
@@ -1852,8 +1852,9 @@ 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 CPFEM_restartWrite
+subroutine crystallite_restartWrite
 
   integer :: i
   integer(HID_T) :: fileHandle, groupHandle
@@ -1887,52 +1888,20 @@ subroutine CPFEM_restartWrite
 
   call HDF5_closeFile(fileHandle)
 
-end subroutine CPFEM_restartWrite
+end subroutine crystallite_restartWrite
 
 
 !--------------------------------------------------------------------------------------------------
-!> @brief Forward data after successful increment.
+!> @brief Read data for restart
-! ToDo: Any guessing for the current states possible?
+! ToDo: Merge data into one file for MPI, move state to constitutive and homogenization, respectively
 !--------------------------------------------------------------------------------------------------
-subroutine CPFEM_forward
+subroutine crystallite_restartRead
-
-  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 CPFEM_forward
-
-!--------------------------------------------------------------------------------------------------
-!> @brief allocate the arrays defined in module CPFEM and initialize them
-!--------------------------------------------------------------------------------------------------
-subroutine CPFEM_initX
 
   integer :: i
   integer(HID_T) :: fileHandle, groupHandle
   character(len=pStringLen) :: fileName, datasetName
 
-  write(6,'(/,a)')   ' <<<+-  CPFEM init  -+>>>'; flush(6)
+  write(6,'(/,a,i0,a)') ' reading restart information of increment from file'
-
-  if (interface_restartInc > 0) then
-    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)
@@ -1959,8 +1928,38 @@ subroutine CPFEM_initX
   call HDF5_closeGroup(groupHandle)
 
   call HDF5_closeFile(fileHandle)
-  endif
 
-end subroutine CPFEM_initX
+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