From 171991949af9490025f65f8f7a746a35fc9f8eb4 Mon Sep 17 00:00:00 2001
From: Juan ESCOBAR <juan.escobar@aero.obs-mip.fr>
Date: Thu, 15 Jun 2023 19:03:49 +0200
Subject: [PATCH] Juan 15/06/2023:ZSOLVER/dyn_sources.f90 , comment debug print
 in DEBUG compilation

---
 src/ZSOLVER/dyn_sources.f90 | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/ZSOLVER/dyn_sources.f90 b/src/ZSOLVER/dyn_sources.f90
index aa8feb2fc..d4d3b4275 100644
--- a/src/ZSOLVER/dyn_sources.f90
+++ b/src/ZSOLVER/dyn_sources.f90
@@ -275,7 +275,7 @@ CALL MNH_MEM_GET( ZRVT, JIU, JJU, JKU )
 ZRUT(:,:,:) = PUT(:,:,:) * MXM(PRHODJ(:,:,:))
 ZRVT(:,:,:) = PVT(:,:,:) * MYM(PRHODJ(:,:,:))
 
-print *,"PUT(1,1,1)",PUT(1,1,1)
+!print *,"PUT(1,1,1)",PUT(1,1,1)
 #else
 CALL MXM_DEVICE(PRHODJ(:,:,:), ZTMP1_DEVICE (:,:,:))
 CALL MYM_DEVICE(PRHODJ(:,:,:), ZTMP2_DEVICE (:,:,:))
-- 
GitLab