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)
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
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment