| Line 35... |
Line 35... |
| 35 |
integer ntra_inp1 ! Number of trajectories
|
35 |
integer ntra_inp1 ! Number of trajectories
|
| 36 |
integer ntim_inp1 ! Number of times
|
36 |
integer ntim_inp1 ! Number of times
|
| 37 |
integer ncol_inp1 ! Number of columns
|
37 |
integer ncol_inp1 ! Number of columns
|
| 38 |
real,allocatable, dimension (:,:,:) :: tra_inp1 ! Trajectories (ntra,ntim,ncol)
|
38 |
real,allocatable, dimension (:,:,:) :: tra_inp1 ! Trajectories (ntra,ntim,ncol)
|
| 39 |
character*80 vars_inp1(100) ! Variable names
|
39 |
character*80 vars_inp1(100) ! Variable names
|
| 40 |
real time_inp1(5000) ! Times of input trajectory
|
40 |
real time_inp1(10000) ! Times of input trajectory
|
| 41 |
integer refdate1(6) ! Reference date
|
41 |
integer refdate1(6) ! Reference date
|
| 42 |
|
42 |
|
| 43 |
integer ntra_inp2 ! Number of trajectories
|
43 |
integer ntra_inp2 ! Number of trajectories
|
| 44 |
integer ntim_inp2 ! Number of times
|
44 |
integer ntim_inp2 ! Number of times
|
| 45 |
integer ncol_inp2 ! Number of columns
|
45 |
integer ncol_inp2 ! Number of columns
|
| 46 |
real,allocatable, dimension (:,:,:) :: tra_inp2 ! Trajectories (ntra,ntim,ncol)
|
46 |
real,allocatable, dimension (:,:,:) :: tra_inp2 ! Trajectories (ntra,ntim,ncol)
|
| 47 |
character*80 vars_inp2(100) ! Variable names
|
47 |
character*80 vars_inp2(100) ! Variable names
|
| 48 |
real time_inp2(5000) ! Times of input trajectory
|
48 |
real time_inp2(10000) ! Times of input trajectory
|
| 49 |
integer refdate2(6) ! Reference date
|
49 |
integer refdate2(6) ! Reference date
|
| 50 |
|
50 |
|
| 51 |
integer ntra_out ! Number of trajectories
|
51 |
integer ntra_out ! Number of trajectories
|
| 52 |
integer ntim_out ! Number of times
|
52 |
integer ntim_out ! Number of times
|
| 53 |
integer ncol_out ! Number of columns
|
53 |
integer ncol_out ! Number of columns
|
| 54 |
real,allocatable, dimension (:,:,:) :: tra_out ! Trajectories (ntra,ntim,ncol)
|
54 |
real,allocatable, dimension (:,:,:) :: tra_out ! Trajectories (ntra,ntim,ncol)
|
| 55 |
character*80 vars_out(100) ! Variable names
|
55 |
character*80 vars_out(100) ! Variable names
|
| 56 |
|
56 |
|
| 57 |
real time_out(10000)! Times of output trajectory
|
57 |
real time_out(20000)! Times of output trajectory
|
| 58 |
integer refdate(6) ! Reference date
|
58 |
integer refdate(6) ! Reference date
|
| 59 |
|
59 |
|
| 60 |
c Auxiliary variables
|
60 |
c Auxiliary variables
|
| 61 |
integer i,j,k
|
61 |
integer i,j,k
|
| 62 |
integer ind(10000)
|
62 |
integer ind(20000)
|
| 63 |
integer itr(10000)
|
63 |
integer itr(20000)
|
| 64 |
integer isok
|
64 |
integer isok
|
| 65 |
integer stat
|
65 |
integer stat
|
| 66 |
integer fid
|
66 |
integer fid
|
| 67 |
real rswap
|
67 |
real rswap
|
| 68 |
integer iswap
|
68 |
integer iswap
|