diff --git a/src/basic_mod.F90 b/src/basic_mod.F90
index c6a33252d9d3d1458f1b5738275cdd60a0e8dd39..ddc7093ca13b77da2988da0111373097cb49b1b7 100644
--- a/src/basic_mod.F90
+++ b/src/basic_mod.F90
@@ -42,11 +42,14 @@ MODULE basic
   INTEGER :: lu_job  = 91              ! myjob file
 
   ! To measure computation time
-  real :: start, finish
-  real(dp) :: t0_rhs, t0_adv_field, t0_poisson, t0_Sapj, t0_diag, t0_checkfield, t0_step, t0_clos, t0_ghost, t0_coll
-  real(dp) :: t1_rhs, t1_adv_field, t1_poisson, t1_Sapj, t1_diag, t1_checkfield, t1_step, t1_clos, t1_ghost, t1_coll
-  real(dp) :: tc_rhs, tc_adv_field, tc_poisson, tc_Sapj, tc_diag, tc_checkfield, tc_step, tc_clos, tc_ghost, tc_coll
-  real(dp):: maxruntime = 1e9 ! Maximum simulation CPU time
+  real     :: start, finish
+  real(dp) :: t0_rhs, t0_adv_field, t0_poisson, t0_Sapj, t0_diag, t0_checkfield,&
+              t0_step, t0_clos, t0_ghost, t0_coll
+  real(dp) :: t1_rhs, t1_adv_field, t1_poisson, t1_Sapj, t1_diag, t1_checkfield,&
+              t1_step, t1_clos, t1_ghost, t1_coll
+  real(dp) :: tc_rhs, tc_adv_field, tc_poisson, tc_Sapj, tc_diag, tc_checkfield,&
+              tc_step, tc_clos, tc_ghost, tc_coll
+  real(dp) :: maxruntime = 1e9 ! Maximum simulation CPU time
 
   INTERFACE allocate_array
     MODULE PROCEDURE allocate_array_dp1,allocate_array_dp2,allocate_array_dp3,allocate_array_dp4
diff --git a/src/collision_mod.F90 b/src/collision_mod.F90
index d84f7a1e25d71ed609dd2c14980941f59183a580..9b05d82116249b200ecb7ce18c17e5ae827f32b0 100644
--- a/src/collision_mod.F90
+++ b/src/collision_mod.F90
@@ -437,8 +437,6 @@ CONTAINS
         mat_filename = selfmat_file
       ENDIF
 
-      WRITE(*,*) 'loading : ', mat_filename
-
       CALL openf(mat_filename,fid1, 'r', 'D', mpicomm=comm_p);
       CALL getatt(fid1,'/Caapj/Ceepj/','Pmaxe',pdime)
       CALL getatt(fid1,'/Caapj/Ceepj/','Jmaxe',jdime)
diff --git a/src/grid_mod.F90 b/src/grid_mod.F90
index 4f39aa206fcbbdc652aaa76ea86a5fd3c7ac4d54..9322ba5d0da50514afe6cb62cb9f88d335af9b1d 100644
--- a/src/grid_mod.F90
+++ b/src/grid_mod.F90
@@ -220,7 +220,6 @@ CONTAINS
         ! Finding kzmax
         IF (kzarray(ikr) .EQ. (Nz/2)*deltakr) ikr_max = ikr
       END DO
-      IF(my_id .EQ. 0) write(*,*) kzarray
     ENDIF
 
     ! Orszag 2/3 filter