diff options
| author | HEBERT Alain <alain.hebert@polymtl.ca> | 2025-10-23 10:31:44 -0400 |
|---|---|---|
| committer | HEBERT Alain <alain.hebert@polymtl.ca> | 2025-10-23 10:31:44 -0400 |
| commit | 56b7c71df99cc14f2de789bf2a2b84f62af42532 (patch) | |
| tree | 59432ba3095286067837cbdfcaf0edb56a93d0a1 /Dragon/src/MCGSIG.f | |
| parent | 2108052f8d9879e098c619b04dccb82020b8b0c9 (diff) | |
Resolve "Correct SFR geometry issues in module SALT:"
Diffstat (limited to 'Dragon/src/MCGSIG.f')
| -rw-r--r-- | Dragon/src/MCGSIG.f | 4 |
1 files changed, 3 insertions, 1 deletions
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) * |