From 74e8b749c35e12c6fe42147ea1765b89a1af8097 Mon Sep 17 00:00:00 2001 From: Jessica Meixner Date: Fri, 5 Jan 2024 15:20:02 +0000 Subject: [PATCH] initialize USSP_WN for mod_def --- model/src/w3gridmd.F90 | 1 + 1 file changed, 1 insertion(+) diff --git a/model/src/w3gridmd.F90 b/model/src/w3gridmd.F90 index fa8128afb..f700dede8 100644 --- a/model/src/w3gridmd.F90 +++ b/model/src/w3gridmd.F90 @@ -2962,6 +2962,7 @@ SUBROUTINE W3GRID() CALL EXTCDE( 31) ENDIF + USSP_WN = 0.0 ! initialize to 0s DO J=1,USSPF(2) USSP_WN(j) = STK_WN(J) ENDDO