bnd_act.mod

*++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
* Copyright (C) 2000-2023 Energy Technology Systems Analysis Programme (ETSAP)
* This file is part of the IEA-ETSAP TIMES model generator, licensed
* under the GNU General Public License v3.0 (see file NOTICE-GPLv3.txt).
*=============================================================================*
* BND_ACT.MOD set the actual bounds for non-vintage VAR_ACTs
*=============================================================================*
*GaG Questions/Comments:
*  - FX take precedence as is set last!!!
*-----------------------------------------------------------------------------
*$ONLISTING
* reset any existing bounds
  %VAR%_ACT.LO(R,V,T,P,S%SWD%) = 0;
  %VAR%_ACT.UP(R,V,T,P,S%SWD%) = INF;

* assign from user data - only set bounds directly at the PRC_TS level

$IF %STAGES% == YES $SETLOCAL SWT SW_T(T%SWD%)$

  %VAR%_ACT.LO(RTP_VINTYR(R,T,T,P),S%SWD%)$(%SWT% PRC_TS(R,P,S) * (NOT PRC_VINT(R,P))) $= ACT_BND(R,T,P,S,'LO');
  %VAR%_ACT.UP(RTP_VINTYR(R,T,T,P),S%SWD%)$(%SWT% PRC_TS(R,P,S) * (NOT PRC_VINT(R,P))) $= ACT_BND(R,T,P,S,'UP');
  %VAR%_ACT.FX(RTP_VINTYR(%R_T%,T,P),S%SWD%)$(%SWT%PRC_TS(R,P,S)* (NOT PRC_VINT(R,P))) $= ACT_BND(R,T,P,S,'FX');
* for upper bounds of zero, activity variables of all vintages can be bounded to zero
  %VAR%_ACT.UP(RTP_VINTYR(R,V,T,P),S%SWD%)$(%SWT% PRC_TS(R,P,S) * PRC_VINT(R,P)$RTPS_OFF(R,T,P,S)) = EPS;

*$OFFLISTING