prefix not required

This commit is contained in:
Sharan Roongta 2023-08-02 16:02:51 +02:00
parent c960f8ed58
commit 99292c5081
2 changed files with 8 additions and 9 deletions

@ -1 +1 @@
Subproject commit 9a067cb2757df91b9242414779a8b52ac9e5ee02 Subproject commit 12fe8685a2a2c1e37a8bb8e63e03130c99295023

View File

@ -118,20 +118,19 @@ subroutine FEM_utilities_init(num_mesh)
CHKERRQ(err_PETSc) CHKERRQ(err_PETSc)
CHKERRQ(err_PETSc) CHKERRQ(err_PETSc)
petsc_options = misc_prefixOptions('-mechanical_snes_type newtonls & petsc_options = misc_prefixOptions('-snes_type newtonls &
&-mechanical_snes_linesearch_type cp -mechanical_snes_ksp_ew & &-snes_linesearch_type cp -snes_ksp_ew &
&-mechanical_snes_ksp_ew_rtol0 0.01 -mechanical_snes_ksp_ew_rtolmax 0.01 & &-snes_ksp_ew_rtol0 0.01 -snes_ksp_ew_rtolmax 0.01 &
&-mechanical_ksp_type fgmres -mechanical_ksp_max_it 25' // & &-ksp_type fgmres -ksp_max_it 25 ' // &
num_mesh%get_asStr('PETSc_options',defaultVal=''), 'mechanical_') num_mesh%get_asStr('PETSc_options',defaultVal=''), 'mechanical_')
call PetscOptionsInsertString(PETSC_NULL_OPTIONS,petsc_options,err_PETSc)
CHKERRQ(err_PETSc)
write(petsc_optionsOrder,'(a,i0)') '-mechFE_petscspace_degree ', p_s write(petsc_optionsOrder,'(a,i0)') '-mechFE_petscspace_degree ', p_s
call PetscOptionsInsertString(PETSC_NULL_OPTIONS,trim(petsc_optionsOrder),err_PETSc) petsc_options = petsc_options // ' ' // petsc_optionsOrder
call PetscOptionsInsertString(PETSC_NULL_OPTIONS,petsc_options,err_PETSc)
CHKERRQ(err_PETSc) CHKERRQ(err_PETSc)
wgt = real(mesh_maxNips*mesh_NcpElemsGlobal,pREAL)**(-1) wgt = real(mesh_maxNips*mesh_NcpElemsGlobal,pREAL)**(-1)
end subroutine FEM_utilities_init end subroutine FEM_utilities_init