add header and reaction numbers to instantaneous rates files.

AtChem · Aug 9, 2018 · bb0225c · bb0225c
1 parent 6d221ec
commit bb0225c
Show file tree

Hide file tree

Showing 46 changed files with 96,850 additions and 96,804 deletions.
diff --git a/src/outputFunctions.f90 b/src/outputFunctions.f90
@@ -317,8 +317,9 @@ subroutine outputInstantaneousRates( time )
     irfileLocation = trim( instantaneousRates_dir ) // '/' // adjustl( strTime )
 
     open (10, file=irfileLocation)
+    write (10,*) 'reaction number : reaction rate'
     do i = 1, size( instantaneousRates )
-      write (10,*) instantaneousRates(i)
+      write (10,*) i, instantaneousRates(i)
     end do
     close (10, status='keep')