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

[tan2 at geodynamics.org]

Author: tan2
Date: 2008-02-21 13:18:02 -0800 (Thu, 21 Feb 2008)
New Revision: 11228

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

Modified: cs/avm/trunk/avm.f90
===================================================================
--- cs/avm/trunk/avm.f90	2008-02-21 18:39:36 UTC (rev 11227)
+++ cs/avm/trunk/avm.f90	2008-02-21 21:18:02 UTC (rev 11228)
@@ -102,8 +102,13 @@
 
   OCEANS = .false.
   ABSORBING_CONDITIONS = .false.
-  LOCAL_PATH = 'scratch'
 
+  call getarg(1,LOCAL_PATH)
+  if(len(trim(LOCAL_PATH)) == 0) then
+     write(*,*) 'usage: avm LOCAL_PATH'
+     stop
+  endif
+
   inv_ref_rho = 1.d0 / RHOAV
   inv_ref_time = 1.d0 / sqrt(PI * GRAV * RHOAV)
   inv_ref_pressure = 1.d0 / (RHOAV * R_EARTH * R_EARTH * inv_ref_time * inv_ref_time)
@@ -124,6 +129,7 @@
         READ_TISO = .true.
      endif
 
+     write(*,*) 'Reading ', trim(prname)//'solver_data_1.bin'
      call read_arrays_solver(IREGION_CRUST_MANTLE,myrank, &
           rho_vp_crust_mantle,rho_vs_crust_mantle, &
           xstore_crust_mantle,ystore_crust_mantle,zstore_crust_mantle, &
@@ -146,6 +152,7 @@
           ANISOTROPIC_INNER_CORE_VAL,OCEANS,LOCAL_PATH,ABSORBING_CONDITIONS)
 
      ! -------------------------------------------
+     write(*,*) 'Reading ', trim(prname)//'avm.txt'
      open(unit=IIN,file=trim(prname)//'avm.txt',status='old',action='read')
 
      mask_ibool(:) = .true.

Modified: cs/avm/trunk/write_CitcomS_tracers.f90
===================================================================
--- cs/avm/trunk/write_CitcomS_tracers.f90	2008-02-21 18:39:36 UTC (rev 11227)
+++ cs/avm/trunk/write_CitcomS_tracers.f90	2008-02-21 21:18:02 UTC (rev 11228)
@@ -43,7 +43,7 @@
 
   call getarg(1,LOCAL_PATH)
   if(len(trim(LOCAL_PATH)) == 0) then
-     write(*,*) 'usage: write_CitcomS_tracers dirname'
+     write(*,*) 'usage: write_CitcomS_tracers LOCAL_PATH'
      stop
   endif