From 927f947c2af3a92cc54eb3979a95193f8f630d72 Mon Sep 17 00:00:00 2001
From: Martin Diehl <m.diehl@mpie.de>
Date: Sun, 10 Mar 2019 09:42:21 +0100
Subject: [PATCH] better readable

---
 src/spectral_utilities.f90 | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/src/spectral_utilities.f90 b/src/spectral_utilities.f90
index 647886cc1..ea145bcca 100644
--- a/src/spectral_utilities.f90
+++ b/src/spectral_utilities.f90
@@ -224,11 +224,11 @@ subroutine utilities_init()
  call PETScOptionsInsertString(PETSC_NULL_OPTIONS,trim(petsc_options),ierr)
  CHKERRQ(ierr)
 
- grid1Red = grid(1)/2_pInt + 1_pInt
+ grid1Red = grid(1)/2 + 1
  wgt = 1.0/real(product(grid),pReal)
 
- write(6,'(a,3(i12  ))')  ' grid     a b c: ', grid
- write(6,'(a,3(es12.5))') ' size     x y z: ', geomSize
+ write(6,'(/,a,3(i12  ))')  ' grid     a b c: ', grid
+ write(6,'(a,3(es12.5))')   ' size     x y z: ', geomSize
 
  select case (spectral_derivative)
    case ('continuous')