1 |
guez |
3 |
module gradsdef |
2 |
|
|
|
3 |
|
|
! From dyn3d/gradsdef.h,v 1.1.1.1 2004/05/19 12:53:07 |
4 |
|
|
|
5 |
|
|
implicit none |
6 |
|
|
|
7 |
|
|
integer, parameter:: nfmx=10,imx=200,jmx=150,lmx=100,nvarmx=1000 |
8 |
|
|
|
9 |
|
|
real xd(imx,nfmx),yd(jmx,nfmx),zd(lmx,nfmx),dtime(nfmx) |
10 |
|
|
|
11 |
|
|
integer imd(imx),jmd(jmx),lmd(lmx) |
12 |
|
|
integer iid(imx),jid(jmx) |
13 |
|
|
integer ifd(imx),jfd(jmx) |
14 |
|
|
integer unit(nfmx),irec(nfmx),itime(nfmx),nld(nvarmx,nfmx) |
15 |
|
|
|
16 |
|
|
integer nvar(nfmx),ivar(nfmx) |
17 |
|
|
logical firsttime(nfmx) |
18 |
|
|
|
19 |
|
|
character(len=10) var(nvarmx,nfmx),fichier(nfmx) |
20 |
|
|
character(len=40) title(nfmx),tvar(nvarmx,nfmx) |
21 |
|
|
|
22 |
|
|
end module gradsdef |