Merge pull request #181 from hmarbona/master

convertMesh2OF.f90. Fixed for debug ifort due to undeclared fid
loganoz · Sep 21, 2023 · aabd392 · aabd392
2 parents bd9c57d + 484506e
commit aabd392
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/Solver/src/addons/horsesConverter/convertMesh2OF.f90 b/Solver/src/addons/horsesConverter/convertMesh2OF.f90
@@ -127,7 +127,7 @@ SUBROUTINE convertHorses2OFMesh (meshName, boundaryFile, Nout)
 !        Create pointer for paraview
 !        ---------------------------
 		 CALL chdir('foamFiles')
-		 open(fid, file="paraView.foam", status="unknown", action="write")
+		 open( newunit =fid, file="paraView.foam", status="unknown", action="write")
 		 close(fid)
 
 		 write(STD_OUT,'(/)')