Changeset 57a9cce in flexpart.git for flexpart_code/fpmetbinary_mod.F90

Timestamp:

Oct 12, 2016, 2:06:05 PM (8 years ago)

Author:

Don Morton <Don.Morton@…>

Branches:

FPv9.3.1, FPv9.3.2, fp9.3.1-20161214-nc4, grib2nc4_repair

Children:

27b27d1

Parents:

e7403c8

Message:

Miscellaneous changes, discussed in flexpart.eu Ticket #163

​https://www.flexpart.eu/ticket/163

File:

• flexpart_code/fpmetbinary_mod.F90 (modified) (2 diffs)

flexpart_code/fpmetbinary_mod.F90

@@ -56 +56 @@
     ! this routine will not be able to read a previous version, this version
     ! string should be modified
-    CHARACTER(LEN=8), PARAMETER :: PREPROC_FORMAT_VERSION_STR = '9.3.1e  '
+    CHARACTER(LEN=12), PARAMETER :: PREPROC_FORMAT_VERSION_STR = 'FP_p-9.3.1'//char(0)
 
     PRIVATE IOUNIT_DUMP, IOUNIT_LOAD, IOUNIT_TEXTOUT, fpio,    &
@@ -275 +275 @@
 &                  temp_nuvzmax, temp_nwzmax
 
-        CHARACTER(LEN=8) :: temp_preproc_format_version_str
+        CHARACTER(LEN=12) :: temp_preproc_format_version_str
 
         CHARACTER(LEN=128) :: errmesg