Ignore:
File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/petra/src/writeheader_nest.f90

    r24 r36  
    11!**********************************************************************
    2 ! Copyright 1998,1999,2000,2001,2002,2005,2007,2008,2009,2010         *
     2! Copyright 1998-2015                                                 *
    33! Andreas Stohl, Petra Seibert, A. Frank, Gerhard Wotawa,             *
    44! Caroline Forster, Sabine Eckhardt, John Burkhart, Harald Sodemann   *
     
    3232  !                                                                            *
    3333  !     7 August 2002                                                          *
     34  !                                                                            *
     35  !     2/2015, AP+PS: version string length written 
    3436  !                                                                            *
    3537  !*****************************************************************************
     
    6769
    6870  if (ldirect.eq.1) then
    69     write(unitheader) ibdate,ibtime, trim(flexversion)
     71    write(unitheader) ibdate,ibtime, len_trim(flexversion), trim(flexversion)
    7072  else
    71     write(unitheader) iedate,ietime, trim(flexversion)
     73    write(unitheader) iedate,ietime, len_trim(flexversion), trim(flexversion)
    7274  endif
    7375
Note: See TracChangeset for help on using the changeset viewer.
hosted by ZAMG