avoiding hard-coded constants

src/DAMASK_marc.f90

@@ -55,10 +55,9 @@ contains
 !--------------------------------------------------------------------------------------------------
 subroutine DAMASK_interface_init
 
-  integer, dimension(8) :: &
-    dateAndTime
-  integer :: ierr
-  character(len=1024) :: wd
+  integer, dimension(8)   :: dateAndTime
+  integer                 :: ierr
+  character(len=pPathLen) :: wd
  
   write(6,'(/,a)') ' <<<+-  DAMASK_marc init -+>>>'
  

src/grid/spectral_utilities.f90

@@ -87,7 +87,7 @@ module spectral_utilities
     real(pReal), dimension(3,3) :: values      = 0.0_pReal, &
                                    maskFloat   = 0.0_pReal
     logical,     dimension(3,3) :: maskLogical = .false.
-    character(len=64)           :: myType      = 'None'
+    character(len=pStringLen)   :: myType      = 'None'
   end type tBoundaryCondition
 
   type, public :: tLoadCase

src/mesh/FEM_utilities.f90

@@ -100,8 +100,8 @@ contains
 !--------------------------------------------------------------------------------------------------
 subroutine utilities_init
    
-  character(len=1024)                :: petsc_optionsPhysics
-  PetscErrorCode                     :: ierr
+  character(len=pStringLen) :: petsc_optionsOrder
+  PetscErrorCode            :: ierr
 
   write(6,'(/,a)')   ' <<<+-  DAMASK_FEM_utilities init  -+>>>'
  
@@ -120,8 +120,8 @@ subroutine utilities_init
   call PetscOptionsInsertString(PETSC_NULL_OPTIONS,trim(petsc_defaultOptions),ierr)
   call PetscOptionsInsertString(PETSC_NULL_OPTIONS,trim(petsc_options),ierr)
   CHKERRQ(ierr)
-  write(petsc_optionsPhysics,'(a,i0)') '-mechFE_petscspace_degree '   , structOrder
-  call PetscOptionsInsertString(PETSC_NULL_OPTIONS,trim(petsc_optionsPhysics),ierr)
+  write(petsc_optionsOrder,'(a,i0)') '-mechFE_petscspace_degree ', structOrder
+  call PetscOptionsInsertString(PETSC_NULL_OPTIONS,trim(petsc_optionsOrder),ierr)
   CHKERRQ(ierr)
   
   wgt = 1.0/real(mesh_maxNips*mesh_NcpElemsGlobal,pReal)