print_version Subroutine

private subroutine print_version()

Prints the program version to the terminal console

Arguments

None

Called by

proc~~print_version~~CalledByGraph proc~print_version print_version proc~check_command_line check_command_line proc~check_command_line->proc~print_version program~uemep uEMEP program~uemep->proc~check_command_line

Source Code

    subroutine print_version()
        !! Prints the program version to the terminal console
        write(*,"(a)") " uEMEP: Air quality dispersion model for high resolution downscaling of EMEP MSC-W"
        write(*,"(a)") " "
        write(*,"(2a)") " Version: ", trim(model_version_str)
        write(*,"(a)") " Copyright (C) 2007 Free Software Foundation."
        write(*,"(a)") " License GNU LGPL-3.0 <https://www.gnu.org/licenses/lgpl-3.0.html>."
        write(*,"(a)") " This is free software: you are free to change and redistribute it."
        write(*,"(a)") " "
        write(*,"(a)") " Developed and maintained at the Norwegian Meteorological Institute."
        write(*,"(a)") " Contribute at: <https://github.com/metno/uEMEP>"
    end subroutine print_version