diff --git a/src/grid/discretization_grid.f90 b/src/grid/discretization_grid.f90 index 8039b4267..bb6c6210d 100644 --- a/src/grid/discretization_grid.f90 +++ b/src/grid/discretization_grid.f90 @@ -84,7 +84,7 @@ subroutine discretization_grid_init(restart) PETSC_COMM_WORLD, & z, & ! domain grid size along z z_offset) ! domain grid offset along z - if(z==0_C_INTPTR_T) call IO_error(894, ext_msg='invalid number of threads') + if(z==0_C_INTPTR_T) call IO_error(894, ext_msg='Cannot distribute MPI processes') grid3 = int(z) grid3Offset = int(z_offset) diff --git a/src/grid/spectral_utilities.f90 b/src/grid/spectral_utilities.f90 index dcd2c98cb..36ab99e2c 100644 --- a/src/grid/spectral_utilities.f90 +++ b/src/grid/spectral_utilities.f90 @@ -606,7 +606,6 @@ real(pReal) function utilities_divergenceRMS() if(ierr /=0) error stop 'MPI error' utilities_divergenceRMS = sqrt(utilities_divergenceRMS) * wgt ! RMS in real space calculated with Parsevals theorem from Fourier space - end function utilities_divergenceRMS