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?)

src/FLEXPART.f90

@@ -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

src/FLEXPART_MPI.f90

@@ -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

src/com_mod.f90

@@ -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