short names
This commit is contained in:
parent
912a21f5b6
commit
17ec5f378e
|
@ -1,7 +1,7 @@
|
||||||
!--------------------------------------------------------------------------------------------------
|
!--------------------------------------------------------------------------------------------------
|
||||||
!> @author Martin Diehl, KU Leuven
|
!> @author Martin Diehl, KU Leuven
|
||||||
!--------------------------------------------------------------------------------------------------
|
!--------------------------------------------------------------------------------------------------
|
||||||
submodule(homogenization) homogenization_thermal
|
submodule(homogenization) thermal
|
||||||
|
|
||||||
use lattice
|
use lattice
|
||||||
|
|
||||||
|
@ -236,4 +236,4 @@ module subroutine thermal_conduction_getSource(Tdot, ip,el)
|
||||||
end subroutine thermal_conduction_getSource
|
end subroutine thermal_conduction_getSource
|
||||||
|
|
||||||
|
|
||||||
end submodule homogenization_thermal
|
end submodule thermal
|
||||||
|
|
|
@ -3,7 +3,7 @@
|
||||||
!> @brief material subroutine incorporating kinematics resulting from thermal expansion
|
!> @brief material subroutine incorporating kinematics resulting from thermal expansion
|
||||||
!> @details to be done
|
!> @details to be done
|
||||||
!--------------------------------------------------------------------------------------------------
|
!--------------------------------------------------------------------------------------------------
|
||||||
submodule(constitutive:constitutive_thermal) kinematics_thermal_expansion
|
submodule(constitutive:thermal) thermalexpansion
|
||||||
|
|
||||||
integer, dimension(:), allocatable :: kinematics_thermal_expansion_instance
|
integer, dimension(:), allocatable :: kinematics_thermal_expansion_instance
|
||||||
|
|
||||||
|
@ -116,4 +116,4 @@ module subroutine kinematics_thermal_expansion_LiAndItsTangent(Li, dLi_dTstar, p
|
||||||
|
|
||||||
end subroutine kinematics_thermal_expansion_LiAndItsTangent
|
end subroutine kinematics_thermal_expansion_LiAndItsTangent
|
||||||
|
|
||||||
end submodule kinematics_thermal_expansion
|
end submodule thermalexpansion
|
||||||
|
|
|
@ -1,7 +1,7 @@
|
||||||
!----------------------------------------------------------------------------------------------------
|
!----------------------------------------------------------------------------------------------------
|
||||||
!> @brief internal microstructure state for all thermal sources and kinematics constitutive models
|
!> @brief internal microstructure state for all thermal sources and kinematics constitutive models
|
||||||
!----------------------------------------------------------------------------------------------------
|
!----------------------------------------------------------------------------------------------------
|
||||||
submodule(constitutive) constitutive_thermal
|
submodule(constitutive) thermal
|
||||||
|
|
||||||
enum, bind(c); enumerator :: &
|
enum, bind(c); enumerator :: &
|
||||||
THERMAL_UNDEFINED_ID ,&
|
THERMAL_UNDEFINED_ID ,&
|
||||||
|
@ -318,4 +318,4 @@ function thermal_active(source_label,src_length) result(active_source)
|
||||||
end function thermal_active
|
end function thermal_active
|
||||||
|
|
||||||
|
|
||||||
end submodule constitutive_thermal
|
end submodule thermal
|
||||||
|
|
|
@ -4,7 +4,7 @@
|
||||||
!> @brief material subroutine for thermal source due to plastic dissipation
|
!> @brief material subroutine for thermal source due to plastic dissipation
|
||||||
!> @details to be done
|
!> @details to be done
|
||||||
!--------------------------------------------------------------------------------------------------
|
!--------------------------------------------------------------------------------------------------
|
||||||
submodule(constitutive:constitutive_thermal) source_dissipation
|
submodule(constitutive:thermal) dissipation
|
||||||
|
|
||||||
integer, dimension(:), allocatable :: &
|
integer, dimension(:), allocatable :: &
|
||||||
source_thermal_dissipation_offset, & !< which source is my current thermal dissipation mechanism?
|
source_thermal_dissipation_offset, & !< which source is my current thermal dissipation mechanism?
|
||||||
|
@ -96,4 +96,4 @@ module subroutine thermal_dissipation_getRate(TDot, Tstar, Lp, phase)
|
||||||
|
|
||||||
end subroutine thermal_dissipation_getRate
|
end subroutine thermal_dissipation_getRate
|
||||||
|
|
||||||
end submodule source_dissipation
|
end submodule dissipation
|
||||||
|
|
|
@ -4,7 +4,7 @@
|
||||||
!> @author Philip Eisenlohr, Michigan State University
|
!> @author Philip Eisenlohr, Michigan State University
|
||||||
!> @brief material subroutine for variable heat source
|
!> @brief material subroutine for variable heat source
|
||||||
!--------------------------------------------------------------------------------------------------
|
!--------------------------------------------------------------------------------------------------
|
||||||
submodule(constitutive:constitutive_thermal) source_externalheat
|
submodule(constitutive:thermal) externalheat
|
||||||
|
|
||||||
|
|
||||||
integer, dimension(:), allocatable :: &
|
integer, dimension(:), allocatable :: &
|
||||||
|
@ -134,4 +134,4 @@ module subroutine thermal_externalheat_getRate(TDot, ph, me)
|
||||||
|
|
||||||
end subroutine thermal_externalheat_getRate
|
end subroutine thermal_externalheat_getRate
|
||||||
|
|
||||||
end submodule source_externalheat
|
end submodule externalheat
|
||||||
|
|
Loading…
Reference in New Issue