Subversion Repositories lagranto.ecmwf

Rev

Rev 9 | 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