Skip to content
Snippets Groups Projects
Commit 801af68c authored by Juan Escobar's avatar Juan Escobar
Browse files

Juan 04/03/2020:mode_io_file_nc4.f90, reactive call to...

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
parent 02095001
No related branches found
No related tags found
No related merge requests found
...@@ -122,9 +122,9 @@ subroutine io_open_file_nc4(tpfile) ...@@ -122,9 +122,9 @@ subroutine io_open_file_nc4(tpfile)
end if end if
if (trim(tpfile%cmode) == 'READ') then if (trim(tpfile%cmode) == 'READ') then
!call io_get_mnhversion(tpfile) call io_get_mnhversion(tpfile)
!if (tpfile%lmaster) call io_check_cleanly_closed_nc4(tpfile) if (tpfile%lmaster) call io_check_cleanly_closed_nc4(tpfile)
tpfile%nmnhversion = (/ 5,4,3 /) !tpfile%nmnhversion = (/ 5,4,3 /)
end if end if
end subroutine io_open_file_nc4 end subroutine io_open_file_nc4
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment