[cig-commits] r19424 - seismo/2D/SPECFEM2D/branches/new_branch_for_Xie_Zhinan/trunk/src/meshfem2D

xie.zhinan at geodynamics.org xie.zhinan at geodynamics.org
Tue Jan 24 00:49:04 PST 2012


Author: xie.zhinan
Date: 2012-01-24 00:49:04 -0800 (Tue, 24 Jan 2012)
New Revision: 19424

Modified:
   seismo/2D/SPECFEM2D/branches/new_branch_for_Xie_Zhinan/trunk/src/meshfem2D/Makefile.in
   seismo/2D/SPECFEM2D/branches/new_branch_for_Xie_Zhinan/trunk/src/meshfem2D/read_parameter_LDDRK.F90
Log:
fix small problem in meshfem2D make file


Modified: seismo/2D/SPECFEM2D/branches/new_branch_for_Xie_Zhinan/trunk/src/meshfem2D/Makefile.in
===================================================================
--- seismo/2D/SPECFEM2D/branches/new_branch_for_Xie_Zhinan/trunk/src/meshfem2D/Makefile.in	2012-01-24 04:03:19 UTC (rev 19423)
+++ seismo/2D/SPECFEM2D/branches/new_branch_for_Xie_Zhinan/trunk/src/meshfem2D/Makefile.in	2012-01-24 08:49:04 UTC (rev 19424)
@@ -188,7 +188,7 @@
 $O/read_parameter_file.o: ${S}/read_parameter_file.F90 ${SETUP}/constants.h
 	${F90} $(FLAGS_CHECK) -c -o $O/read_parameter_file.o ${S}/read_parameter_file.F90
 
-$O/read_parameter_file.o: ${S}/read_parameter_LDDRK.F90 ${SETUP}/constants.h      
+$O/read_parameter_LDDRK.o: ${S}/read_parameter_LDDRK.F90 ${SETUP}/constants.h      
 	${F90} $(FLAGS_CHECK) -c -o $O/read_parameter_LDDRK.o ${S}/read_parameter_LDDRK.F90
 
 $O/read_regions.o: ${S}/read_regions.f90 ${SETUP}/constants.h

Modified: seismo/2D/SPECFEM2D/branches/new_branch_for_Xie_Zhinan/trunk/src/meshfem2D/read_parameter_LDDRK.F90
===================================================================
--- seismo/2D/SPECFEM2D/branches/new_branch_for_Xie_Zhinan/trunk/src/meshfem2D/read_parameter_LDDRK.F90	2012-01-24 04:03:19 UTC (rev 19423)
+++ seismo/2D/SPECFEM2D/branches/new_branch_for_Xie_Zhinan/trunk/src/meshfem2D/read_parameter_LDDRK.F90	2012-01-24 08:49:04 UTC (rev 19424)
@@ -60,7 +60,7 @@
   integer :: i_stage, ios
 
   open(unit=IIN_Par_LDDRK,file='DATA/LDDRK',iostat=ios, status='old',action='read')
-!  if(ios /= 0)stop'error opening DATA/LDDRK
+  if(ios /= 0) stop 'error opening DATA/LDDRK'
 
    allocate(alpha_LDDRK(Stage))
    allocate(beta_LDDRK(Stage))



More information about the CIG-COMMITS mailing list