[cig-commits] r13387 - cs/portal/trunk/northridge/backend

[leif at geodynamics.org]

Author: leif
Date: 2008-11-24 15:17:19 -0800 (Mon, 24 Nov 2008)
New Revision: 13387

Modified:
   cs/portal/trunk/northridge/backend/specfem3D.py
Log:
Minor change to SPECFEM backend script for the generic model data
broadcasting routine.


Modified: cs/portal/trunk/northridge/backend/specfem3D.py
===================================================================
--- cs/portal/trunk/northridge/backend/specfem3D.py	2008-11-24 23:14:32 UTC (rev 13386)
+++ cs/portal/trunk/northridge/backend/specfem3D.py	2008-11-24 23:17:19 UTC (rev 13387)
@@ -193,7 +193,7 @@
             elif tarinfo.name.endswith(".f90"):
                 pathname = os.path.join(path, tarinfo.name)
                 fortranSourceFiles.append(pathname)
-                thisDir = dirname(pathname)
+                thisDir = dirname(tarinfo.name) # see bcast_model.c
                 s = tgz.extractfile(tarinfo)
                 f = open(pathname, "w")
                 # Preprocess.