From cd876a272cab3564af77ce54afe993e9d40560a3 Mon Sep 17 00:00:00 2001
From: Steve Drake <stephenadrake@yahoo.com>
Date: Fri, 19 Jul 2024 09:37:56 -0700
Subject: [PATCH] Initialize ios variable to avoid runtime error on Intel
 Fortran

---
 src/share/ioModule.f90 | 1 +
 1 file changed, 1 insertion(+)

diff --git a/src/share/ioModule.f90 b/src/share/ioModule.f90
index 65e3469..ddadaee 100644
--- 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