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

File:

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

src/writeheader_surf.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:                                                                 *
   !                                                                            *
@@ -75 +67 @@
 
   if (ldirect.eq.1) then
-    write(unitheader) ibdate,ibtime, flexversion
+    write(unitheader) ibdate,ibtime, trim(flexversion)
   else
-    write(unitheader) iedate,ietime, flexversion
+    write(unitheader) iedate,ietime, trim(flexversion)
   endif