Fixed bug when changed the writting of the grid binary file. (#103)

CaNS-World · Dec 19, 2023 · b774762 · b774762
1 parent b78414b
commit b774762
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/main.f90 b/src/main.f90
@@ -214,7 +214,7 @@ program cans
   call initgrid(gtype,ng(3),gr,l(3),dzc_g,dzf_g,zc_g,zf_g)
   if(myid == 0) then
     open(99,file=trim(datadir)//'grid.bin',access='stream')
-    write(99,rec=1) dzc_g(1:ng(3)),dzf_g(1:ng(3)),zc_g(1:ng(3)),zf_g(1:ng(3))
+    write(99) dzc_g(1:ng(3)),dzf_g(1:ng(3)),zc_g(1:ng(3)),zf_g(1:ng(3))
     close(99)
     open(99,file=trim(datadir)//'grid.out')
     do kk=0,ng(3)+1