source: LMDZ5/trunk/libf/dyn3d/gradsdef.h @ 1907

Last change on this file since 1907 was 1907, checked in by lguez, 11 years ago

Added a copyright property to every file of the distribution, except
for the fcm files (which have their own copyright). Use svn propget on
a file to see the copyright. For instance:

$ svn propget copyright libf/phylmd/physiq.F90
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

Also added the files defining the CeCILL version 2 license, in French
and English, at the top of the LMDZ tree.
  • 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: 674 bytes
Line 
1!
2! $Header$
3!
4      integer nfmx,imx,jmx,lmx,nvarmx
5      parameter(nfmx=10,imx=200,jmx=150,lmx=200,nvarmx=1000)
6
7      real xd(imx,nfmx),yd(jmx,nfmx),zd(lmx,nfmx),dtime(nfmx)
8
9      integer imd(imx),jmd(jmx),lmd(lmx)
10      integer iid(imx),jid(jmx)
11      integer ifd(imx),jfd(jmx)
12      integer unit(nfmx),irec(nfmx),itime(nfmx),nld(nvarmx,nfmx)
13
14      integer nvar(nfmx),ivar(nfmx)
15      logical firsttime(nfmx)
16
17      character*10 var(nvarmx,nfmx),fichier(nfmx)
18      character*40 title(nfmx),tvar(nvarmx,nfmx)
19
20      common/gradsdef/xd,yd,zd,dtime,
21     s   imd,jmd,lmd,iid,jid,ifd,jfd,
22     s   unit,irec,nvar,ivar,itime,nld,firsttime,
23     s   var,fichier,title,tvar
Note: See TracBrowser for help on using the repository browser.