|
Last change
on this file since 3372 was
3184,
checked in by afalco, 10 months ago
|
|
Pluto PCM:
Added LMDZ.PLUTO, a copy of the generic model,
cleaned from some unnecessary modules (water, ...)
AF
|
|
File size:
1.7 KB
|
| Line | |
|---|
| 1 | MODULE comg1d_mod |
|---|
| 2 | IMPLICIT NONE |
|---|
| 3 | |
|---|
| 4 | !....................................................................... |
|---|
| 5 | ! le COMMON pour GRADS-1D |
|---|
| 6 | ! (Utilise pour les sorties format Grads dans la version 1D du modele) |
|---|
| 7 | ! |
|---|
| 8 | ! on peut se dire : "on ne sauvera pas plus de 1000 variables ... hein ?" |
|---|
| 9 | ! |
|---|
| 10 | INTEGER g1d_nvarmx |
|---|
| 11 | PARAMETER(g1d_nvarmx=1000) |
|---|
| 12 | |
|---|
| 13 | ! * g1d_nlayer ---> nombre de couches verticales |
|---|
| 14 | ! * g1d_nomfich ---> nom du fichier grads |
|---|
| 15 | ! * g1d_unitfich ---> code du fichier grads |
|---|
| 16 | ! * g1d_nomctl ---> nom du fichier ctl |
|---|
| 17 | ! * g1d_unitctl ---> code du fichier ctl |
|---|
| 18 | ! * g1d_premier ---> variable logique pour dire si le fichier |
|---|
| 19 | ! est deja ouvert |
|---|
| 20 | ! * g1d_irec ---> indice de derniere ecriture |
|---|
| 21 | ! * g1d_nvar ---> nombre de variables deja definies a la |
|---|
| 22 | ! derniere ecriture |
|---|
| 23 | ! * g1d_nomvar ---> noms des vecteurs existants |
|---|
| 24 | ! * g1d_dimvar ---> taille des vecteurs |
|---|
| 25 | ! * g1d_titrevar ---> titres des vecteurs |
|---|
| 26 | ! * g1d_tmp1 ---> caractere |
|---|
| 27 | ! * g1d_tmp2 ---> caractere |
|---|
| 28 | |
|---|
| 29 | INTEGER g1d_nlayer |
|---|
| 30 | CHARACTER*100 g1d_nomfich |
|---|
| 31 | INTEGER g1d_unitfich |
|---|
| 32 | CHARACTER*100 g1d_nomctl |
|---|
| 33 | INTEGER g1d_unitctl |
|---|
| 34 | LOGICAL g1d_premier |
|---|
| 35 | LOGICAL g2d_premier |
|---|
| 36 | INTEGER g1d_irec |
|---|
| 37 | INTEGER g2d_irec |
|---|
| 38 | INTEGER g2d_appel |
|---|
| 39 | INTEGER g1d_nvar |
|---|
| 40 | CHARACTER*100 g1d_nomvar(0:g1d_nvarmx) |
|---|
| 41 | INTEGER g1d_dimvar(0:g1d_nvarmx) |
|---|
| 42 | CHARACTER*100 g1d_titrevar(0:g1d_nvarmx) |
|---|
| 43 | CHARACTER*100 g1d_tmp1,g1d_tmp2 |
|---|
| 44 | |
|---|
| 45 | ! added by RW |
|---|
| 46 | integer saveG1D |
|---|
| 47 | ! |
|---|
| 48 | !....................................................................... |
|---|
| 49 | |
|---|
| 50 | END MODULE comg1d_mod |
|---|
Note: See
TracBrowser
for help on using the repository browser.
