From 17ec5f378efff8c9a08ed6b6d4fac51bd65a4a2d Mon Sep 17 00:00:00 2001
From: Martin Diehl <mail@martin-diehl.net>
Date: Tue, 26 Jan 2021 01:20:45 +0100
Subject: [PATCH] short names

---
 src/homogenization_thermal.f90                     | 4 ++--
 src/phase_mechanics_anelastic_thermalexpansion.f90 | 4 ++--
 src/phase_thermal.f90                              | 4 ++--
 src/phase_thermal_dissipation.f90                  | 4 ++--
 src/phase_thermal_externalheat.f90                 | 4 ++--
 5 files changed, 10 insertions(+), 10 deletions(-)

diff --git a/src/homogenization_thermal.f90 b/src/homogenization_thermal.f90
index 6a12730ac..87ba8301a 100644
--- a/src/homogenization_thermal.f90
+++ b/src/homogenization_thermal.f90
@@ -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
diff --git a/src/phase_mechanics_anelastic_thermalexpansion.f90 b/src/phase_mechanics_anelastic_thermalexpansion.f90
index 6e4fa8263..32bf30e75 100644
--- a/src/phase_mechanics_anelastic_thermalexpansion.f90
+++ b/src/phase_mechanics_anelastic_thermalexpansion.f90
@@ -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
diff --git a/src/phase_thermal.f90 b/src/phase_thermal.f90
index 831fd236d..3a691111c 100644
--- a/src/phase_thermal.f90
+++ b/src/phase_thermal.f90
@@ -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
diff --git a/src/phase_thermal_dissipation.f90 b/src/phase_thermal_dissipation.f90
index ae2d5735e..9519ba6ab 100644
--- a/src/phase_thermal_dissipation.f90
+++ b/src/phase_thermal_dissipation.f90
@@ -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
diff --git a/src/phase_thermal_externalheat.f90 b/src/phase_thermal_externalheat.f90
index 16b2bdb65..2d2e92bfa 100644
--- a/src/phase_thermal_externalheat.f90
+++ b/src/phase_thermal_externalheat.f90
@@ -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