Skip to content
Snippets Groups Projects
Commit 0dbe8d9e authored by WAUTELET Philippe's avatar WAUTELET Philippe
Browse files

Philippe 09/10/2024: IO: fix: provide optional dummy argument kresp when...

Philippe 09/10/2024: IO: fix: provide optional dummy argument kresp when opening Zsplit files (to get coorect iresp at the end)
parent b6c2e73a
No related branches found
No related tags found
No related merge requests found
......@@ -171,7 +171,7 @@ SELECT CASE(TPFILE%CTYPE)
CALL IO_File_open(TZFILE_DES,HPROGRAM_ORIG=HPROGRAM_ORIG)
ENDIF
!Do the open of the main file before maanaging the split files
!Do the open of the main file before managing the split files
!This is necessary because the open can detect automatically if there are split files
!(and therefore set NSUBFILES_IOZ)
CALL IO_File_doopen(TPFILE,IRESP,kmasterrank=kmasterrank,HMODE='MASTER',HPROGRAM_ORIG=HPROGRAM_ORIG)
......@@ -211,7 +211,7 @@ SELECT CASE(TPFILE%CTYPE)
TPFILE%TFILES_IOZ(IFILE)%TFILE => TZFILE_SPLIT
CALL IO_File_open(TZFILE_SPLIT, kmasterrank=IRANK_PROCIO,HPROGRAM_ORIG=HPROGRAM_ORIG)
CALL IO_File_open(TZFILE_SPLIT, kresp=iresp, kmasterrank=IRANK_PROCIO,HPROGRAM_ORIG=HPROGRAM_ORIG)
END DO
end if
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment