| 1 | c....................................................................... |
|---|
| 2 | c le COMMON pour GRADS-1D |
|---|
| 3 | c |
|---|
| 4 | c on peut se dire : "on ne sauvera pas plus de 1000 variables ... hein ?" |
|---|
| 5 | c |
|---|
| 6 | INTEGER g1d_nvarmx |
|---|
| 7 | PARAMETER(g1d_nvarmx=1000) |
|---|
| 8 | c |
|---|
| 9 | c * g1d_nlayer ---> nombre de couches verticales |
|---|
| 10 | c * g1d_nomfich ---> nom du fichier grads |
|---|
| 11 | c * g1d_unitfich ---> code du fichier grads |
|---|
| 12 | c * g1d_nomctl ---> nom du fichier ctl |
|---|
| 13 | c * g1d_unitctl ---> code du fichier ctl |
|---|
| 14 | c * g1d_premier ---> variable logique pour dire si le fichier |
|---|
| 15 | c est deja ouvert |
|---|
| 16 | c * g1d_irec ---> indice de derniere ecriture |
|---|
| 17 | c * g1d_nvar ---> nombre de variables deja definies a la |
|---|
| 18 | c derniere ecriture |
|---|
| 19 | c * g1d_nomvar ---> noms des vecteurs existants |
|---|
| 20 | c * g1d_dimvar ---> taille des vecteurs |
|---|
| 21 | c * g1d_titrevar ---> titres des vecteurs |
|---|
| 22 | c * g1d_tmp1 ---> caractere |
|---|
| 23 | c * g1d_tmp2 ---> caractere |
|---|
| 24 | c |
|---|
| 25 | INTEGER g1d_nlayer |
|---|
| 26 | CHARACTER*100 g1d_nomfich |
|---|
| 27 | INTEGER g1d_unitfich |
|---|
| 28 | CHARACTER*100 g1d_nomctl |
|---|
| 29 | INTEGER g1d_unitctl |
|---|
| 30 | LOGICAL g1d_premier |
|---|
| 31 | INTEGER g1d_irec |
|---|
| 32 | INTEGER g1d_nvar |
|---|
| 33 | CHARACTER*100 g1d_nomvar |
|---|
| 34 | INTEGER g1d_dimvar |
|---|
| 35 | CHARACTER*100 g1d_titrevar |
|---|
| 36 | CHARACTER*100 g1d_tmp1,g1d_tmp2 |
|---|
| 37 | c |
|---|
| 38 | COMMON/COMG1DI/g1d_nlayer |
|---|
| 39 | & ,g1d_unitfich |
|---|
| 40 | & ,g1d_unitctl |
|---|
| 41 | & ,g1d_irec |
|---|
| 42 | & ,g1d_nvar |
|---|
| 43 | COMMON/COMG1DC/g1d_dimvar(0:g1d_nvarmx) |
|---|
| 44 | & ,g1d_nomfich |
|---|
| 45 | & ,g1d_nomctl |
|---|
| 46 | & ,g1d_nomvar(0:g1d_nvarmx) |
|---|
| 47 | & ,g1d_titrevar(0:g1d_nvarmx) |
|---|
| 48 | & ,g1d_tmp1 |
|---|
| 49 | & ,g1d_tmp2 |
|---|
| 50 | COMMON/COMG1DL/g1d_premier |
|---|
| 51 | c |
|---|
| 52 | c....................................................................... |
|---|
