mesh needs HDF5+results for connectivity
This commit is contained in:
parent
f51599eda7
commit
96cb2a8fb8
|
@ -100,12 +100,12 @@ subroutine CPFEM_initAll(el,ip)
|
|||
call config_init
|
||||
call math_init
|
||||
call FE_init
|
||||
call mesh_init(ip, el)
|
||||
call lattice_init
|
||||
#ifdef DAMASK_HDF5
|
||||
call HDF5_utilities_init
|
||||
call results_init
|
||||
#endif
|
||||
call mesh_init(ip, el)
|
||||
call lattice_init
|
||||
call material_init
|
||||
call constitutive_init
|
||||
call crystallite_init
|
||||
|
|
|
@ -16,16 +16,16 @@
|
|||
#include "FEsolving.f90"
|
||||
#include "element.f90"
|
||||
#include "mesh_base.f90"
|
||||
#ifdef DAMASK_HDF5
|
||||
#include "HDF5_utilities.f90"
|
||||
#include "results.f90"
|
||||
#endif
|
||||
#ifdef Abaqus
|
||||
#include "mesh_abaqus.f90"
|
||||
#endif
|
||||
#ifdef Marc4DAMASK
|
||||
#include "mesh_marc.f90"
|
||||
#endif
|
||||
#ifdef DAMASK_HDF5
|
||||
#include "HDF5_utilities.f90"
|
||||
#include "results.f90"
|
||||
#endif
|
||||
#include "material.f90"
|
||||
#include "lattice.f90"
|
||||
#include "source_thermal_dissipation.f90"
|
||||
|
|
|
@ -16,6 +16,10 @@ module mesh
|
|||
use numerics
|
||||
use FEsolving
|
||||
use element
|
||||
#if defined(DAMASK_HDF5)
|
||||
use HDF5_utilities
|
||||
use results
|
||||
#endif
|
||||
|
||||
implicit none
|
||||
private
|
||||
|
@ -881,6 +885,7 @@ subroutine mesh_get_damaskOptions(periodic_surface,fileUnit)
|
|||
end subroutine mesh_get_damaskOptions
|
||||
|
||||
|
||||
|
||||
subroutine calcCells(thisMesh,connectivity_elem)
|
||||
|
||||
class(tMesh) :: thisMesh
|
||||
|
|
Loading…
Reference in New Issue