Ignore:
Timestamp:
Jan 17, 2019 2:12:17 PM (3 years ago)
Author:
eckhard
Message:

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

File:
1 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/UTIL/inifor/tests/test-input-files.f90

    r3618 r3678  
    2121! Current revisions:
    2222! -----------------
     23! Switched to get_datetime_file_list()
    2324!
    2425!
     
    5152    USE inifor_defs,                                                           &
    5253        ONLY :  PATH
    53     USE inifor_grid,                                                           &
    54         ONLY :  get_input_file_list
     54    USE inifor_io,                                                             &
     55        ONLY :  get_datetime_file_list
    5556    USE test_utils
    5657   
     
    7879
    7980    ! 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)
    8485
    8586    ! Assert
     
    103104
    104105    ! 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)
    109110
    110111    ! Assert
     
    131132
    132133    ! 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)
    137138
    138139    PRINT *, file_list
Note: See TracChangeset for help on using the changeset viewer.