LOGICAL useGMRediInAdMode, useGMRediInFwdMode
& useGMRediInAdMode, useGMRediInFwdMode,
useGMRedi = useGMRediInAdMode
useGMRediInAdMode = useGMRediInAdMode .AND. useGMRedi
CALL WRITE_0D_L( useGMRediInAdMode, INDEX_NONE,
& useGMRediInAdMode, useSALT_PLUMEinAdMode,
useGMRediInAdMode = .TRUE.