Changeset 3678 for palm/trunk/UTIL/inifor/tests

Timestamp:

Jan 17, 2019 2:12:17 PM (5 years ago)

Author:

eckhard

Message:

inifor: bugfix: avoid empty averaging regions, check if all input files are present

File:

• palm/trunk/UTIL/inifor/tests/test-input-files.f90 (modified) (5 diffs)

palm/trunk/UTIL/inifor/tests/test-input-files.f90

@@ -21 +21 @@
 ! Current revisions:
 ! -----------------
+! Switched to get_datetime_file_list()
 ! 
 ! 
@@ -51 +52 @@
     USE inifor_defs,                                                           &
         ONLY :  PATH
-    USE inifor_grid,                                                           &
-        ONLY :  get_input_file_list
+    USE inifor_io,                                                             &
+        ONLY :  get_datetime_file_list
     USE test_utils
     
@@ -78 +79 @@
 
     ! Act
-    CALL get_input_file_list(start_date_string='2017102823',                   &
-                             start_hour=0, end_hour=5, step_hour=1,            &
-                             path='./', prefix="laf", suffix='-test',          &
-                             file_list=file_list)
+    CALL get_datetime_file_list(start_date_string='2017102823',                &
+                                start_hour=0, end_hour=5, step_hour=1,         &
+                                input_path='./', prefix="laf", suffix='-test', &
+                                file_list=file_list)
 
     ! Assert
@@ -103 +104 @@
 
     ! Act
-    CALL get_input_file_list(start_date_string='2016022823',                   &
-                             start_hour=0, end_hour=1, step_hour=1,            &
-                             path='./', prefix="laf", suffix='-test',          &
-                             file_list=file_list)
+    CALL get_datetime_file_list(start_date_string='2016022823',                &
+                                start_hour=0, end_hour=1, step_hour=1,         &
+                                input_path='./', prefix="laf", suffix='-test', &
+                                file_list=file_list)
 
     ! Assert
@@ -131 +132 @@
 
     ! Act
-    CALL get_input_file_list(start_date_string='2017102901',                   &
-                             start_hour=-2, end_hour=3, step_hour=2,           &
-                             path='./', prefix="laf", suffix='-test',          &
-                             file_list=file_list)
+    CALL get_datetime_file_list(start_date_string='2017102901',                &
+                                start_hour=-2, end_hour=3, step_hour=2,        &
+                                input_path='./', prefix="laf", suffix='-test', &
+                                file_list=file_list)
 
     PRINT *, file_list