From 9c82dcaa62a7da4de1c145d3be7a7a7b54010df4 Mon Sep 17 00:00:00 2001
From: Gaelle DELAUTIER <gaelle.delautier@meteo.fr>
Date: Tue, 3 Oct 2017 16:12:56 +0200
Subject: [PATCH] Christine 03/10/2017 : remove print
---
src/MNH/read_chem_data_netcdf_case.f90 | 4 ++--
src/MNH/seriesn.f90 | 1 -
2 files changed, 2 insertions(+), 3 deletions(-)
diff --git a/src/MNH/read_chem_data_netcdf_case.f90 b/src/MNH/read_chem_data_netcdf_case.f90
index 247462703..f8294a62f 100644
--- a/src/MNH/read_chem_data_netcdf_case.f90
+++ b/src/MNH/read_chem_data_netcdf_case.f90
@@ -250,7 +250,7 @@ DEALLOCATE (ZXM)
! ------------------
!
! 2.1 Open netcdf files
-print*,'Open netcdf files:',HFILE
+!print*,'Open netcdf files:',HFILE
!
status = nf_open(HFILE, nf_nowrite, ncid)
if (status /= nf_noerr) call handle_err(status)
@@ -280,7 +280,7 @@ status = nf_inq_dimlen(ncid, lonid, lonlen)
if (status /= nf_noerr) call handle_err(status)
status = nf_inq_dimlen(ncid, levid, levlen)
if (status /= nf_noerr) call handle_err(status)
-print*, latlen, lonlen, levlen, nrecs
+!print*, latlen, lonlen, levlen, nrecs
!
! get variable IDs
!
diff --git a/src/MNH/seriesn.f90 b/src/MNH/seriesn.f90
index a80c570f5..3fc5c5bdb 100644
--- a/src/MNH/seriesn.f90
+++ b/src/MNH/seriesn.f90
@@ -150,7 +150,6 @@ IF (LSURF) THEN
ZHML(ILOOP,JLOOP)=ZSERIES(ILOOP-1+(IIE-1)*(JLOOP-2),5)
ENDDO
ENDDO
- print*,'seriesn : MINVAL(ZTS)=', MINVAL(ZTS),'MAXVAL(ZTS)=', MAXVAL(ZTS)
IF(NVERB==10) THEN
DO JLOOP=IJB-1,IJE+1
DO ILOOP=IIB-1,IIE+1
--
GitLab