Commit fddc6ec7 authored by Espen Sollum's avatar Espen Sollum
Browse files

Added a version number string for flexpart version, that will also be used for...

Added a version number string for flexpart version, that will also be used for SPECIES file names. TODO: update unit tests, species and readspecies (master branch?)
parent fdc0f03d
......@@ -58,7 +58,6 @@ program flexpart
call com_mod_allocate(maxpart)
! Generate a large number of random numbers
!******************************************
......@@ -68,7 +67,8 @@ program flexpart
call gasdev1(idummy,rannumb(maxrand),rannumb(maxrand-1))
! FLEXPART version string
flexversion='Version 10.0beta (2015-05-01)'
flexversion_major = '10' ! Major version number, also used for species file names
flexversion='Version '//trim(flexversion_major)//'.0beta (2015-05-01)'
verbosity=0
! Read the pathnames where input/output files are stored
......
......@@ -76,7 +76,9 @@ program flexpart
call gasdev1(idummy,rannumb(maxrand),rannumb(maxrand-1))
! FLEXPART version string
flexversion='Ver. 10 Beta MPI (2015-05-01)'
flexversion_major = '10' ! Major version number, also used for species file names
! flexversion='Ver. 10 Beta MPI (2015-05-01)'
flexversion='Ver. '//trim(flexversion_major)//' Beta MPI (2015-05-01)'
verbosity=0
! Read the pathnames where input/output files are stored
......
......@@ -24,13 +24,14 @@ module com_mod
character :: path(numpath+2*maxnests)*120
integer :: length(numpath+2*maxnests)
character(len=256) :: pathfile, flexversion, arg1, arg2
character(len=256) :: pathfile, flexversion, flexversion_major, arg1, arg2
character(len=256) :: ohfields_path
! path path names needed for trajectory model
! length length of path names needed for trajectory model
! pathfile file where pathnames are stored
! flexversion version of flexpart
! flexversion version of flexpart (descriptive long string)
! flexversion_major version of flexpart (major version number)
! arg input arguments from launch at command line
! ohfields_path path to binary files for OH fields
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment