diff --git a/src/homogenization_mechanical_RGC.f90 b/src/homogenization_mechanical_RGC.f90 index aac66ccec..e4a9367eb 100644 --- a/src/homogenization_mechanical_RGC.f90 +++ b/src/homogenization_mechanical_RGC.f90 @@ -108,19 +108,19 @@ module subroutine RGC_init() num_mechanical => num_homogenization%get_dict('mechanical',defaultVal=emptyDict) num_RGC => num_mechanical%get_dict('RGC',defaultVal=emptyDict) - num%atol = num_RGC%get_asReal('atol', defaultVal=1.0e+4_pREAL) - num%rtol = num_RGC%get_asReal('rtol', defaultVal=1.0e-3_pREAL) - num%absMax = num_RGC%get_asReal('amax', defaultVal=1.0e+10_pREAL) - num%relMax = num_RGC%get_asReal('rmax', defaultVal=1.0e+2_pREAL) + num%atol = num_RGC%get_asReal('eps_abs_P', defaultVal=1.0e+4_pREAL) + num%rtol = num_RGC%get_asReal('eps_rel_P', defaultVal=1.0e-3_pREAL) + num%absMax = num_RGC%get_asReal('eps_abs_max', defaultVal=1.0e+10_pREAL) + num%relMax = num_RGC%get_asReal('eps_rel_max', defaultVal=1.0e+2_pREAL) num%pPert = num_RGC%get_asReal('perturbpenalty', defaultVal=1.0e-7_pREAL) - num%xSmoo = num_RGC%get_asReal('relvantmismatch', defaultVal=1.0e-5_pREAL) + num%xSmoo = num_RGC%get_asReal('relevantmismatch', defaultVal=1.0e-5_pREAL) num%viscPower = num_RGC%get_asReal('viscositypower', defaultVal=1.0e+0_pREAL) num%viscModus = num_RGC%get_asReal('viscositymodulus', defaultVal=0.0e+0_pREAL) - num%refRelaxRate = num_RGC%get_asReal('refrelaxationrate', defaultVal=1.0e-3_pREAL) - num%maxdRelax = num_RGC%get_asReal('maxrelaxationrate', defaultVal=1.0e+0_pREAL) - num%maxVolDiscr = num_RGC%get_asReal('maxvoldiscrepancy', defaultVal=1.0e-5_pREAL) - num%volDiscrMod = num_RGC%get_asReal('voldiscrepancymod', defaultVal=1.0e+12_pREAL) - num%volDiscrPow = num_RGC%get_asReal('dicrepancypower', defaultVal=5.0_pREAL) + 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) if (num%atol <= 0.0_pREAL) call IO_error(301,ext_msg='absTol_RGC') if (num%rtol <= 0.0_pREAL) call IO_error(301,ext_msg='relTol_RGC')