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