From aa9fc8810606db272939aaec66118eaa3ba9f244 Mon Sep 17 00:00:00 2001 From: "Katherine (Katy) Barnhart" Date: Wed, 26 Aug 2026 09:40:04 -0600 Subject: [PATCH] set all of aux to needs to be set --- src/2d/shallow/ginit.f | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/src/2d/shallow/ginit.f b/src/2d/shallow/ginit.f index b6bb5cb3c..35cc86cc3 100644 --- a/src/2d/shallow/ginit.f +++ b/src/2d/shallow/ginit.f @@ -34,7 +34,8 @@ subroutine ginit(msave, first, nvar, naux, start_time) node(store1,mptr) = loc if (naux .gt. 0) then locaux = igetsp(mitot*mjtot*naux) - do k = 1, mitot*mjtot*naux, naux ! only set first component of aux to signal + ! do k = 1, mitot*mjtot*naux, naux ! only set first component of aux to signal + do k = 1, mitot*mjtot*naux ! KRB 2026/08/26 - set all components to NEEDS_TO_BE_SET rather than just aux(1) alloc(locaux+k-1) = NEEDS_TO_BE_SET ! new system checks this val before setting end do