| Line 80... |
Line 80... |
| 80 |
! Trajectories
|
80 |
! Trajectories
|
| 81 |
real,allocatable, dimension (:,:,:) :: trainp ! Input trajectories (ntra,ntim,ncol)
|
81 |
real,allocatable, dimension (:,:,:) :: trainp ! Input trajectories (ntra,ntim,ncol)
|
| 82 |
real,allocatable, dimension (:,:,:) :: traint ! Internal trajectories (ntra,ntim,ncol+ntrace1)
|
82 |
real,allocatable, dimension (:,:,:) :: traint ! Internal trajectories (ntra,ntim,ncol+ntrace1)
|
| 83 |
real,allocatable, dimension (:,:,:) :: traout ! Output trajectories (ntra,ntim,ncol+ntrace0)
|
83 |
real,allocatable, dimension (:,:,:) :: traout ! Output trajectories (ntra,ntim,ncol+ntrace0)
|
| 84 |
integer :: reftime(6) ! Reference date
|
84 |
integer :: reftime(6) ! Reference date
|
| 85 |
character(len=80) :: varsinp(100) ! Field names for input trajectory
|
85 |
character(len=80) :: varsinp(200) ! Field names for input trajectory
|
| 86 |
character(len=80) :: varsint(100) ! Field names for internal trajectory
|
86 |
character(len=80) :: varsint(200) ! Field names for internal trajectory
|
| 87 |
character(len=80) :: varsout(100) ! Field names for output trajectory
|
87 |
character(len=80) :: varsout(200) ! Field names for output trajectory
|
| 88 |
integer :: fid,fod ! File identifier for inp and out trajectories
|
88 |
integer :: fid,fod ! File identifier for inp and out trajectories
|
| 89 |
real :: x0,y0,p0 ! Position of air parcel (physical space)
|
89 |
real :: x0,y0,p0 ! Position of air parcel (physical space)
|
| 90 |
real :: reltpos0 ! Relative time of air parcel
|
90 |
real :: reltpos0 ! Relative time of air parcel
|
| 91 |
real :: xind,yind,pind ! Position of air parcel (grid space)
|
91 |
real :: xind,yind,pind ! Position of air parcel (grid space)
|
| 92 |
integer :: fbflag ! Flag for forward (1) or backward (-1) trajectories
|
92 |
integer :: fbflag ! Flag for forward (1) or backward (-1) trajectories
|
| 93 |
integer :: fok(100) ! Flag whether field is ready
|
93 |
integer :: fok(200) ! Flag whether field is ready
|
| 94 |
|
94 |
|
| 95 |
! Meteorological fields
|
95 |
! Meteorological fields
|
| 96 |
real,allocatable, dimension (:) :: spt0,spt1 ! Surface pressure
|
96 |
real,allocatable, dimension (:) :: spt0,spt1 ! Surface pressure
|
| 97 |
real,allocatable, dimension (:) :: p3t0,p3t1 ! 3d-pressure
|
97 |
real,allocatable, dimension (:) :: p3t0,p3t1 ! 3d-pressure
|
| 98 |
real,allocatable, dimension (:) :: f3t0,f3t1 ! 3d field for tracing
|
98 |
real,allocatable, dimension (:) :: f3t0,f3t1 ! 3d field for tracing
|