Subversion Repositories lagranto.ecmwf

Rev

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

Rev 9 Rev 13
Line 112... Line 112...
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 
 
116 
c     Auxiliary variables
 116 
c     Auxiliary variables
117 
      integer                                i,j,k,l,n
 117 
      integer                                i,j,k,l,n,m
118 
      real                                   rd
 118 
      real                                   rd
119 
      character*80                           filename
 119 
      character*80                           filename
120 
      real                                   time0,time1,reltpos
 120 
      real                                   time0,time1,reltpos
121 
      integer                                itime0,itime1
 121 
      integer                                itime0,itime1
122 
      integer                                stat
 122 
      integer                                stat