Minimal fix for NREL#10847 - allocate right sized arrays

jmarrec · Dec 10, 2024 · 80374c6 · 80374c6
1 parent aec3fd7
commit 80374c6
Showing 1 changed file with 1 addition and 1 deletion.
diff --git 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),      &