Subversion Repositories lagranto.ecmwf

Rev

Rev 5 | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 5 Rev 27
Line 9... Line 9...
9 
 
 9 
 
10 
c     ----------------------------------------------------------------------
 10 
c     ----------------------------------------------------------------------
11 
c     Declaration of parameters
 11 
c     Declaration of parameters
12 
c     ----------------------------------------------------------------------
 12 
c     ----------------------------------------------------------------------
13 
 
 13 
 
14 
c     Numerical epsilon
 14 
c     Numerical epsiloN
15 
      real      eps
 15 
      real      eps
16 
      parameter (eps=0.0001)
 16 
      parameter (eps=0.0001)
17 
 
 17 
 
18 
c     ----------------------------------------------------------------------
 18 
c     ----------------------------------------------------------------------
19 
c     Declaration of variables
 19 
c     Declaration of variables
Line 39... Line 39...
39 
      real,allocatable, dimension (:,:,:) :: tra_out       ! Trajectories (ntra,ntim,ncol)
 39 
      real,allocatable, dimension (:,:,:) :: tra_out       ! Trajectories (ntra,ntim,ncol)
40 
      integer,allocatable, dimension (:)  :: ind           ! Index for selection
 40 
      integer,allocatable, dimension (:)  :: ind           ! Index for selection
41 
      integer,allocatable, dimension (:)  :: isok          ! Index for selection
 41 
      integer,allocatable, dimension (:)  :: isok          ! Index for selection
42 
      character*80                           vars_out(100) ! Variable names
 42 
      character*80                           vars_out(100) ! Variable names
43
43
44 
      real                                   time_inp(500) ! Times of input trajectory
 44 
      real                                   time_inp(10000) ! Times of input trajectory
45 
      real                                   time_out(500) ! Times of output trajectory
 45 
      real                                   time_out(10000) ! Times of output trajectory
46 
      integer                                refdate(6)    ! Reference date
 46 
      integer                                refdate(6)    ! Reference date
47 
      integer                                ind_time(500) ! Index for time selection
 47 
      integer                                ind_time(10000) ! Index for time selection
48 
 
 48 
 
49 
c     Auxiliary variables
 49 
c     Auxiliary variables
50 
      integer                                inpmode
 50 
      integer                                inpmode
51 
      integer                                outmode
 51 
      integer                                outmode
52 
      integer                                stat
 52 
      integer                                stat