2 use machine ,
only : kind_phys, kind_io4
5 integer,
parameter :: levsaer=72, ntrcaerm=15, timeaer=2
6 integer :: latsaer, lonsaer, ntrcaer, levsw
8 integer :: iamin, iamax, jamin, jamax
10 character*10 :: specname(ntrcaerm)
11 real (kind=kind_phys):: aer_time(13)
13 real (kind=kind_phys),
allocatable,
dimension(:) :: aer_lat
14 real (kind=kind_phys),
allocatable,
dimension(:) :: aer_lon
15 real (kind=kind_io4),
allocatable,
dimension(:,:,:,:) :: aer_pres
16 real (kind=kind_io4),
allocatable,
dimension(:,:,:,:,:) :: aerin
18 data aer_time/15.5, 45., 74.5, 105., 135.5, 166., 196.5,
19 & 227.5, 258., 288.5, 319., 349.5, 380.5/
21 data specname /
'DU001',
'DU002',
'DU003',
'DU004',
'DU005',
22 &
'SS001',
'SS002',
'SS003',
'SS004',
'SS005',
'SO4',
23 &
'BCPHOBIC',
'BCPHILIC',
'OCPHOBIC',
'OCPHILIC'/