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

[tan2 at geodynamics.org]

Author: tan2
Date: 2008-02-14 14:13:01 -0800 (Thu, 14 Feb 2008)
New Revision: 9346

Modified:
   cs/avm/trunk/write_CitcomS_tracers.f90
Log:
Get LOCAL_PATH from command line argument

Modified: cs/avm/trunk/write_CitcomS_tracers.f90
===================================================================
--- cs/avm/trunk/write_CitcomS_tracers.f90	2008-02-14 22:12:37 UTC (rev 9345)
+++ cs/avm/trunk/write_CitcomS_tracers.f90	2008-02-14 22:13:01 UTC (rev 9346)
@@ -41,8 +41,13 @@
   real(kind=CUSTOM_REAL) theta,phi,radius
   integer flavor1,flavor2
 
+  call getarg(1,LOCAL_PATH)
+  if(len(trim(LOCAL_PATH)) == 0) then
+     write(*,*) 'usage: write_CitcomS_tracers dirname'
+     stop
+  endif
+
   num_columns = 5
-  LOCAL_PATH = 'scratch'
 
   open(unit=IOUT,file='tracer.dat',status='unknown')
 
@@ -55,6 +60,7 @@
      call create_name_database(prname,myrank,IREGION_CRUST_MANTLE,LOCAL_PATH)
 
      ! read coordinates of the mesh
+     write(*,*) 'Reading ', trim(prname)//'solver_data_2.bin'
      open(unit=IIN,file=trim(prname)//'solver_data_2.bin',status='old',action='read',form='unformatted')
      read(IIN) xstore_crust_mantle
      read(IIN) ystore_crust_mantle