[cig-commits] r8431 - in seismo/2D/SPECFEM2D/trunk: MAILLE90
SPECFEM90
walter at geodynamics.org
walter at geodynamics.org
Fri Dec 7 15:45:45 PST 2007
Author: walter
Date: 2007-12-07 15:45:44 -0800 (Fri, 07 Dec 2007)
New Revision: 8431
Added:
seismo/2D/SPECFEM2D/trunk/MAILLE90/Par_cours_M2_UPPA
seismo/2D/SPECFEM2D/trunk/MAILLE90/topo_cours_M2_UPPA_curved.dat
Removed:
seismo/2D/SPECFEM2D/trunk/MAILLE90/topo_rouen.dat
Modified:
seismo/2D/SPECFEM2D/trunk/MAILLE90/Makefile
seismo/2D/SPECFEM2D/trunk/MAILLE90/Par
seismo/2D/SPECFEM2D/trunk/SPECFEM90/Makefile
Log:
cleaned 2D SEM code used to teach at UPPA in M2 class
Modified: seismo/2D/SPECFEM2D/trunk/MAILLE90/Makefile
===================================================================
--- seismo/2D/SPECFEM2D/trunk/MAILLE90/Makefile 2004-09-19 01:52:59 UTC (rev 8430)
+++ seismo/2D/SPECFEM2D/trunk/MAILLE90/Makefile 2007-12-07 23:45:44 UTC (rev 8431)
@@ -14,7 +14,7 @@
# Intel Linux
F90 = ifort
#FLAGS=-O0 -implicitnone -warn stderrors -warn truncated_source -warn argument_checking -warn unused -warn declarations -std95 -check bounds -C
-FLAGS=-fast -implicitnone -warn stderrors -warn truncated_source -warn argument_checking -warn unused -warn declarations -std95 -check nobounds
+FLAGS=-O2 -implicitnone -warn stderrors -warn truncated_source -warn argument_checking -warn unused -warn declarations -std95 -check nobounds
#
# g95 (free f95 compiler from http://www.g95.org, still under development, but works)
Modified: seismo/2D/SPECFEM2D/trunk/MAILLE90/Par
===================================================================
--- seismo/2D/SPECFEM2D/trunk/MAILLE90/Par 2004-09-19 01:52:59 UTC (rev 8430)
+++ seismo/2D/SPECFEM2D/trunk/MAILLE90/Par 2007-12-07 23:45:44 UTC (rev 8431)
@@ -8,8 +8,8 @@
#
# File names and path for different outputs
#
-title = Test pour INSA Rouen
-topofile = topo_rouen.dat
+title = Test pour cours M2 UPPA
+topofile = topo_cours_M2_UPPA_curved.dat
interffile = none
#
# geometry of the model (origin lower-left corner = 0,0) and mesh description
@@ -39,7 +39,7 @@
#
# source parameters
#
-isource_surf = .false. ! sources dans le volume ou a la surface
+isource_surf = .true. ! sources dans le volume ou a la surface
xs = 2000. ! source location x in meters
zs = 1500. ! source location z in meters
f0 = 10.0 ! central source frequency (Hz)
Added: seismo/2D/SPECFEM2D/trunk/MAILLE90/Par_cours_M2_UPPA
===================================================================
--- seismo/2D/SPECFEM2D/trunk/MAILLE90/Par_cours_M2_UPPA 2004-09-19 01:52:59 UTC (rev 8430)
+++ seismo/2D/SPECFEM2D/trunk/MAILLE90/Par_cours_M2_UPPA 2007-12-07 23:45:44 UTC (rev 8431)
@@ -0,0 +1,84 @@
+# ----------------------------------------------------------------
+#
+# This is the parameter file
+# Put variable names first and actual value after 34th column
+#
+# ----------------------------------------------------------------
+<- ->
+#
+# File names and path for different outputs
+#
+title = Test pour cours M2 UPPA
+topofile = topo_cours_M2_UPPA_curved.dat
+interffile = none
+#
+# geometry of the model (origin lower-left corner = 0,0) and mesh description
+#
+xmin = 0.0d0 ! abscissa of left side of the model
+xmax = 4000.d0 ! abscissa of right side of the model
+nx = 80 ! number of elements along X
+nz = 60 ! number of elements along Z
+ngnod = 4 ! noeuds de controle pour blocs (4 ou 9)
+ratio = 0.967741 ! ratio pour separation en deux zones
+initialfield = .false. ! use a plane wave as source or not
+ireadmodel = .false. ! read external earth model or not
+TURN_ANISOTROPY_ON = .false. ! turn anisotropy on or off
+TURN_ATTENUATION_ON = .false. ! turn attenuation on or off
+#
+# absorbing boundaries parameters
+#
+absorbhaut = .false. ! absorbing boundary active or not
+absorbbas = .true.
+absorbgauche = .true.
+absorbdroite = .true.
+#
+# time step parameters
+#
+nt = 1600 ! nb total de pas de temps
+dt = 1.d-3 ! valeur du pas de temps
+#
+# source parameters
+#
+isource_surf = .true. ! sources dans le volume ou a la surface
+xs = 2000. ! source location x in meters
+zs = 1500. ! source location z in meters
+f0 = 10.0 ! central source frequency (Hz)
+t0 = 0.11 ! time delay of the source in seconds
+source_type = 1 ! source type : force=1 or explosion=2
+angle = 0. ! angle of the source (for a force only)
+factor = 1.d10 ! amplification factor
+#
+# receiver line parameters
+#
+ienreg_surf = .false. ! enregistrement volume ou surface
+isismostype = 2 ! record 1=displ 2=veloc 3=accel
+nrec = 11 ! number of receivers
+xdeb = 0. ! first receiver x in meters
+zdeb = 2200. ! first receiver z in meters
+xfin = 4000. ! last receiver x in meters
+zfin = 2200. ! last receiver z in meters
+anglerec = 0.d0 ! angle to rotate components at receivers
+#
+# display parameters
+#
+itaff = 100 ! display frequency in time steps
+ivecttype = 2 ! display 1=displ 2=veloc 3=accel
+cutvect = 1. ! amplitude min en % pour vector plots
+imeshvect = .true. ! display mesh on vector plots or not
+imodelvect = .false. ! display velocity model on vector plots
+iboundvect = .true. ! display boundary conditions on plots
+interpol = .true. ! interpolation of the display or not
+iptsdisp = 6 ! points for interpolation of display
+isubsamp = 2 ! subsampling of color snapshots
+ignuplot = .false. ! generate a GNUPLOT file for the grid
+ioutputgrid = .false. ! save the grid in a text file or not
+#
+# velocity and density model (nx,nz)
+#
+nbmodels = 2 ! nb de modeles differents (rho,vp,vs)
+1 0 2200.d0 2500.d0 1443.375d0 0 0
+2 0 2200.d0 2500.d0 1443.375d0 0 0
+nbzone = 2 ! nb of zones and model number for each
+1 80 1 60 1
+3 51 3 38 2
+
Added: seismo/2D/SPECFEM2D/trunk/MAILLE90/topo_cours_M2_UPPA_curved.dat
===================================================================
--- seismo/2D/SPECFEM2D/trunk/MAILLE90/topo_cours_M2_UPPA_curved.dat 2004-09-19 01:52:59 UTC (rev 8430)
+++ seismo/2D/SPECFEM2D/trunk/MAILLE90/topo_cours_M2_UPPA_curved.dat 2007-12-07 23:45:44 UTC (rev 8431)
@@ -0,0 +1,10 @@
+9
+0 3000
+500 3000
+1000 3100
+1500 3400
+2000 3300
+2500 3200
+3000 3100
+3500 3000
+5000 3000
Deleted: seismo/2D/SPECFEM2D/trunk/MAILLE90/topo_rouen.dat
===================================================================
--- seismo/2D/SPECFEM2D/trunk/MAILLE90/topo_rouen.dat 2004-09-19 01:52:59 UTC (rev 8430)
+++ seismo/2D/SPECFEM2D/trunk/MAILLE90/topo_rouen.dat 2007-12-07 23:45:44 UTC (rev 8431)
@@ -1,3 +0,0 @@
-2
-0 3000
-5000 3000
Modified: seismo/2D/SPECFEM2D/trunk/SPECFEM90/Makefile
===================================================================
--- seismo/2D/SPECFEM2D/trunk/SPECFEM90/Makefile 2004-09-19 01:52:59 UTC (rev 8430)
+++ seismo/2D/SPECFEM2D/trunk/SPECFEM90/Makefile 2007-12-07 23:45:44 UTC (rev 8431)
@@ -14,7 +14,7 @@
# Intel Linux
F90 = ifort
#FLAGS=-O0 -implicitnone -warn stderrors -warn truncated_source -warn argument_checking -warn unused -warn declarations -std95 -check bounds -C
-FLAGS=-fast -implicitnone -warn stderrors -warn truncated_source -warn argument_checking -warn unused -warn declarations -std95 -check nobounds
+FLAGS=-O2 -implicitnone -warn stderrors -warn truncated_source -warn argument_checking -warn unused -warn declarations -std95 -check nobounds
#
# g95 (free f95 compiler from http://www.g95.org, still under development, but works)
More information about the cig-commits
mailing list