From 801af68c933bf80a1a898aafc088bb67e7c4d8d2 Mon Sep 17 00:00:00 2001 From: Juan Escobar <escj@aero.obs-mip.fr> Date: Thu, 5 Mar 2020 14:30:54 +0100 Subject: [PATCH] Juan 04/03/2020:mode_io_file_nc4.f90, reactive call to io_get_mnhversion+io_check_cleanly_closed_nc4 , no more perf pb with IOZ --- src/LIB/SURCOUCHE/src/mode_io_file_nc4.f90 | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/src/LIB/SURCOUCHE/src/mode_io_file_nc4.f90 b/src/LIB/SURCOUCHE/src/mode_io_file_nc4.f90 index b42803d7b..a79e59e45 100644 --- a/src/LIB/SURCOUCHE/src/mode_io_file_nc4.f90 +++ b/src/LIB/SURCOUCHE/src/mode_io_file_nc4.f90 @@ -122,9 +122,9 @@ subroutine io_open_file_nc4(tpfile) end if if (trim(tpfile%cmode) == 'READ') then - !call io_get_mnhversion(tpfile) - !if (tpfile%lmaster) call io_check_cleanly_closed_nc4(tpfile) - tpfile%nmnhversion = (/ 5,4,3 /) + call io_get_mnhversion(tpfile) + if (tpfile%lmaster) call io_check_cleanly_closed_nc4(tpfile) + !tpfile%nmnhversion = (/ 5,4,3 /) end if end subroutine io_open_file_nc4 -- GitLab