! $Id: ropp_apps_version.f90 6463 2020-09-02 11:06:35Z idculv $ FUNCTION ropp_apps_version() RESULT (version) !****f* common/ropp_apps_version * ! ! NAME ! ropp_apps_version ! ! SYNOPSIS ! Return ROPP_APPS version ID string ! ! USE ropp_apps ! version = ropp_apps_version() ! ! DESCRIPTION ! This function returns the (common) version string for the ROPP_APPS ! module. By default, this function should be called by all ROPP_APPS ! tools to display a version ID when the '-v' command-line switch is ! used. ! ! AUTHOR ! Met Office, Exeter, UK. ! Any comments on this software should be given via the ROM SAF ! Helpdesk at http://www.romsaf.org ! ! COPYRIGHT ! (c) EUMETSAT. All rights reserved. ! For further details please refer to the file COPYRIGHT ! which you should have received as part of this distribution. ! !**** CHARACTER (LEN=40) :: version ! Edit this string when ROPP_APPS module version is updated version = "v10.0 30-Sep-2020" END FUNCTION ropp_apps_version