FDS Source: Fix array bound

mcgratta · Aug 10, 2023 · d0cd6d2 · d0cd6d2
1 parent 3ab576e
commit d0cd6d2
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/Source/func.f90 b/Source/func.f90
@@ -2414,7 +2414,7 @@ SUBROUTINE ALLOCATE_HT1D_UTILITY_ARRAYS
 ALLOCATE(Q_S(1:NWP_MAX),STAT=IZERO)            ; CALL ChkMemErr('INIT','Q_S',IZERO)
 ALLOCATE(RHO_S(0:NWP_MAX+1),STAT=IZERO)        ; CALL ChkMemErr('INIT','RHO_S',IZERO)
 ALLOCATE(TWO_DX_KAPPA_S(1:NWP_MAX),STAT=IZERO) ; CALL ChkMemErr('INIT','TWO_DX_KAPPA_S',IZERO)
-ALLOCATE(DELTA_TMP(0:NWP_MAX),STAT=IZERO)      ; CALL ChkMemErr('INIT','DELTA_TMP',IZERO)
+ALLOCATE(DELTA_TMP(0:NWP_MAX+1),STAT=IZERO)    ; CALL ChkMemErr('INIT','DELTA_TMP',IZERO)
 ALLOCATE(X_S_NEW(0:NWP_MAX),STAT=IZERO)        ; CALL ChkMemErr('INIT','X_S_NEW',IZERO)
 ALLOCATE(DX_S(1:NWP_MAX),STAT=IZERO)           ; CALL ChkMemErr('INIT','DX_S',IZERO)
 ALLOCATE(RDX_S(0:NWP_MAX+1),STAT=IZERO)        ; CALL ChkMemErr('INIT','RDX_S',IZERO)