CCPP SciDoc v7.0.0  v7.0.0
Common Community Physics Package Developed at DTC
 
Loading...
Searching...
No Matches
aerclm_def.F
1 module aerclm_def
2 use machine , only : kind_phys, kind_io4
3 implicit none
4
5 integer, parameter :: levsaer=72, ntrcaerm=15, timeaer=2
6 integer :: latsaer, lonsaer, ntrcaer, levsw
7 integer :: n1sv, n2sv
8 integer :: iamin, iamax, jamin, jamax
9
10 character*10 :: specname(ntrcaerm)
11 real (kind=kind_phys):: aer_time(13)
12
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
17
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/
20
21 data specname /'DU001','DU002','DU003','DU004','DU005',
22 & 'SS001','SS002','SS003','SS004','SS005','SO4',
23 & 'BCPHOBIC','BCPHILIC','OCPHOBIC','OCPHILIC'/
24
25 end module aerclm_def