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

space needed to add new option + marc changes

This commit is contained in:
Sharan Roongta 2023-08-02 14:20:17 +02:00
parent ac63ee3600
commit c960f8ed58
2 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/Marc/discretization_Marc.f90
View File

@ -75,8 +75,8 @@ subroutine discretization_Marc_init
print'(/,a)', ' <<<+- discretization_Marc init -+>>>'; flush(6)
num_solver => config_numerics%get_asDict('solver',defaultVal=emptyDict)
num_commercialFEM => num_solver%get_asDict('Marc', defaultVal = emptyDict)
num_solver => config_numerics%get_dict('solver',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
if (mesh_unitlength <= 0.0_pREAL) call IO_error(301,'unitlength')

2
src/mesh/FEM_utilities.f90
View File

@ -125,7 +125,7 @@ subroutine FEM_utilities_init(num_mesh)
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)
CHKERRQ(err_PETSc)