From 9517c51eea514e3a2b2a60287c77953ef8d2e6f8 Mon Sep 17 00:00:00 2001 From: Kijin Nam Date: Mon, 7 Aug 2023 12:32:30 -0700 Subject: [PATCH] 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. --- src/Utility/OneWayNestScripts/interpolate_variables8.f90 | 3 +++ 1 file changed, 3 insertions(+) diff --git a/src/Utility/OneWayNestScripts/interpolate_variables8.f90 b/src/Utility/OneWayNestScripts/interpolate_variables8.f90 index 5de4bdf49..bae182e39 100644 --- 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,