Close nc files

This script does not close some input NetCDF files. This causes crashes due to too many files left open. The commit closes the files and should resolve the issue.
schism-dev · Aug 7, 2023 · 9517c51 · 9517c51
1 parent eb50ebd
commit 9517c51
Showing 1 changed file with 3 additions and 0 deletions.
diff --git a/src/Utility/OneWayNestScripts/interpolate_variables8.f90 b/src/Utility/OneWayNestScripts/interpolate_variables8.f90
@@ -635,6 +635,9 @@ program interpolate
 !        print*, 'finished writing time (days) = ',time/86400
       enddo !it1=1,nrec
       iret=nf90_close(ncid3)
+      iret=nf90_close(ncid4)
+      iret=nf90_close(ncid5)
+      iret=nf90_close(ncid6)
 
 !+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
       enddo !iday=1,