Cette option synthétise les propositions de "découplage" telles qu'elles ont été adoptées en 1992 pour les productions végétales.
Le fichier des paramètres est par défaut:
*
- ../aropa?/$PAYS/novpac2.par
La sous-matrice du PL imputable à la mise en oeuvre est :
c itest(k) + 2**2 ("MacSharry vegetal" = surfaces compensees)
c parametres : rcehm(k), rceja(k), rcemg(k), tan, ton, cupp, olea, cerea, ajj(j), bjj(j), pgms, djj(j)
c variables : X(j,), XA(jCOP_prim,k,l), XB(jCOP_prim,k,l), XC(jCOP_npri,k,l), IVEGN() et IVEGP() binaires
c rappel : jachere primee (j=46, XA-B), non primee (j=47, XC), mais fourrage (j=72, XA-C)
c contraintes : PVE(1-8,l), PVI()
c fonctions : comp(j,k) = rref(j,k)*ajj(j) si j cereales ou proteag,
c rref(j,k)*ajj(j)*olea/cerea si j oleagin,
c rref(j,k)*pgms si j = 46 (jachere primee)
c rref(j,k) = rcehm(k) si j cereales, rcemg(k) si mais grain, rceja(k) si jachere primable
c |X(j,k,l)| XA(j,k,l) | XB(j,k,l) | XC(j,k,l) |IVEGN(k)|IVEGP(k)| ZF(k,l) | Y(j,k,l) |
c -----------------------------------------------------------------------------------------------------------
c OBJ |-c(j,k) | -c(j,k)+comp(j,k)+bjj(j) | -c(j,k) | | | | djj(j) |
c -----------------------------------------------------------------------------------------------------------
c FEOGB | ... | +comp(j,k)+bjj(j) | | | | | ... |
c -----------------------------------------------------------------------------------------------------------
c QUANT(K,L) | ... | +comp(j,k)+bjj(j) | | | | | ... |
c -----------------------------------------------------------------------------------------------------------
c PVE(1,k,l) | | rref(j,k) | | | | | - ton | |<|
c -----------------------------------------------------------------------------------------------------------
c PVE(2,k,l) | |-cupp si j#46| | | | | | |<|
c | |1-cupp sinon | | | | | | |
c -----------------------------------------------------------------------------------------------------------
c PVE(3,k,l) | | |cupp si j#46 | | | | | |<|
c | | |cupp-1 sinon | | | | | |
c -----------------------------------------------------------------------------------------------------------
c PVE(4,k,l) | | 1. | | | | -400. | | |<| (mod. 11)
c -----------------------------------------------------------------------------------------------------------
c PVE(5,k,l) | | | 1. | 1. | -400. | | | |<| (mod. 11)
c -----------------------------------------------------------------------------------------------------------
c PVE(6,k,l) | | rref(j,k) | rref(j,k) | | | | - tan | |<| (mod. 11)
c -----------------------------------------------------------------------------------------------------------
c PVE(7,k,l) | | | |cupp si j#47| | | | |<|
c | | | |cupp-1 sinon| | | | |
c -----------------------------------------------------------------------------------------------------------
c PVE(8,k,l) | | si scop=0: -cvpp si j#46 | | | | | |<| (mod. 11)
c | | si scop=0: 1-cvpp sinon | | | | | |
c | | | | | | scop>0: | |
c | | si scop>0: 1 si j=46 | | | |-cvpp*scop| |
c -----------------------------------------------------------------------------------------------------------
c PVI(k,l) | | | | | 1. | 1. | | |=| 1.
c -----------------------------------------------------------------------------------------------------------
c voir complement PVE - PVI pour option 11 (gel fixe + jachere forestiere)