short names
This commit is contained in:
parent
912a21f5b6
commit
17ec5f378e
|
@ -1,7 +1,7 @@
|
|||
!--------------------------------------------------------------------------------------------------
|
||||
!> @author Martin Diehl, KU Leuven
|
||||
!--------------------------------------------------------------------------------------------------
|
||||
submodule(homogenization) homogenization_thermal
|
||||
submodule(homogenization) thermal
|
||||
|
||||
use lattice
|
||||
|
||||
|
@ -236,4 +236,4 @@ module subroutine thermal_conduction_getSource(Tdot, ip,el)
|
|||
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
|
||||
!> @details to be done
|
||||
!--------------------------------------------------------------------------------------------------
|
||||
submodule(constitutive:constitutive_thermal) kinematics_thermal_expansion
|
||||
submodule(constitutive:thermal) thermalexpansion
|
||||
|
||||
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 submodule kinematics_thermal_expansion
|
||||
end submodule thermalexpansion
|
||||
|
|
|
@ -1,7 +1,7 @@
|
|||
!----------------------------------------------------------------------------------------------------
|
||||
!> @brief internal microstructure state for all thermal sources and kinematics constitutive models
|
||||
!----------------------------------------------------------------------------------------------------
|
||||
submodule(constitutive) constitutive_thermal
|
||||
submodule(constitutive) thermal
|
||||
|
||||
enum, bind(c); enumerator :: &
|
||||
THERMAL_UNDEFINED_ID ,&
|
||||
|
@ -318,4 +318,4 @@ function thermal_active(source_label,src_length) result(active_source)
|
|||
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
|
||||
!> @details to be done
|
||||
!--------------------------------------------------------------------------------------------------
|
||||
submodule(constitutive:constitutive_thermal) source_dissipation
|
||||
submodule(constitutive:thermal) dissipation
|
||||
|
||||
integer, dimension(:), allocatable :: &
|
||||
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 submodule source_dissipation
|
||||
end submodule dissipation
|
||||
|
|
|
@ -4,7 +4,7 @@
|
|||
!> @author Philip Eisenlohr, Michigan State University
|
||||
!> @brief material subroutine for variable heat source
|
||||
!--------------------------------------------------------------------------------------------------
|
||||
submodule(constitutive:constitutive_thermal) source_externalheat
|
||||
submodule(constitutive:thermal) externalheat
|
||||
|
||||
|
||||
integer, dimension(:), allocatable :: &
|
||||
|
@ -134,4 +134,4 @@ module subroutine thermal_externalheat_getRate(TDot, ph, me)
|
|||
|
||||
end subroutine thermal_externalheat_getRate
|
||||
|
||||
end submodule source_externalheat
|
||||
end submodule externalheat
|
||||
|
|
Loading…
Reference in New Issue