Changes in src/writeheader.f90 [f13406c:6ecb30a] in flexpart.git

File:

• src/writeheader.f90 (modified) (2 diffs)

src/writeheader.f90

@@ -35 +35 @@
   !*****************************************************************************
   !                                                                            *
+  !  Modified to remove TRIM around the output of flexversion so that          *
+  !  it will be a constant length (defined in com_mod.f90) in output header    *
+  !                                                                            *
+  !     Don Morton, Boreal Scientific Computing                                *
+  !     07 May 2017                                                            *
+  !                                                                            *
+  !*****************************************************************************
+  !                                                                            *
   ! Variables:                                                                 *
   !                                                                            *
@@ -67 +75 @@
 
   if (ldirect.eq.1) then
-    write(unitheader) ibdate,ibtime, trim(flexversion)
+    write(unitheader) ibdate,ibtime, flexversion
   else
-    write(unitheader) iedate,ietime, trim(flexversion)
+    write(unitheader) iedate,ietime, flexversion
   endif