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

View File

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

View File

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

View File

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

View File

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