Subversion Repositories lagranto.ecmwf

Rev

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

Rev 19 Rev 36
Line 15... Line 15...
15 
c     Set parameters
 15 
c     Set parameters
16 
c     --------------------------------------------------------------
 16 
c     --------------------------------------------------------------
17 
 
 17 
 
18 
c     Maximum number of starting positions
 18 
c     Maximum number of starting positions
19 
      integer           nmax
 19 
      integer           nmax
20 
      parameter         (nmax=2000000)
 20 
      parameter         (nmax=4000000)
21 
 
 21 
 
22 
c     Maximum number of model levels
 22 
c     Maximum number of model levels
23 
      integer           nlevmax
 23 
      integer           nlevmax
24 
      parameter         (nlevmax=200)
 24 
      parameter         (nlevmax=200)
25
25