Changes from branches/petra/src/writeheader_nest.f90 at r36 to trunk/src/writeheader_nest.f90 at r24
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/src/writeheader_nest.f90
r36 r24 1 1 !********************************************************************** 2 ! Copyright 1998 -2015*2 ! Copyright 1998,1999,2000,2001,2002,2005,2007,2008,2009,2010 * 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 written36 34 ! * 37 35 !***************************************************************************** … … 69 67 70 68 if (ldirect.eq.1) then 71 write(unitheader) ibdate,ibtime, len_trim(flexversion),trim(flexversion)69 write(unitheader) ibdate,ibtime, trim(flexversion) 72 70 else 73 write(unitheader) iedate,ietime, len_trim(flexversion),trim(flexversion)71 write(unitheader) iedate,ietime, trim(flexversion) 74 72 endif 75 73
Note: See TracChangeset
for help on using the changeset viewer.