[cig-commits] r11923 - seismo/3D/mt_measure_adj/scripts_tomo/matlab

[carltape at geodynamics.org]

Author: carltape
Date: 2008-05-07 06:37:59 -0700 (Wed, 07 May 2008)
New Revision: 11923

Modified:
   seismo/3D/mt_measure_adj/scripts_tomo/matlab/make_dirs.pl
Log:
Updated make_dirs.pl script for subspace method.


Modified: seismo/3D/mt_measure_adj/scripts_tomo/matlab/make_dirs.pl
===================================================================
--- seismo/3D/mt_measure_adj/scripts_tomo/matlab/make_dirs.pl	2008-05-07 13:27:12 UTC (rev 11922)
+++ seismo/3D/mt_measure_adj/scripts_tomo/matlab/make_dirs.pl	2008-05-07 13:37:59 UTC (rev 11923)
@@ -9,8 +9,13 @@
 #
 # This should be run prior to running subspace_specfem.m.
 #
+# EXAMPLE: make_dirs.pl m0
+#
 #-----------------------------------
 
+if (@ARGV < 1) {die("Usage: make_dirs.pl smodel\n")}
+($smodel) = @ARGV;
+
 # possible labels for choice of data covariance
 @dcov_tags = ("event","window","none");
 
@@ -23,19 +28,22 @@
 $dir0 = "mu_dirs";
 if(not -e $dir0) {die("dir dir0 $dir0 does not exist\n");}
 
+$dir1 = "$dir0/$smodel";
+`mkdir -p $dir1`;
+
 for ($i = 1; $i <= $nker; $i = $i+1) {
 
   for ($j = 1; $j <= $ndcov; $j = $j+1) {
 
     $ker  = $kers[$i-1];
     $dcov = $dcov_tags[$j-1];
-    $dir  = "$dir0/mu_${ker}_${dcov}";
+    $dir  = "$dir1/mu_${ker}_${dcov}";
 
     print "$dir \n";
 
     if(-e $dir) {
       print "--> dir exists -- now deleting and remaking\n";
-      #`rm -rf $dir`;
+      #print "--> dir exists -- now deleting and remaking\n"; `rm -rf $dir`;
     } else {
       print "--> dir does not exist -- now making\n";
     }