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

corrected PETSc debug and Capitalization

This commit is contained in:
Ding Wang 2013-05-16 08:55:10 +00:00
parent 17b81fda7c
commit 57b591ff39
1 changed files with 14 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

29
code/DAMASK_spectral_utilities.f90
View File

@ -140,16 +140,15 @@ subroutine utilities_init()
divergence_correction divergence_correction
use debug, only: & use debug, only: &
debug_level, & debug_level, &
debug_spectral, & debug_SPECTRAL, &
debug_levelBasic, & debug_LEVELBASIC, &
debug_spectralDivergence, & debug_SPECTRALDIVERGENCE, &
debug_spectralFFTW, & debug_SPECTRALFFTW, &
debug_spectralPETSc, & debug_SPECTRALPETSC, &
debug_spectralRotation debug_SPECTRALROTATION
#ifdef PETSc #ifdef PETSc
use debug, only: & use debug, only: &
debug_spectralPETSc, & PETSCDEBUG
PETScDebug
#endif #endif
use math ! must use the whole module for use of FFTW use math ! must use the whole module for use of FFTW
use mesh, only: & use mesh, only: &
@ -179,20 +178,20 @@ subroutine utilities_init()
!-------------------------------------------------------------------------------------------------- !--------------------------------------------------------------------------------------------------
! set debugging parameters ! set debugging parameters
debugGeneral = iand(debug_level(debug_spectral),debug_levelBasic) /= 0 debugGeneral = iand(debug_level(debug_SPECTRAL),debug_LEVELBASIC) /= 0
debugDivergence = iand(debug_level(debug_spectral),debug_spectralDivergence) /= 0 debugDivergence = iand(debug_level(debug_SPECTRAL),debug_SPECTRALDIVERGENCE) /= 0
debugFFTW = iand(debug_level(debug_spectral),debug_spectralFFTW) /= 0 debugFFTW = iand(debug_level(debug_SPECTRAL),debug_SPECTRALFFTW) /= 0
debugRotation = iand(debug_level(debug_spectral),debug_spectralRotation) /= 0 debugRotation = iand(debug_level(debug_SPECTRAL),debug_SPECTRALROTATION) /= 0
debugPETSc = iand(debug_level(debug_spectral),debug_spectralPETSc) /= 0 debugPETSc = iand(debug_level(debug_SPECTRAL),debug_SPECTRALPETSC) /= 0
#ifdef PETSc #ifdef PETSc
if(debugPETSc) write(6,'(/,a)') ' Initializing PETSc with debug options: ', trim(PETScDebug), & if(debugPETSc) write(6,'(/,a)') ' Initializing PETSc with debug options: ', trim(PETScDebug), &
' add more using the PETSc_Options keyword in numerics.config ' ' add more using the PETSc_Options keyword in numerics.config '
flush(6) flush(6)
call PetscOptionsClear(ierr); CHKERRQ(ierr) call PetscOptionsClear(ierr); CHKERRQ(ierr)
if(debugPETSc) call PetscOptionsInsertString(trim(PETScDebug),ierr); CHKERRQ(ierr) if(debugPETSc) call PetscOptionsInsertString(trim(PETSCDEBUG),ierr); CHKERRQ(ierr)
call PetscOptionsInsertString(trim(petsc_options),ierr); CHKERRQ(ierr) call PetscOptionsInsertString(trim(petsc_options),ierr); CHKERRQ(ierr)
#else #else
call IO_warning(41_pInt, ext_msg='debug PETSc') if(debugPETSc) call IO_warning(41_pInt, ext_msg='debug PETSc')
#endif #endif
call IO_open_file(fileUnit,geometryFile) ! parse info from geometry file... call IO_open_file(fileUnit,geometryFile) ! parse info from geometry file...