[cig-commits] r13222 - seismo/3D/SPECFEM3D_GLOBE/trunk/version41_beta/src

[dkomati1 at geodynamics.org]

Author: dkomati1
Date: 2008-11-01 18:19:20 -0700 (Sat, 01 Nov 2008)
New Revision: 13222

Modified:
   seismo/3D/SPECFEM3D_GLOBE/trunk/version41_beta/src/create_movie_AVS_DX.f90
   seismo/3D/SPECFEM3D_GLOBE/trunk/version41_beta/src/specfem3D.F90
Log:
restored path to which movie files are saved to the right default value


Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/version41_beta/src/create_movie_AVS_DX.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/version41_beta/src/create_movie_AVS_DX.f90	2008-11-02 01:03:24 UTC (rev 13221)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/version41_beta/src/create_movie_AVS_DX.f90	2008-11-02 01:19:20 UTC (rev 13222)
@@ -401,9 +401,8 @@
   print *
 
 ! read all the elements from the same file
-!! DK DK changed that for now  write(outputname,"('/moviedata',i6.6)") it
-!! DK DK changed that for now  open(unit=IOUT,file=trim(OUTPUT_FILES)//outputname,status='old',action='read',form='unformatted')
-  write(outputname,"('/scratch/komatits/moviedata',i6.6)") it
+  write(outputname,"('/moviedata',i6.6)") it
+  open(unit=IOUT,file=trim(OUTPUT_FILES)//outputname,status='old',action='read',form='unformatted')
   open(unit=IOUT,file=outputname,status='old',action='read',form='unformatted')
   read(IOUT) store_val_x
   read(IOUT) store_val_y

Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/version41_beta/src/specfem3D.F90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/version41_beta/src/specfem3D.F90	2008-11-02 01:03:24 UTC (rev 13221)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/version41_beta/src/specfem3D.F90	2008-11-02 01:19:20 UTC (rev 13222)
@@ -986,7 +986,7 @@
   if(minval(t_cmt) /= 0.) call exit_MPI(myrank,'one t_cmt must be zero, others must be positive')
 
 ! filter source time function by Gaussian with hdur = HDUR_MOVIE when outputing movies or shakemaps
-  if (MOVIE_SURFACE .or. MOVIE_VOLUME ) then
+  if (MOVIE_SURFACE .or. MOVIE_VOLUME) then
      hdur = sqrt(hdur**2 + HDUR_MOVIE**2)
      if(myrank == 0) then
         write(IMAIN,*)
@@ -2919,10 +2919,10 @@
     call MPI_GATHER(store_val_uz,ispec,CUSTOM_MPI_TYPE,store_val_uz_all,ispec,CUSTOM_MPI_TYPE,0,MPI_COMM_WORLD,ier)
 #endif
 
-! save movie data to disk in home directory
+! save movie data files
     if(myrank == 0) then
-      write(outputname,"('/scratch/komatits/moviedata',i6.6)") it
-      open(unit=IOUT,file=outputname,status='unknown',form='unformatted',action='write')
+      write(outputname,"('/moviedata',i6.6)") it
+      open(unit=IOUT,file=trim(OUTPUT_FILES)//outputname,status='unknown',form='unformatted',action='write')
       write(IOUT) store_val_x_all
       write(IOUT) store_val_y_all
       write(IOUT) store_val_z_all