[cig-commits] r9130 - cs/avm/trunk

[tan2 at geodynamics.org]

Author: tan2
Date: 2008-01-24 12:17:27 -0800 (Thu, 24 Jan 2008)
New Revision: 9130

Modified:
   cs/avm/trunk/write_CitcomS_tracers.f90
Log:
Fix for the tracer file header

Modified: cs/avm/trunk/write_CitcomS_tracers.f90
===================================================================
--- cs/avm/trunk/write_CitcomS_tracers.f90	2008-01-24 20:14:26 UTC (rev 9129)
+++ cs/avm/trunk/write_CitcomS_tracers.f90	2008-01-24 20:17:27 UTC (rev 9130)
@@ -37,16 +37,17 @@
 
   ! tracers
   integer num_tracers
+  integer num_columns
   real(kind=CUSTOM_REAL) theta,phi,radius
   integer flavor1,flavor2
 
-
+  num_columns = 5
   LOCAL_PATH = 'scratch'
 
   open(unit=IOUT,file='tracer.dat',status='unknown')
 
   num_tracers = NPROCTOT_VAL * NGLOB_CRUST_MANTLE
-  write(IOUT,*) num_tracers
+  write(IOUT,*) num_tracers, num_columns
 
   do myrank=0,NPROCTOT_VAL-1