next up previous contents
Next: Traitements de résultats Up: Instruments de politiques agricoles Previous: "Paquet Santer"

  
Module "épandage"

Le module épandage est conçu à partir du travail de Laure Bamière. Pour des raisons liées aux contraintes sur la nomenclature "MGG", l'indice 'L' est supprimé du module. Les contraintes techniques et les contraintes de respect des normes environnementales sont résumées dans la sous-matrice suivante: *
- BA(J,K) : contrainte satisfaction des besoins en N utile (t N)
- EPA(J,K) : normes environnementales d'epandage dejections (t N)
- EQEP(O,K) : Bilan epandage-prod. déject. (t fumier ou m3 lisier)
- EI(O,I,K) : Quantité total déj o source animal i (t m3)
- EQJ(J,K) : N org utile pour activité J (t N)
- EQM(J,K) : N org total pour activité J (t N)

Les activités associées sont: *
- QEN(J,K) : quantité d'engrais cours culture epandue sur surftotj (t) QEN(J,K) '***JJKK' NOT IF (mgesd.eq.0.)
- Q(I,J,K,O): quantité utilisée dej. o prod. par troupeau i k (t ou m3) Q(O,I,K,L) '*IIJJKKO' NOT IF (mgesd.eq.0.)
- QJ(O,J,K) : quantité dejection o utilisée sur surface j k (t ou m3) QJ(O,J,K) '**OJJKK' NOT IF (mgesd.eq.0.)
- QOM(J,K) : quantité N tot issu déjection epandue sur surftotj (t N) QOM(J,K) '***JJKKL' NOT IF (mgesd.eq.0.)
- QON(J,K) : quantité N utile issu déj. epandue sur surftotj (t N) QON(J,K) '***JJKKL' NOT IF (mgesd.eq.0.)

Ce module est remodelé en janvier et février 2004, avec une indexation appropriée (O/L ...) qui s'affranchit un peu des règles générales, compte tenu des limites imposées par MGG (nombre de caractères pour la détermination des noms de variables). Les indices K et L sont supprimées des variables primales et duales nouvellement créées.

c  -----------------------------------------------------------------------------------------------------------------
c               | Q(I,J,K,O)  | QOM(J,K)   | QON(J,K)   |   QEN(J,K)    | X,XA-D(J,K,L)  | ANI(I,K,L) | XTT(J) |          
c  -----------------------------------------------------------------------------------------------------------------
c   OBJ         |             |            |            |   - CQE =     |                |            |        |          
c               |             |            |            |  prxnc(nj,nk) |                |            |        |          
c               |             |            |            | +fnesc(nj,nk) |                |            |        |          
c               |             |            |            |  * pgesn      |                |            |        |          
c  -----------------------------------------------------------------------------------------------------------------
c   EI(O,I,K)   |      1      |            |            |               |                |  - QID =   |        |<| 0
c               |             |            |            |               |                |qidej(o,i,k)|        |          
c               |             |            |            |               |                |*epd(o,i,k) |        |          
c  -----------------------------------------------------------------------------------------------------------------
c   EQJ(J,K)    |   - QJD =   |            |      1     |               |                |            |        |<| 0
c               |fned(o,i,k)* |            |            |               |                |            |        |          
c               |coo(o,i,j,k) |            |            |               |                |            |        |          
c  -----------------------------------------------------------------------------------------------------------------
c   EQM(J,K)    |    QJM =    |    - 1     |            |               |                |            |        |<| 0
c               | fned(o,i,k) |            |            |               |                |            |        |          
c  -----------------------------------------------------------------------------------------------------------------
c   BA(J,K)     |             |            |    - 1     |   - FNE =     |      BEN =     |            |        |<| 0
c               |             |            |            |  fnesc(j,k)   |  benjk(nj,nk)  |            |        |          
c               |             |            |            |               |  * rjk(nj,nk)  |            |        |          
c               |             |            |            |               |       ou       |            |        |          
c               |             |            |            |               |(neojk(nj,nk) ou|            |        |          
c               |             |            |            |               | nexjk(nj,nk))  |            |        |          
c               |             |            |            |               | - qengf(nj,nk) |            |        |          
c               |             |            |            |               | * fnesf(nj,nk) |            |        |          
c  -----------------------------------------------------------------------------------------------------------------
c   EPA(J,K)    |             |     1      |            |               |    - MXD =     |            |        |<| 0
c               |             |            |            |               |   mxdej(j,k)   |            |        |          
c  -----------------------------------------------------------------------------------------------------------------
c   FBGES       |             |            |            |     GAE =     |                |    GAN     | GAX=   |          
c               |             |            |            | fnesc(nj,nk)  |                |            |pjes(j)+|          
c               |             |            |            |  * pgesn      |                |            | fnesf  |          
c               |             |            |            |               |                |            | *qengf |          
c               |             |            |            |               |                |            | *pgesn |          
c  -----------------------------------------------------------------------------------------------------------------
c   FBN2O       |     ...        modifier si Bouwman  (sinon cf bloc EMS() }7.12)         ....
c  -----------------------------------------------------------------------------------------------------------------

Pour activer ce module, il faut qu'un paramètre au format "mgg.par" soit créé sous le nom 'mgesd' et qu'il ait la valeur "1.". Il y a également interférence avec le paramètre d'activation du module calcul des rendements ('endrg'). Cela renvoit aux "NOTIF" des déclarations d'activité et de contrainte du générateur 'aro.mgg'. Il faut également disposer des paramètres techniques au format "mgg.par". Pour cela, le mieux est de créer un fichier 'epandag.don' à l'image de ce qui a été réalisé pour le module "alimentation animale" (i.e. 'alimges.don'). Il s'agit alors de cloner le programme 'alimges.f' en un programme 'epandag.f' et de le modifier en fonction de la nomenclature des paramètres créés (cela suppose une parfaite cohérence entre les fichiers 'epandag.f', 'epandag.don' d'une part, et le générateur 'aro.mgg' et surtout 'intern.f' d'autre part. Il faut cloner la commande 'alimges.csh' en une commande 'epandag.csh' et créer le fichier 'epandag.i' (en l'occurence une copie du fichier 'alimges.i'). L'organisation et la localisation des fichiers est rappelée dans le cahier "aropa" du 23oct2003, pour être valorisée dans le cadre du développement des dernières versions UE-15 du modèle. Enfin, pour créer de façon simple et automatique les fichiers '$PAY/epandag.par', il suffit de faire appel au CShell 'eurextract.csh' (voir le cahier "aropa" du 23oct2003 et le memento "cdxue").

Laure Bamière a créé les données permettant d'accéder au module, sur des fichiers de type '$PAYS/epandag.don'.


next up previous contents
Next: Traitements de résultats Up: Instruments de politiques agricoles Previous: "Paquet Santer"
Pierre-Alain Jayet
2004-02-13