From 0ad917dcebee1390ad65dbecb728718434dfd917 Mon Sep 17 00:00:00 2001 From: Pratheek Shanthraj Date: Mon, 3 Nov 2014 10:36:07 +0000 Subject: [PATCH] nicer FEM parameters --- code/numerics.f90 | 9 +++++++-- 1 file changed, 7 insertions(+), 2 deletions(-) diff --git a/code/numerics.f90 b/code/numerics.f90 index bd1da3945..e62455319 100644 --- a/code/numerics.f90 +++ b/code/numerics.f90 @@ -153,7 +153,7 @@ module numerics itmaxFEM = 25_pInt, & !< maximum number of iterations itminFEM = 2_pInt, & !< minimum number of iterations maxCutBackFEM = 3_pInt, & !< max number of cut backs - integrationOrder = 1_pInt, & + integrationOrder = 2_pInt, & structOrder = 2_pInt, & thermalOrder = 2_pInt, & damageOrder = 2_pInt @@ -503,9 +503,14 @@ subroutine numerics_init !-------------------------------------------------------------------------------------------------- ! Random seeding parameter - write(6,'(a24,1x,i16,/)') ' fixed_seed: ',fixedSeed + write(6,'(a24,1x,i16,/)') ' fixed_seed: ',fixedSeed if (fixedSeed <= 0_pInt) & write(6,'(a,/)') ' No fixed Seed: Random is random!' + +!-------------------------------------------------------------------------------------------------- +! gradient parameter + write(6,'(a24,1x,es8.1)') ' charLength: ',charLength + !-------------------------------------------------------------------------------------------------- ! openMP parameter !$ write(6,'(a24,1x,i8,/)') ' number of threads: ',DAMASK_NumThreadsInt