diff options
| author | Alain Hebert <alainhebert@Alains-MacBook-Pro.local> | 2025-10-19 11:39:22 +0200 |
|---|---|---|
| committer | Alain Hebert <alainhebert@Alains-MacBook-Pro.local> | 2025-10-19 11:39:22 +0200 |
| commit | fd2671c00d2aa6659d51cd676d9d0a01016cd248 (patch) | |
| tree | 446377010774826f3d24fa3e8f52905a14c0a7ea /Dragon/src/MCCGT.f | |
| parent | f00eea9ff4dd094374672f5ef73939ed6a4dd9d5 (diff) | |
#8: Improve epsilon tests and error detection in module SALT:
Diffstat (limited to 'Dragon/src/MCCGT.f')
| -rw-r--r-- | Dragon/src/MCCGT.f | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/Dragon/src/MCCGT.f b/Dragon/src/MCCGT.f index cb890d9..458a1f4 100644 --- a/Dragon/src/MCCGT.f +++ b/Dragon/src/MCCGT.f @@ -158,19 +158,21 @@ ENDDO READ(IFTRAK) NDIM,ISPEC,N2REG,N2SOU,NALBG,NCOR,NANGL,MXSUB,MXSEG IF((NDIM.NE.2).AND.(NDIM.NE.3)) - & CALL XABORT('2D OR 3D EXCELT TRACKING EXPECTED') + 1 CALL XABORT('2D OR 3D EXCELT TRACKING EXPECTED') *---- * RECOVER TRACKING STATE-VECTOR AND USER INPUT INFORMATION *---- IGP(:NSTATE)=0 CALL LCMGET(IPTRK,'STATE-VECTOR',IGP) - CALL LCMGET(IPTRK,'ALBEDO',ALBEDO) + IF(IGP(7).EQ.5) CALL XABORT('MCCGT: THE SHORT CHARACTERISTICS M' + 1 //'ETHOD IS NOT IMPLEMENTED. USE NOIC OPTION IN SALT:.') NREG=IGP(1) NSOU=IGP(5) NANIS=IGP(6) TRTY=IGP(9) CYCLIC=(TRTY.EQ.1) ISYMM=IGP(12) + CALL LCMGET(IPTRK,'ALBEDO',ALBEDO) * IMPX=1 LCACT=IGP(13) |