From 209d59534aa865ab474d3544238e5d3966538ad0 Mon Sep 17 00:00:00 2001 From: Martin Diehl Date: Sat, 9 Jan 2021 17:19:48 +0100 Subject: [PATCH] copy and paste error --- src/constitutive_thermal_dissipation.f90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/constitutive_thermal_dissipation.f90 b/src/constitutive_thermal_dissipation.f90 index 88b170f27..9153915ca 100644 --- a/src/constitutive_thermal_dissipation.f90 +++ b/src/constitutive_thermal_dissipation.f90 @@ -37,7 +37,7 @@ module function source_thermal_dissipation_init(source_length) result(mySources) src integer :: Ninstances,sourceOffset,Nconstituents,p - print'(/,a)', ' <<<+- thermal_externalheat init -+>>>' + print'(/,a)', ' <<<+- thermal_dissipation init -+>>>' mySources = thermal_active('dissipation',source_length)