[cig-commits] r19703 - in seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER: EXAMPLES/regional_Greece_small src/specfem3D

[joseph.charles at geodynamics.org]

Author: joseph.charles
Date: 2012-02-29 14:30:49 -0800 (Wed, 29 Feb 2012)
New Revision: 19703

Modified:
   seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/EXAMPLES/regional_Greece_small/run_mesher_solver.kernel.bash
   seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/specfem3D/iterate_time.F90
Log:
includes updates ensuring forward & adjoint simulations run ok for regional_Greece_small example with all options switched on

Modified: seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/EXAMPLES/regional_Greece_small/run_mesher_solver.kernel.bash
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/EXAMPLES/regional_Greece_small/run_mesher_solver.kernel.bash	2012-02-29 16:11:11 UTC (rev 19702)
+++ seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/EXAMPLES/regional_Greece_small/run_mesher_solver.kernel.bash	2012-02-29 22:30:49 UTC (rev 19703)
@@ -77,7 +77,9 @@
 # renames output files of forward run
 cd OUTPUT_FILES/
 mv output_solver.txt output_solver.for.txt
-rename .sem. .sem.for. *.sem.*
+for file in *.sem.*; do
+mv $file ${file/.sem./.sem.for.}
+done
 cd ../
 
 

Modified: seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/specfem3D/iterate_time.F90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/specfem3D/iterate_time.F90	2012-02-29 16:11:11 UTC (rev 19702)
+++ seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/specfem3D/iterate_time.F90	2012-02-29 22:30:49 UTC (rev 19703)
@@ -521,11 +521,11 @@
                                     displ_outer_core,veloc_outer_core,accel_outer_core, &
                                     Mesh_pointer)
 
-    call transfer_strain_cm_from_device(Mesh_pointer, &
+    call transfer_strain_cm_from_device(Mesh_pointer,eps_trace_over_3_crust_mantle, &
                                     epsilondev_xx_crust_mantle,epsilondev_yy_crust_mantle, &
                                     epsilondev_xy_crust_mantle,epsilondev_xz_crust_mantle, &
                                     epsilondev_yz_crust_mantle)
-    call transfer_strain_ic_from_device(Mesh_pointer, &
+    call transfer_strain_ic_from_device(Mesh_pointer,eps_trace_over_3_inner_core, &
                                     epsilondev_xx_inner_core,epsilondev_yy_inner_core, &
                                     epsilondev_xy_inner_core,epsilondev_xz_inner_core, &
                                     epsilondev_yz_inner_core)