Subversion Repositories lagranto.ecmwf

Rev

Rev 9 | Rev 29 | Go to most recent revision | Show entire file | Ignore 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
Line 506... Line 506...
506
     >                tload,pollon,pollat,p3t0,spt0,nz,ak,bk,stagz,
506
     >                tload,pollon,pollat,p3t0,spt0,nz,ak,bk,stagz,
507
     >                timecheck)
507
     >                timecheck)
508
                call input_close(fid)
508
                call input_close(fid)
509
                
509
                
510
                iloaded0 = itime0
510
                iloaded0 = itime0
511
                
-
 
-
 
511
 
512
             endif
512
             endif
513
 
513
 
514
c            Load manager: Load second time (tracing variable and grid)
514
c            Load manager: Load second time (tracing variable and grid)
515
             if ( itime1.ne.iloaded1 ) then
515
             if ( itime1.ne.iloaded1 ) then
516
                
516