From a80b57c96b6e970c9739928c3e05e7e18d69b48c Mon Sep 17 00:00:00 2001 From: Martin Diehl Date: Thu, 7 Mar 2019 20:51:14 +0100 Subject: [PATCH] forgotten during removal of vacancy/porosity/hydrogen --- src/numerics.f90 | 4 ++-- src/source_thermal_dissipation.f90 | 2 +- 2 files changed, 3 insertions(+), 3 deletions(-) diff --git a/src/numerics.f90 b/src/numerics.f90 index fbc5f52dc..1d0102cd9 100644 --- a/src/numerics.f90 +++ b/src/numerics.f90 @@ -377,8 +377,8 @@ subroutine numerics_init case ('bbarstabilisation') BBarStabilisation = IO_intValue(line,chunkPos,2_pInt) > 0_pInt #else - case ('integrationorder','structorder','thermalorder', 'damageorder','vacancyfluxorder', & - 'porosityorder','hydrogenfluxorder','bbarstabilisation') + case ('integrationorder','structorder','thermalorder', 'damageorder', & + 'bbarstabilisation') call IO_warning(40_pInt,ext_msg=tag) #endif case default ! found unknown keyword diff --git a/src/source_thermal_dissipation.f90 b/src/source_thermal_dissipation.f90 index db37c8286..7c46e64ae 100644 --- a/src/source_thermal_dissipation.f90 +++ b/src/source_thermal_dissipation.f90 @@ -106,7 +106,7 @@ end subroutine source_thermal_dissipation_init !-------------------------------------------------------------------------------------------------- -!> @brief returns local vacancy generation rate +!> @brief returns dissipation rate !-------------------------------------------------------------------------------------------------- subroutine source_thermal_dissipation_getRateAndItsTangent(TDot, dTDOT_dT, Tstar, Lp, phase)