From 062939045a712eb33914541892b73da6a0ac51e3 Mon Sep 17 00:00:00 2001
From: Antoine Hoffmann <antoine.hoffmann@epfl.ch>
Date: Fri, 26 May 2023 15:36:04 +0200
Subject: [PATCH] cleaning
---
src/restarts_mod.F90 | 3 ---
src/solve_EM_fields.F90 | 9 ---------
2 files changed, 12 deletions(-)
diff --git a/src/restarts_mod.F90 b/src/restarts_mod.F90
index c8419341..17708cfa 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 01fc26ff..871cc185 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
--
GitLab