better initalization of JAA

JessicaMeixner-NOAA · Dec 12, 2023 · f0e4b58 · f0e4b58
1 parent df9a701
commit f0e4b58
Showing 1 changed file with 5 additions and 1 deletion.
diff --git 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