From 199c65cdba6abe11d5e1ce981fa22e568072cc50 Mon Sep 17 00:00:00 2001 From: Denny Tjahjanto Date: Mon, 18 Feb 2008 10:46:18 +0000 Subject: [PATCH] changed pert_e to new perturbation value pert_Fg --- trunk/prec.f90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/trunk/prec.f90 b/trunk/prec.f90 index dd9e8dba3..9280c324c 100644 --- a/trunk/prec.f90 +++ b/trunk/prec.f90 @@ -15,7 +15,7 @@ integer(pInt), parameter :: ijaco = 1_pInt ! frequency of FEM Jacobi update integer(pInt), parameter :: nCutback = 10_pInt ! cutbacks in time-step integration integer(pInt), parameter :: nReg = 1_pInt ! regularization attempts for Jacobi inversion - real(pReal), parameter :: pert_e = 1.0e-5_pReal ! strain perturbation for FEM Jacobi + real(pReal), parameter :: pert_Fg = 1.0e-5_pReal ! strain perturbation for FEM Jacobi integer(pInt), parameter :: nOuter = 10_pInt ! outer loop limit integer(pInt), parameter :: nInner = 200_pInt ! inner loop limit real(pReal), parameter :: reltol_Outer = 1.0e-4_pReal ! relative tolerance in outer loop (state)