From 56b7c71df99cc14f2de789bf2a2b84f62af42532 Mon Sep 17 00:00:00 2001
From: HEBERT Alain <alain.hebert@polymtl.ca>
Date: Thu, 23 Oct 2025 10:31:44 -0400
Subject: Resolve "Correct SFR geometry issues in module SALT:"

---
 Dragon/src/MCGSIG.f | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

(limited to 'Dragon/src/MCGSIG.f')

diff --git a/Dragon/src/MCGSIG.f b/Dragon/src/MCGSIG.f
index 9509841..3589cd6 100644
--- a/Dragon/src/MCGSIG.f
+++ b/Dragon/src/MCGSIG.f
@@ -41,12 +41,14 @@
 * LOCAL VARIABLES
 *---
       TYPE(C_PTR) JPSYS
-      INTEGER I,II,ISA,ICODE(6)
+      INTEGER I,II,ISA,ICODE(6),ILONG,ITYLCM
       REAL ALBG(6),ALBEDO(6)
       REAL, ALLOCATABLE, DIMENSION(:) :: ALBP
 *---
 * RECOVER ALBEDO INFORMATION FROM TRACKING
 *---
+      CALL LCMLEN(IPTRK,'ICODE',ILONG,ITYLCM)
+      IF(ILONG.GT.6) CALL XABORT('MCGSIG: ALBEDO OVERFLOW.')
       CALL LCMGET(IPTRK,'ICODE',ICODE)
       CALL LCMGET(IPTRK,'ALBEDO',ALBG)
 *
-- 
cgit v1.2.3