systematic naming

This commit is contained in:
Martin Diehl 2021-01-26 20:43:30 +01:00
parent 79ec2c5a9d
commit 2497a5fb4a
6 changed files with 11 additions and 7 deletions

View File

@ -21,6 +21,7 @@
#include "lattice.f90"
#include "phase.f90"
#include "phase_mechanics.f90"
#include "phase_mechanics_plastic.f90"
#include "phase_mechanics_plastic_none.f90"
#include "phase_mechanics_plastic_isotropic.f90"
#include "phase_mechanics_plastic_phenopowerlaw.f90"
@ -28,6 +29,7 @@
#include "phase_mechanics_plastic_dislotwin.f90"
#include "phase_mechanics_plastic_dislotungsten.f90"
#include "phase_mechanics_plastic_nonlocal.f90"
#include "phase_mechanics_eigendeformation.f90"
#include "phase_mechanics_eigendeformation_cleavageopening.f90"
#include "phase_mechanics_eigendeformation_slipplaneopening.f90"
#include "phase_thermal.f90"

View File

@ -1,7 +1,7 @@
!----------------------------------------------------------------------------------------------------
!> @brief internal microstructure state for all plasticity constitutive models
!----------------------------------------------------------------------------------------------------
submodule(constitutive) constitutive_mech
submodule(constitutive) mechanics
enum, bind(c); enumerator :: &
ELASTICITY_UNDEFINED_ID, &
@ -1637,5 +1637,5 @@ subroutine constitutive_LiAndItsTangents(Li, dLi_dS, dLi_dFi, &
end subroutine constitutive_LiAndItsTangents
end submodule constitutive_mech
end submodule mechanics

View File

@ -0,0 +1,2 @@
submodule(constitutive:mechanics) eigendeformation
end submodule eigendeformation

View File

@ -4,7 +4,7 @@
!> @brief material subroutine incorporating kinematics resulting from opening of cleavage planes
!> @details to be done
!--------------------------------------------------------------------------------------------------
submodule(constitutive:constitutive_mech) kinematics_cleavage_opening
submodule(constitutive:eigendeformation) cleavageopening
integer, dimension(:), allocatable :: kinematics_cleavage_opening_instance
@ -162,4 +162,4 @@ module subroutine kinematics_cleavage_opening_LiAndItsTangent(Ld, dLd_dTstar, S,
end subroutine kinematics_cleavage_opening_LiAndItsTangent
end submodule kinematics_cleavage_opening
end submodule cleavageopening

View File

@ -4,7 +4,7 @@
!> @brief material subroutine incorporating kinematics resulting from opening of slip planes
!> @details to be done
!--------------------------------------------------------------------------------------------------
submodule(constitutive:constitutive_mech) kinematics_slipplane_opening
submodule(constitutive:eigendeformation) slipplaneopening
integer, dimension(:), allocatable :: kinematics_slipplane_opening_instance
@ -193,4 +193,4 @@ module subroutine kinematics_slipplane_opening_LiAndItsTangent(Ld, dLd_dTstar, S
end subroutine kinematics_slipplane_opening_LiAndItsTangent
end submodule kinematics_slipplane_opening
end submodule slipplaneopening

View File

@ -1,4 +1,4 @@
submodule(constitutive:constitutive_mech) plastic
submodule(constitutive:mechanics) plastic
interface