not needed for disabled output MPI rank>0

code/IO.f90

@@ -80,25 +80,10 @@ subroutine IO_init
  use, intrinsic :: iso_fortran_env                                                                  ! to get compiler_version and compiler_options (at least for gfortran 4.6 at the moment)
  
  implicit none
- integer(pInt) :: worldrank = 0_pInt
-#ifdef PETSc
-#include <petsc/finclude/petscsys.h>
- PetscErrorCode :: ierr
-#endif
- external :: &
-   MPI_Comm_rank, &
-   MPI_Abort
 
-#ifdef PETSc
- call MPI_Comm_rank(PETSC_COMM_WORLD,worldrank,ierr);CHKERRQ(ierr)
-#endif
-
- mainProcess: if (worldrank == 0) then 
  write(6,'(/,a)')   ' <<<+-  IO init  -+>>>'
  write(6,'(a15,a)') ' Current time: ',IO_timeStamp()
 #include "compilation_info.f90"
- endif mainProcess
-
 
 end subroutine IO_init
 

code/numerics.f90

@@ -236,11 +236,9 @@ subroutine numerics_init
  call MPI_Comm_rank(PETSC_COMM_WORLD,worldrank,ierr);CHKERRQ(ierr)
  call MPI_Comm_size(PETSC_COMM_WORLD,worldsize,ierr);CHKERRQ(ierr)
 #endif
- mainProcess: if (worldrank == 0) then
  write(6,'(/,a)') ' <<<+-  numerics init  -+>>>'
  write(6,'(a15,a)')   ' Current time: ',IO_timeStamp()
 #include "compilation_info.f90"
- endif mainProcess
  
 !$ call GET_ENVIRONMENT_VARIABLE(NAME='DAMASK_NUM_THREADS',VALUE=DAMASK_NumThreadsString,STATUS=gotDAMASK_NUM_THREADS)   ! get environment variable DAMASK_NUM_THREADS...
 !$ if(gotDAMASK_NUM_THREADS /= 0) then                                                              ! could not get number of threads, set it to 1
@@ -489,14 +487,8 @@ subroutine numerics_init
    close(FILEUNIT)
 
  else fileExists
-#ifdef FEM
-   if (worldrank == 0) then
-#endif  
    write(6,'(a,/)') ' using standard values'
    flush(6)
-#ifdef FEM
-   endif
-#endif  
  endif fileExists
 
 #ifdef Spectral
@@ -519,7 +511,6 @@ subroutine numerics_init
 
 !--------------------------------------------------------------------------------------------------
 ! writing parameters to output
- mainProcess3: if (worldrank == 0) then
  write(6,'(a24,1x,es8.1)')  ' relevantStrain:         ',relevantStrain
  write(6,'(a24,1x,es8.1)')  ' defgradTolerance:       ',defgradTolerance
  write(6,'(a24,1x,i8)')     ' iJacoStiffness:         ',iJacoStiffness
@@ -640,7 +631,6 @@ subroutine numerics_init
  write(6,'(a24,1x,a)')       ' PETSc_options:          ',trim(petsc_defaultOptions)//' '//trim(petsc_options)
  write(6,'(a24,1x,L8)')      ' B-Bar stabilisation:    ',BBarStabilisation
 #endif
- endif mainProcess3
  
 
 !--------------------------------------------------------------------------------------------------