Changes from branches/petra/src/writeheader_nest.f90 at r36 to trunk/src/writeheader_nest.f90 at r24

File:

• trunk/src/writeheader_nest.f90 (modified) (3 diffs)

trunk/src/writeheader_nest.f90

@@ -1 +1 @@
 !**********************************************************************
-! Copyright 1998-2015                                                 *
+! Copyright 1998,1999,2000,2001,2002,2005,2007,2008,2009,2010         *
 ! Andreas Stohl, Petra Seibert, A. Frank, Gerhard Wotawa,             *
 ! Caroline Forster, Sabine Eckhardt, John Burkhart, Harald Sodemann   *
@@ -32 +32 @@
   !                                                                            *
   !     7 August 2002                                                          *
-  !                                                                            *
-  !     2/2015, AP+PS: version string length written  
   !                                                                            *
   !*****************************************************************************
@@ -69 +67 @@
 
   if (ldirect.eq.1) then
-    write(unitheader) ibdate,ibtime, len_trim(flexversion), trim(flexversion)
+    write(unitheader) ibdate,ibtime, trim(flexversion)
   else
-    write(unitheader) iedate,ietime, len_trim(flexversion), trim(flexversion)
+    write(unitheader) iedate,ietime, trim(flexversion)
   endif