source: trunk/LMDZ.GENERIC/libf/phystd/comg1d_mod.F90 @ 2537

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 
1MODULE comg1d_mod
2IMPLICIT 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
50END MODULE comg1d_mod
Note: See TracBrowser for help on using the repository browser.