From 80374c6e74bca5f117e01c2b777736e61c69b266 Mon Sep 17 00:00:00 2001 From: Julien Marrec Date: Tue, 10 Dec 2024 13:19:50 +0100 Subject: [PATCH] Minimal fix for #10847 - allocate right sized arrays --- src/Basement/3DBasementHT.f90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/Basement/3DBasementHT.f90 b/src/Basement/3DBasementHT.f90 index f5edb46c5bf..0104a3d96a1 100644 --- a/src/Basement/3DBasementHT.f90 +++ b/src/Basement/3DBasementHT.f90 @@ -9653,7 +9653,7 @@ SUBROUTINE CalcTearth(IEXT,JEXT,DZ,DZP,TG,CVG) !*** DECLARATIONS: - REAL(r64) A(50), B(50), C(50), R(50), X(50), ALB, ALBEDO(2), & + REAL(r64) A(100), B(100), C(100), R(100), X(100), ALB, ALBEDO(2), & & AVGWND, CG, CONST(0:100,2), CPA, DH, DODPG, DW, & & DZ(-35:100), DZP(-35:100), ELEV, EPS, EPSLN(2), & & GOFT, GOLD, HRAT(24), IEXT, JEXT, LAT, LONG, MSTD, PBAR(24), &