From d83c746a175179432e4b9ff05ab98ae7aee74e35 Mon Sep 17 00:00:00 2001 From: Sharan Roongta Date: Thu, 15 Apr 2021 12:07:33 +0200 Subject: [PATCH] polishing --- src/material.f90 | 2 +- src/phase_thermal.f90 | 4 ++-- 2 files changed, 3 insertions(+), 3 deletions(-) diff --git a/src/material.f90 b/src/material.f90 index 5802ab3c8..add9fd1c3 100644 --- a/src/material.f90 +++ b/src/material.f90 @@ -35,7 +35,7 @@ module material integer, dimension(:,:), allocatable, public, protected :: & ! (constituent,elem) material_phaseAt, & !< phase ID of each element material_phaseID, & !< per (constituent,cell) - material_phaseEntry !< per (constituent,cell + material_phaseEntry !< per (constituent,cell) integer, dimension(:,:,:), allocatable, public, protected :: & ! (constituent,IP,elem) material_phaseMemberAt !< position of the element within its phase instance diff --git a/src/phase_thermal.f90 b/src/phase_thermal.f90 index f6d046266..b51ac74f5 100644 --- a/src/phase_thermal.f90 +++ b/src/phase_thermal.f90 @@ -190,7 +190,7 @@ end function phase_thermal_collectDotState !-------------------------------------------------------------------------------------------------- -!> @brief Damage viscosity. +!> @brief Thermal viscosity. !-------------------------------------------------------------------------------------------------- module function phase_mu_T(co,ce) result(mu) @@ -205,7 +205,7 @@ end function phase_mu_T !-------------------------------------------------------------------------------------------------- -!> @brief Damage conductivity/diffusivity in reference configuration. +!> @brief Thermal conductivity/diffusivity in reference configuration. !-------------------------------------------------------------------------------------------------- module function phase_K_T(co,ce) result(K)