source: LMDZ6/branches/Amaury_dev/libf/dyn3d_common/lmdz_gradsdef.f90 @ 5139

Last change on this file since 5139 was 5137, checked in by abarral, 3 months ago

Put gradsdef.h, tracstoke.h, clesphys.h into modules
  • Property copyright set to
    Name of program: LMDZ
    Creation date: 1984
    Version: LMDZ5
    License: CeCILL version 2
    Holder: Laboratoire de m\'et\'eorologie dynamique, CNRS, UMR 8539
    See the license file in the root directory
  • Property svn:eol-style set to native
  • Property svn:keywords set to Author Date Id Revision
File size: 790 bytes
Line 
1! Replaces gradsdef.h
2
3MODULE lmdz_gradsdef
4  IMPLICIT NONE; PRIVATE
5  PUBLIC xd, yd, zd, dtime, &
6          imd, jmd, lmd, iid, jid, ifd, jfd, &
7          unit, irec, nvar, ivar, itime, nld, firsttime, &
8          var, fichier, title, tvar, nfmx, imx, jmx, lmx, nvarmx
9
10  INTEGER nfmx, imx, jmx, lmx, nvarmx
11  parameter(nfmx = 10, imx = 200, jmx = 150, lmx = 200, nvarmx = 1000)
12
13  REAL xd(imx, nfmx), yd(jmx, nfmx), zd(lmx, nfmx), dtime(nfmx)
14
15  INTEGER imd(imx), jmd(jmx), lmd(lmx)
16  INTEGER iid(imx), jid(jmx)
17  INTEGER ifd(imx), jfd(jmx)
18  INTEGER unit(nfmx), irec(nfmx), itime(nfmx), nld(nvarmx, nfmx)
19
20  INTEGER nvar(nfmx), ivar(nfmx)
21  LOGICAL firsttime(nfmx)
22
23  CHARACTER*10 var(nvarmx, nfmx), fichier(nfmx)
24  CHARACTER*40 title(nfmx), tvar(nvarmx, nfmx)
25
26END MODULE lmdz_gradsdef
Note: See TracBrowser for help on using the repository browser.