Changeset 3678 for palm/trunk/UTIL/inifor/tests/test-input-files.f90
- Timestamp:
- Jan 17, 2019 2:12:17 PM (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/UTIL/inifor/tests/test-input-files.f90
r3618 r3678 21 21 ! Current revisions: 22 22 ! ----------------- 23 ! Switched to get_datetime_file_list() 23 24 ! 24 25 ! … … 51 52 USE inifor_defs, & 52 53 ONLY : PATH 53 USE inifor_ grid,&54 ONLY : get_ input_file_list54 USE inifor_io, & 55 ONLY : get_datetime_file_list 55 56 USE test_utils 56 57 … … 78 79 79 80 ! Act 80 CALL get_ input_file_list(start_date_string='2017102823',&81 start_hour=0, end_hour=5, step_hour=1,&82 path='./', prefix="laf", suffix='-test',&83 file_list=file_list)81 CALL get_datetime_file_list(start_date_string='2017102823', & 82 start_hour=0, end_hour=5, step_hour=1, & 83 input_path='./', prefix="laf", suffix='-test', & 84 file_list=file_list) 84 85 85 86 ! Assert … … 103 104 104 105 ! Act 105 CALL get_ input_file_list(start_date_string='2016022823',&106 start_hour=0, end_hour=1, step_hour=1,&107 path='./', prefix="laf", suffix='-test',&108 file_list=file_list)106 CALL get_datetime_file_list(start_date_string='2016022823', & 107 start_hour=0, end_hour=1, step_hour=1, & 108 input_path='./', prefix="laf", suffix='-test', & 109 file_list=file_list) 109 110 110 111 ! Assert … … 131 132 132 133 ! Act 133 CALL get_ input_file_list(start_date_string='2017102901',&134 start_hour=-2, end_hour=3, step_hour=2,&135 path='./', prefix="laf", suffix='-test',&136 file_list=file_list)134 CALL get_datetime_file_list(start_date_string='2017102901', & 135 start_hour=-2, end_hour=3, step_hour=2, & 136 input_path='./', prefix="laf", suffix='-test', & 137 file_list=file_list) 137 138 138 139 PRINT *, file_list
Note: See TracChangeset
for help on using the changeset viewer.