Assigns the configuration file name(s) and substitution date_str from the command line
subroutine uEMEP_read_command_line() !! Assigns the configuration file name(s) and substitution date_str from the command line ! Local variables integer :: n_args, i ! Get number of command line arguments n_args = command_argument_count() n_config_files = n_args - 1 ! Read file names do i = 1, n_config_files call get_command_argument(i, name_config_file(i)) write(*,"(a,i0,2a)"), "name_config_file(", i, ") = ", trim(name_config_file(i)) end do ! Read date string call get_command_argument(n_args, config_date_str) write(*,"(2a)") "config_date_str = ", trim(config_date_str) end subroutine uEMEP_read_command_line