Last change
on this file since 2537 was
1397,
checked in by milmd, 10 years ago
|
In LMDZ.GENERIC replacement of all phystd .h files by module files.
|
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.