Initialize ios variable to avoid runtime error on Intel Fortran

NOAA-OWP · Jul 19, 2024 · cd876a2 · cd876a2
1 parent 4cde7a9
commit cd876a2
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/src/share/ioModule.f90 b/src/share/ioModule.f90
@@ -172,6 +172,7 @@ SUBROUTINE init_forcing_files(namelist, runinfo, parameters)
 
     ! --- code ------------------------------------------------------------------
     print*, 'Initializing forcing files'
+    ios = 0
     found_start = 0
     do nh=1, runinfo%n_hrus