1module version_mod
2 !
3 ! MODULE version_mod (prefix='ver' category='8. Low-level utilities and constants')
4 !
5 !:Purpose: Store and print the MIDAS version number for display in the listing.
6 !
7 implicit none
8 save
9 private
10
11 ! public routines
12 public :: ver_printNameAndVersion
13
14contains
15
16 subroutine ver_printNameAndVersion(progName, progDescription)
17 !
18 !:Purpose: Print the program name, description and version to listing
19 !
20 implicit none
21
22 ! Arguments:
23 character(len=*), intent(in) :: progName
24 character(len=*), intent(in) :: progDescription
25
26 ! Locals:
27 character(len=100), parameter :: ver_version = "GIT-REVISION-NUMBER-WILL-BE-ADDED-HERE"
28
29 write(*,*) " --------------------------------------------"
30 write(*,*) " --- START OF MAIN PROGRAM midas-", trim(progName), " ---"
31 write(*,*) " --- ", trim(progDescription), " ---"
32 write(*,*) " --- Revision: ", trim(ver_version)
33 write(*,*) " --------------------------------------------"
34
35 end subroutine ver_printNameAndVersion
36
37end module version_mod
