source: LMDZ.3.3/trunk/libf/dyn3d/gradsdef.h @ 507

Last change on this file since 507 was 2, checked in by lmdz, 25 years ago

Initial revision

  • Property svn:eol-style set to native
  • Property svn:executable set to *
  • Property svn:keywords set to Author Date Id Revision
File size: 664 bytes
Line 
1      integer nfmx,imx,jmx,lmx,nf,nvarmx
2      parameter(nfmx=10,imx=200,jmx=150,lmx=20,nvarmx=1000)
3
4      real xd(imx,nfmx),yd(jmx,nfmx),zd(lmx,nfmx),dtime(nfmx)
5
6      integer imd(imx),jmd(jmx),lmd(lmx)
7      integer iid(imx),jid(jmx)
8      integer ifd(imx),jfd(jmx)
9      integer unit(nfmx),irec(nfmx),itime(nfmx),nld(nvarmx,nfmx)
10
11      integer nvar(nfmx),ivar(nfmx)
12      logical firsttime(nfmx)
13
14      character*10 var(nvarmx,nfmx),fichier(nfmx)
15      character*40 title(nfmx),tvar(nvarmx,nfmx)
16
17      common/gradsdef/xd,yd,zd,dtime,
18     s   imd,jmd,lmd,iid,jid,ifd,jfd,
19     s   unit,irec,nvar,ivar,nf,itime,nld,firsttime,
20     s   var,fichier,title,tvar
Note: See TracBrowser for help on using the repository browser.