[cig-commits] r20777 - seismo/3D/SPECFEM3D/trunk/src/shared

[dkomati1 at geodynamics.org]

Author: dkomati1
Date: 2012-09-25 16:40:00 -0700 (Tue, 25 Sep 2012)
New Revision: 20777

Modified:
   seismo/3D/SPECFEM3D/trunk/src/shared/save_header_file.f90
Log:
fixed the NAMELIST problem detected by gfortran


Modified: seismo/3D/SPECFEM3D/trunk/src/shared/save_header_file.f90
===================================================================
--- seismo/3D/SPECFEM3D/trunk/src/shared/save_header_file.f90	2012-09-25 21:19:00 UTC (rev 20776)
+++ seismo/3D/SPECFEM3D/trunk/src/shared/save_header_file.f90	2012-09-25 23:40:00 UTC (rev 20777)
@@ -53,8 +53,6 @@
      ABSORB_INSTEAD_OF_FREE_SURFACE_VAL = .false.
   endif
   
-  NAMELIST /MESHER/ABSORB_INSTEAD_OF_FREE_SURFACE_VAL
-
 ! copy number of elements and points in an include file for the solver
   call get_value_string(HEADER_FILE, 'solver.HEADER_FILE', &
        OUTPUT_FILES_PATH(1:len_trim(OUTPUT_FILES_PATH))//'/values_from_mesher.h')
@@ -127,7 +125,6 @@
   write(IOUT,*) '!   (if significantly less, you waste a significant amount of memory)'
   write(IOUT,*) '!'
   write(IOUT,*) '! check parameter to ensure the code has been compiled with the right values:'
-  write(IOUT,NML=MESHER) 
   write(IOUT,*)
   close(IOUT)