Subversion Repositories lagranto.ecmwf

Rev

Rev 19 | Go to most recent revision | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 19 Rev 27
Line 15... Line 15...
15 
c     Declaration of parameters
 15 
c     Declaration of parameters
16 
c     --------------------------------------------------------------------
 16 
c     --------------------------------------------------------------------
17 
 
 17 
 
18 
c     Maximum number of levels for input files
 18 
c     Maximum number of levels for input files
19 
      integer   nlevmax
 19 
      integer   nlevmax
20 
      parameter	(nlevmax=100)
 20 
      parameter	(nlevmax=200)
21 
 
 21 
 
22 
c     Maximum number of input files (dates, length of trajectories)
 22 
c     Maximum number of input files (dates, length of trajectories)
23 
      integer   ndatmax
 23 
      integer   ndatmax
24 
      parameter	(ndatmax=500)
 24 
      parameter	(ndatmax=500)
25 
 
 25