space needed to add new option + marc changes
This commit is contained in:
parent
ac63ee3600
commit
c960f8ed58
|
@ -75,8 +75,8 @@ subroutine discretization_Marc_init
|
||||||
|
|
||||||
print'(/,a)', ' <<<+- discretization_Marc init -+>>>'; flush(6)
|
print'(/,a)', ' <<<+- discretization_Marc init -+>>>'; flush(6)
|
||||||
|
|
||||||
num_solver => config_numerics%get_asDict('solver',defaultVal=emptyDict)
|
num_solver => config_numerics%get_dict('solver',defaultVal=emptyDict)
|
||||||
num_commercialFEM => num_solver%get_asDict('Marc', defaultVal = emptyDict)
|
num_commercialFEM => num_solver%get_dict('Marc', defaultVal = emptyDict)
|
||||||
mesh_unitlength = num_commercialFEM%get_asReal('unit_length',defaultVal=1.0_pREAL) ! set physical extent of a length unit in mesh
|
mesh_unitlength = num_commercialFEM%get_asReal('unit_length',defaultVal=1.0_pREAL) ! set physical extent of a length unit in mesh
|
||||||
if (mesh_unitlength <= 0.0_pREAL) call IO_error(301,'unitlength')
|
if (mesh_unitlength <= 0.0_pREAL) call IO_error(301,'unitlength')
|
||||||
|
|
||||||
|
|
|
@ -125,7 +125,7 @@ subroutine FEM_utilities_init(num_mesh)
|
||||||
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)
|
call PetscOptionsInsertString(PETSC_NULL_OPTIONS,petsc_options,err_PETSc)
|
||||||
CHKERRQ(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)
|
call PetscOptionsInsertString(PETSC_NULL_OPTIONS,trim(petsc_optionsOrder),err_PETSc)
|
||||||
CHKERRQ(err_PETSc)
|
CHKERRQ(err_PETSc)
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue