From 485839b651e7070347256c6aa812f3c0983f74ba Mon Sep 17 00:00:00 2001 From: Sharan Roongta Date: Tue, 1 Aug 2023 16:42:45 +0200 Subject: [PATCH] consistent names --- examples/config/numerics.yaml | 4 ++-- src/homogenization_mechanical_RGC.f90 | 8 ++++---- 2 files changed, 6 insertions(+), 6 deletions(-) diff --git a/examples/config/numerics.yaml b/examples/config/numerics.yaml index 3bedc41ed..487b6cf88 100644 --- a/examples/config/numerics.yaml +++ b/examples/config/numerics.yaml @@ -16,8 +16,8 @@ homogenization: dot_a_ref: 1.0e-3 # reference rate of relaxation (about the same magnitude as straining rate, possibly a bit higher) dot_a_max: 1.0e+0 # threshold of maximum relaxation vector increment (if exceed this then cutback) Delta_V_max: 1.0e-5 # maximum allowable relative volume discrepancy - Delta_V_mod: 1.0e+12 - Delta_V_pow: 5.0 + Delta_V_modulus: 1.0e+12 + Delta_V_exponent: 5.0 solver: grid: diff --git a/src/homogenization_mechanical_RGC.f90 b/src/homogenization_mechanical_RGC.f90 index 3b21ebc37..956c5dfb6 100644 --- a/src/homogenization_mechanical_RGC.f90 +++ b/src/homogenization_mechanical_RGC.f90 @@ -119,8 +119,8 @@ module subroutine RGC_init() num%refRelaxRate = num_RGC%get_asReal('dot_a_ref', defaultVal=1.0e-3_pREAL) num%maxdRelax = num_RGC%get_asReal('dot_a_max', defaultVal=1.0e+0_pREAL) num%maxVolDiscr = num_RGC%get_asReal('Delta_V_max', defaultVal=1.0e-5_pREAL) - num%volDiscrMod = num_RGC%get_asReal('Delta_V_mod', defaultVal=1.0e+12_pREAL) - num%volDiscrPow = num_RGC%get_asReal('Delta_V_pow', defaultVal=5.0_pREAL) + num%volDiscrMod = num_RGC%get_asReal('Delta_V_modulus', defaultVal=1.0e+12_pREAL) + num%volDiscrPow = num_RGC%get_asReal('Delta_V_exponent', defaultVal=5.0_pREAL) if (num%atol <= 0.0_pREAL) call IO_error(301,ext_msg='eps_abs_P') if (num%rtol <= 0.0_pREAL) call IO_error(301,ext_msg='eps_rel_P') @@ -133,8 +133,8 @@ module subroutine RGC_init() if (num%refRelaxRate <= 0.0_pREAL) call IO_error(301,ext_msg='dot_a_ref') if (num%maxdRelax <= 0.0_pREAL) call IO_error(301,ext_msg='dot_a_max') if (num%maxVolDiscr <= 0.0_pREAL) call IO_error(301,ext_msg='Delta_V_max') - if (num%volDiscrMod < 0.0_pREAL) call IO_error(301,ext_msg='Delta_V_mod') - if (num%volDiscrPow <= 0.0_pREAL) call IO_error(301,ext_msg='Delta_V_pow') + if (num%volDiscrMod < 0.0_pREAL) call IO_error(301,ext_msg='Delta_V_modulus') + if (num%volDiscrPow <= 0.0_pREAL) call IO_error(301,ext_msg='Delta_V_exponent') do ho = 1, size(mechanical_type)