cleaning

src/restarts_mod.F90

@@ -188,9 +188,6 @@ CONTAINS
       z_cp_stretched(Nz_cp+1) = z_cp_stretched(1)
       z_idx_mapping (Nz_new+1) = z_idx_mapping (1)
       ! Check that the start and the end of the grids are the same
-      print*, z_cp_stretched
-      print*,zarray_new
-      print*, z_idx_mapping
       IF(.NOT.(abs(z_cp_stretched(1)-zarray_new(1) .LT. 1e-3).AND.(abs(z_cp_stretched(Nz_cp)-zarray_new(Nz_new)).LT.1e-3))) &
         ERROR STOP "Failed to stretch the cp grid"
     END SUBROUTINE z_grid_mapping

src/solve_EM_fields.F90

@@ -82,15 +82,6 @@ CONTAINS
     ENDIF
     ! Transfer phi to all the others process along p
     CALL manual_3D_bcast(phi,local_nky,local_nkx,local_nz+ngz)
-    ! print*, SUM(ABS(moments(1,:,:,:,:,:,updatetlevel)))
-    ! print*, SUM(REAL(moments(1,:,:,:,:,:,updatetlevel)))
-    ! print*, SUM(IMAG(moments(1,:,:,:,:,:,updatetlevel)))
-    ! print*, SUM(REAL(phi(:,:,(1+ngz/2):(local_nz+ngz/2))))
-    ! print*, SUM(REAL(phi(:,:,:)))
-    ! print*, SUM(IMAG(phi(:,:,(1+ngz/2):(local_nz+ngz/2))))
-    ! print*, SUM(inv_poisson_op(:,:,:))
-    ! print*, rhtot
-    ! stop
   END SUBROUTINE poisson
 
   SUBROUTINE ampere