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

View File

@ -69,5 +69,5 @@ update_gamma 0 # Update Gamma-operator with current dPdF
divergence_correction 0 # Use dimension-independent divergence criterion
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, ...)
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

View File

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

View File

@ -96,7 +96,7 @@ character(len=64), protected, public :: &
myfilter = 'none' !< spectral filtering method
character(len=1024), protected, public :: &
petsc_options = '-snes_type ngmres &
-snes_ngmres_anderson '
&-snes_ngmres_anderson '
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
itmax = 20_pInt, & !< maximum number of iterations