From f0e4b5821d16491b7126875391d8a727f0ac7e27 Mon Sep 17 00:00:00 2001
From: JessicaMeixner-NOAA <Jessica.Meixner@noaa.gov>
Date: Tue, 12 Dec 2023 15:25:23 -0600
Subject: [PATCH] better initalization of JAA

---
 model/src/w3triamd.F90 | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/model/src/w3triamd.F90 b/model/src/w3triamd.F90
index df6211c43..73f1d1b2b 100644
--- a/model/src/w3triamd.F90
+++ b/model/src/w3triamd.F90
@@ -206,6 +206,8 @@ SUBROUTINE READMSH(NDS,FNAME)
     USE W3SERVMD, ONLY: ITRACE, NEXTLN, EXTCDE
     USE CONSTANTS, only: LPDLIB
     USE W3ODATMD, ONLY: IAPROC
+    USE W3GDATMD, ONLY: GRIDS
+
     !
     IMPLICIT NONE
     !/
@@ -362,7 +364,9 @@ SUBROUTINE READMSH(NDS,FNAME)
     CALL COORDMAX
 
 #ifdef W3_PDLIB
-    NNZ=0 
+    NNZ=1 !Initialize to 1 since JAA is allocated with this size
+    ALLOCATE (GRIDS(1)%JAA(NNZ))
+    GRIDS(1)%JAA=0 !Set to zero to initilize in mod_def otherwise not used by pdlib
 #else
     CALL AREA_SI(1)
 #endif