From 99292c50819bf62b5e07bf85ce05f6209976378c Mon Sep 17 00:00:00 2001 From: Sharan Roongta Date: Wed, 2 Aug 2023 16:02:51 +0200 Subject: [PATCH] prefix not required --- PRIVATE | 2 +- src/mesh/FEM_utilities.f90 | 15 +++++++-------- 2 files changed, 8 insertions(+), 9 deletions(-) diff --git a/PRIVATE b/PRIVATE index 9a067cb27..12fe8685a 160000 --- a/PRIVATE +++ b/PRIVATE @@ -1 +1 @@ -Subproject commit 9a067cb2757df91b9242414779a8b52ac9e5ee02 +Subproject commit 12fe8685a2a2c1e37a8bb8e63e03130c99295023 diff --git a/src/mesh/FEM_utilities.f90 b/src/mesh/FEM_utilities.f90 index 9f326673b..cca975724 100644 --- a/src/mesh/FEM_utilities.f90 +++ b/src/mesh/FEM_utilities.f90 @@ -118,20 +118,19 @@ subroutine FEM_utilities_init(num_mesh) CHKERRQ(err_PETSc) CHKERRQ(err_PETSc) - petsc_options = misc_prefixOptions('-mechanical_snes_type newtonls & - &-mechanical_snes_linesearch_type cp -mechanical_snes_ksp_ew & - &-mechanical_snes_ksp_ew_rtol0 0.01 -mechanical_snes_ksp_ew_rtolmax 0.01 & - &-mechanical_ksp_type fgmres -mechanical_ksp_max_it 25' // & + petsc_options = misc_prefixOptions('-snes_type newtonls & + &-snes_linesearch_type cp -snes_ksp_ew & + &-snes_ksp_ew_rtol0 0.01 -snes_ksp_ew_rtolmax 0.01 & + &-ksp_type fgmres -ksp_max_it 25 ' // & num_mesh%get_asStr('PETSc_options',defaultVal=''), 'mechanical_') + + write(petsc_optionsOrder,'(a,i0)') '-mechFE_petscspace_degree ', p_s + petsc_options = petsc_options // ' ' // petsc_optionsOrder call PetscOptionsInsertString(PETSC_NULL_OPTIONS,petsc_options,err_PETSc) CHKERRQ(err_PETSc) - write(petsc_optionsOrder,'(a,i0)') ' -mechFE_petscspace_degree ', p_s - call PetscOptionsInsertString(PETSC_NULL_OPTIONS,trim(petsc_optionsOrder),err_PETSc) - CHKERRQ(err_PETSc) wgt = real(mesh_maxNips*mesh_NcpElemsGlobal,pREAL)**(-1) - end subroutine FEM_utilities_init