mesh needs HDF5+results for connectivity

This commit is contained in:
Martin Diehl 2019-06-04 20:06:08 +02:00
parent f51599eda7
commit 96cb2a8fb8
3 changed files with 12 additions and 7 deletions

View File

@ -100,12 +100,12 @@ subroutine CPFEM_initAll(el,ip)
call config_init call config_init
call math_init call math_init
call FE_init call FE_init
call mesh_init(ip, el)
call lattice_init
#ifdef DAMASK_HDF5 #ifdef DAMASK_HDF5
call HDF5_utilities_init call HDF5_utilities_init
call results_init call results_init
#endif #endif
call mesh_init(ip, el)
call lattice_init
call material_init call material_init
call constitutive_init call constitutive_init
call crystallite_init call crystallite_init

View File

@ -16,16 +16,16 @@
#include "FEsolving.f90" #include "FEsolving.f90"
#include "element.f90" #include "element.f90"
#include "mesh_base.f90" #include "mesh_base.f90"
#ifdef DAMASK_HDF5
#include "HDF5_utilities.f90"
#include "results.f90"
#endif
#ifdef Abaqus #ifdef Abaqus
#include "mesh_abaqus.f90" #include "mesh_abaqus.f90"
#endif #endif
#ifdef Marc4DAMASK #ifdef Marc4DAMASK
#include "mesh_marc.f90" #include "mesh_marc.f90"
#endif #endif
#ifdef DAMASK_HDF5
#include "HDF5_utilities.f90"
#include "results.f90"
#endif
#include "material.f90" #include "material.f90"
#include "lattice.f90" #include "lattice.f90"
#include "source_thermal_dissipation.f90" #include "source_thermal_dissipation.f90"

View File

@ -16,6 +16,10 @@ module mesh
use numerics use numerics
use FEsolving use FEsolving
use element use element
#if defined(DAMASK_HDF5)
use HDF5_utilities
use results
#endif
implicit none implicit none
private private
@ -881,6 +885,7 @@ subroutine mesh_get_damaskOptions(periodic_surface,fileUnit)
end subroutine mesh_get_damaskOptions end subroutine mesh_get_damaskOptions
subroutine calcCells(thisMesh,connectivity_elem) subroutine calcCells(thisMesh,connectivity_elem)
class(tMesh) :: thisMesh class(tMesh) :: thisMesh