uEMEP_read_command_line Subroutine

public subroutine uEMEP_read_command_line()

Assigns the configuration file name(s) and substitution date_str from the command line

Arguments

None

Called by

proc~~uemep_read_command_line~~CalledByGraph proc~uemep_read_command_line uEMEP_read_command_line program~uemep uEMEP program~uemep->proc~uemep_read_command_line

Source Code

    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