Changeset 24 for trunk/src/writeheader_nest.f90

Timestamp:

May 23, 2014, 11:48:41 AM (10 years ago)

Author:

igpis

Message:

version 9.2 beta. Changes from HH, AST, MC, NIK, IP. Changes in vert transform. New SPECIES input includes scavenging coefficients

File:

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

trunk/src/writeheader_nest.f90

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