Changeset 20 for trunk/src/writeheader.f90

Timestamp:

Dec 23, 2013, 6:23:38 PM (11 years ago)

Author:

igpis

Message:

move version 9.1.8 form branches to trunk. Contributions from HSO, saeck, pesei, NIK, RT, XKF, IP and others

File:

• trunk/src/writeheader.f90 (modified) (1 diff)

trunk/src/writeheader.f90

@@ -67 +67 @@
 
   if (ldirect.eq.1) then
-    write(unitheader) ibdate,ibtime,'FLEXPART V9.0'
+    write(unitheader) ibdate,ibtime, trim(flexversion)
   else
-    write(unitheader) iedate,ietime,'FLEXPART V9.0'
+    write(unitheader) iedate,ietime, trim(flexversion)
   endif