short names

This commit is contained in:
Martin Diehl 2021-01-26 01:20:45 +01:00
parent 912a21f5b6
commit 17ec5f378e
5 changed files with 10 additions and 10 deletions

View File

@ -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

View File

@ -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

View File

@ -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

View File

@ -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

View File

@ -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