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