Remove masking of output of coarsened field. (CaNS-World#130)

p-costa · web-flow · commit 96355536dfbb · 2024-11-24T12:39:58.000+01:00
diff --git a/src/output.f90 b/src/output.f90
@@ -204,7 +204,7 @@ subroutine out3d(fname,nskip,p)
     filesize = 0_MPI_OFFSET_KIND
     call MPI_FILE_SET_SIZE(fh,filesize,ierr)
     disp = 0_MPI_OFFSET_KIND
-#if !defined(_OPENACC)
+#if 1
     call decomp_2d_write_every(ipencil,p,nskip(1),nskip(2),nskip(3),fname,.true.)
 #else
     !

Original file line number	Diff line number	Diff line change
`@@ -204,7 +204,7 @@ subroutine out3d(fname,nskip,p)`
`204`	`204`	`filesize = 0_MPI_OFFSET_KIND`
`205`	`205`	`call MPI_FILE_SET_SIZE(fh,filesize,ierr)`
`206`	`206`	`disp = 0_MPI_OFFSET_KIND`
`207`		`-#if !defined(_OPENACC)`
	`207`	`+#if 1`
`208`	`208`	`call decomp_2d_write_every(ipencil,p,nskip(1),nskip(2),nskip(3),fname,.true.)`
`209`	`209`	`#else`
`210`	`210`	`!`