| 1 | c======================================================================= |
|---|
| 2 | c INCLUDE '/usr/local/lmdgraph/libio/lmdstd.h' |
|---|
| 3 | |
|---|
| 4 | INTEGER bandmax |
|---|
| 5 | PARAMETER(bandmax=24) |
|---|
| 6 | |
|---|
| 7 | COMMON/lmdstdch/gtitre,gunites,gformat,gfichier,glistfich(100), |
|---|
| 8 | $ gentete,gdatedep,gdatefin |
|---|
| 9 | |
|---|
| 10 | CHARACTER*100 gtitre !du champ |
|---|
| 11 | CHARACTER*20 gunites !unites du champ |
|---|
| 12 | CHARACTER*20 gformat !formats FORTRAN ou zxliN (N=1,2,3) ou '' |
|---|
| 13 | CHARACTER*100 gfichier !nom du fichier contenant le champ |
|---|
| 14 | CHARACTER*100 gentete !nom generique (exemple desript. du RUN) |
|---|
| 15 | CHARACTER*8 gdatedep !date de depart de la moy. ou evol. temp. |
|---|
| 16 | CHARACTER*8 gdatefin !date de fin '' si une seule datefin |
|---|
| 17 | CHARACTER*20 glistfich !liste de champs a sortir |
|---|
| 18 | |
|---|
| 19 | COMMON/lmdstdnu/ gminimum,gmaximum, |
|---|
| 20 | $ gdeltajour(bandmax),gdeltapas(bandmax), |
|---|
| 21 | $ gnbetats(bandmax),gnbfich |
|---|
| 22 | |
|---|
| 23 | REAL gminimum ! \ min et max |
|---|
| 24 | REAL gmaximum ! / du champ |
|---|
| 25 | INTEGER gnbfich ! nombre de fichier a sortir |
|---|
| 26 | c pour les evolutions temporelles: |
|---|
| 27 | INTEGER gnbetats ! nombre d'etats par bande |
|---|
| 28 | INTEGER gdeltapas ! nombre de pas de temps entre 2 sorties |
|---|
| 29 | REAL gdeltajour ! ecart en jour des sorties sur bandes |
|---|
| 30 | |
|---|
| 31 | c======================================================================= |
|---|
