diff options
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) * |