Subversion Repositories lagranto.ecmwf

Rev

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

Rev 13 Rev 29
Line 19... Line 19...
19 
      integer   nlevmax
 19 
      integer   nlevmax
20 
      parameter (nlevmax=100)
 20 
      parameter (nlevmax=100)
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=5000)
25 
 
 25 
 
26 
c     Numerical epsilon (for float comparison)
 26 
c     Numerical epsilon (for float comparison)
27 
      real      eps
 27 
      real      eps
28 
      parameter (eps=0.001)
 28 
      parameter (eps=0.001)
29 
 
 29 
 
Line 105... Line 105...
105 
      real                                   stagz           ! Vertical staggering
 105 
      real                                   stagz           ! Vertical staggering
106 
      real                                   mdv             ! Missing data value
 106 
      real                                   mdv             ! Missing data value
107 
 
 107 
 
108 
c	  Output grid  and fields
 108 
c	  Output grid  and fields
109 
      real                                   levels(1000)    ! Ouput levels
 109 
      real                                   levels(1000)    ! Ouput levels
110 
      real                                   times (1000)    ! Output times
 110 
      real                                   times (5000)    ! Output times
111 
	  real,allocatable, dimension (:,:)   :: out_pos         ! Position of trajectories
 111 
	  real,allocatable, dimension (:,:)   :: out_pos         ! Position of trajectories
112 
	  real,allocatable, dimension (:,:)   :: out_val         ! Output lidar field
 112 
	  real,allocatable, dimension (:,:)   :: out_val         ! Output lidar field
113 
	  real,allocatable, dimension (:,:)   :: out_cnt         ! # output lidar sum ups
 113 
	  real,allocatable, dimension (:,:)   :: out_cnt         ! # output lidar sum ups
114 
 
 114 
 
115 
 
 115