diff --git a/src/MNH/read_chem_data_netcdf_case.f90 b/src/MNH/read_chem_data_netcdf_case.f90 index 247462703e1c50e022daf10ccd3196c26c5a4eb5..f8294a62fcb212641ee5b9a083393ad47231762f 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 a80c570f5e5c39c2ee93ec71bc4f957b4c57666b..3fc5c5bdb7c233cdcd214e8ba588f7346dbbc196 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