223031012
/
DAMASK_EICMD
mirror of https://github.com/achalhp/DAMASK_EICMD.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity

corrected small issues with PETSc debugging

This commit is contained in:
Martin Diehl 2013-01-03 16:17:23 +00:00
parent 7a43d1b6ad
commit 738f363263
3 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
code/config/numerics.config
View File

@ -69,5 +69,5 @@ update_gamma 0 # Update Gamma-operator with current dPdF
divergence_correction 0 # Use dimension-independent divergence criterion divergence_correction 0 # Use dimension-independent divergence criterion
myspectralsolver basic # Type of spectral solver (basic: basic, basicPETSc: basic with PETSc, AL: augmented Lagrange) myspectralsolver basic # Type of spectral solver (basic: basic, basicPETSc: basic with PETSc, AL: augmented Lagrange)
myfilter none # Type of filtering method to mitigate Gibb's phenomenon (none, cosine, ...) myfilter none # Type of filtering method to mitigate Gibb's phenomenon (none, cosine, ...)
petsc_options -snes_type ngmres -snes_ngmres_anderson -snes_view # PetSc solver options petsc_options -snes_type ngmres -snes_ngmres_anderson # PetSc solver options
regridMode 0 # 0: no regrid; 1: regrid if DAMASK doesn't converge; 2: regrid if DAMASK or BVP Solver doesn't converge regridMode 0 # 0: no regrid; 1: regrid if DAMASK doesn't converge; 2: regrid if DAMASK or BVP Solver doesn't converge

2
code/debug.f90
View File

@ -107,7 +107,7 @@ module debug
#ifdef PETSc #ifdef PETSc
character(len=1024), parameter, public :: & character(len=1024), parameter, public :: &
PETScDebug = ' -snes_view -snes_monitor' PETScDebug = ' -snes_view -snes_monitor '
#endif #endif
public :: debug_init, & public :: debug_init, &
debug_reset, & debug_reset, &

2
code/numerics.f90
View File

@ -96,7 +96,7 @@ character(len=64), protected, public :: &
myfilter = 'none' !< spectral filtering method myfilter = 'none' !< spectral filtering method
character(len=1024), protected, public :: & character(len=1024), protected, public :: &
petsc_options = '-snes_type ngmres & petsc_options = '-snes_type ngmres &
-snes_ngmres_anderson ' &-snes_ngmres_anderson '
integer(pInt), protected, public :: & integer(pInt), protected, public :: &
fftw_planner_flag = 32_pInt, & !< conversion of fftw_plan_mode to integer, basically what is usually done in the include file of fftw fftw_planner_flag = 32_pInt, & !< conversion of fftw_plan_mode to integer, basically what is usually done in the include file of fftw
itmax = 20_pInt, & !< maximum number of iterations itmax = 20_pInt, & !< maximum number of iterations