-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy pathexco_module.f90
24 lines (21 loc) · 1.09 KB
/
exco_module.f90
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
module exco_module
integer, dimension(:), allocatable :: exco_om_num
integer, dimension(:), allocatable :: exco_pest_num
integer, dimension(:), allocatable :: exco_path_num
integer, dimension(:), allocatable :: exco_hmet_num
integer, dimension(:), allocatable :: exco_salt_num
character(len=16), dimension(:), allocatable :: exco_om_name
character(len=16), dimension(:), allocatable :: exco_pest_name
character(len=16), dimension(:), allocatable :: exco_path_name
character(len=16), dimension(:), allocatable :: exco_hmet_name
character(len=16), dimension(:), allocatable :: exco_salt_name
type export_coefficient_datafiles
character(len=16) :: name
character(len=16) :: om_file
character(len=16) :: pest_file
character(len=16) :: path_file
character(len=16) :: hmet_file
character(len=16) :: salts_file
end type export_coefficient_datafiles
type (export_coefficient_datafiles), dimension(:), allocatable, save :: exco_db
end module exco_module