corrected small issues with PETSc debugging
This commit is contained in:
parent
7a43d1b6ad
commit
738f363263
|
@ -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
|
||||
|
|
|
@ -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, &
|
||||
|
|
|
@ -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
|
||||
|
|
Loading…
Reference in New Issue