diff --git a/src/restarts_mod.F90 b/src/restarts_mod.F90 index c8419341593e2db9d2b937ebcc9b0f2aa61139e2..17708cfafbe56fa05d95031f24cd90d8efbbafae 100644 --- a/src/restarts_mod.F90 +++ b/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 diff --git a/src/solve_EM_fields.F90 b/src/solve_EM_fields.F90 index 01fc26ff1ba95ab7205e521fad39eeda595f252b..871cc185a0d423ef102621536ebb6e8a8baa2552 100644 --- a/src/solve_EM_fields.F90 +++ b/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