Changes from trunk/src/writeheader_nest.f90 at r24 to branches/petra/src/writeheader_nest.f90 at r36
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/petra/src/writeheader_nest.f90
r24 r36 1 1 !********************************************************************** 2 ! Copyright 1998 ,1999,2000,2001,2002,2005,2007,2008,2009,2010*2 ! Copyright 1998-2015 * 3 3 ! Andreas Stohl, Petra Seibert, A. Frank, Gerhard Wotawa, * 4 4 ! Caroline Forster, Sabine Eckhardt, John Burkhart, Harald Sodemann * … … 32 32 ! * 33 33 ! 7 August 2002 * 34 ! * 35 ! 2/2015, AP+PS: version string length written 34 36 ! * 35 37 !***************************************************************************** … … 67 69 68 70 if (ldirect.eq.1) then 69 write(unitheader) ibdate,ibtime, trim(flexversion)71 write(unitheader) ibdate,ibtime, len_trim(flexversion), trim(flexversion) 70 72 else 71 write(unitheader) iedate,ietime, trim(flexversion)73 write(unitheader) iedate,ietime, len_trim(flexversion), trim(flexversion) 72 74 endif 73 75
Note: See TracChangeset
for help on using the changeset viewer.