This mpi_win_free() seems to cause crash near end of runs

schism-dev · Jan 21, 2025 · 0a71d90 · 0a71d90
1 parent f2fe19a
commit 0a71d90
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/Hydro/schism_finalize.F90 b/src/Hydro/schism_finalize.F90
@@ -118,7 +118,7 @@ subroutine schism_finalize
 !-------------------------------------------------------------------------------
 
 #ifdef SH_MEM_COMM
-      call mpi_win_free(h_win,ierr) ! free ath3 shared memory window
+!      call mpi_win_free(h_win,ierr) ! free ath3 shared memory window
 #endif
 
       if(ihydraulics/=0) call finalize_hydraulic_structures