-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy pathlimits.inc.in
36 lines (36 loc) · 1.92 KB
/
limits.inc.in
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
c The "j" parameters (1 st line) are intended to be user settable:
c jmod Maximum number of (rough) model points.
c jslo Maximum number of discrete ray parameters.
c jdep Maximum number of discrete model slowness samples.
c Note: jdep always need to be larger than jslo by
c approximately 50% to account for multi-valuedness
c due to high slowness zones.
c jsrc Maximum number of discrete model slowness samples above
c the maximum source depth of interest.
c jbrh Maximum number of tau branches (model discontinuities
c plus one).
c jlvz Maximum number of low velocity zones.
c jseg Maximum number of different types of travel-times
c considered.
c jbrn Maximum number of different travel-time branches to be
c searched.
c jout Maximum length of all travel-time branches strung
c together.
c
c parameter(jmod=160,jslo=350,jdep=450,jsrc=150,jbrh=20,jlvz=5)
parameter(jmod=160,jslo=400,jdep=600,jsrc=170,jbrh=20,jlvz=5)
c parameter(jseg=30,jbrn=150,jout=2500)
c parameter(jseg=45,jbrn=150,jout=3650)
parameter(jseg=@JSEG@,jbrn=@JBRN@,jout=@JOUT@)
c The parameters actually used are all derivatives of the "j"
c parameters and cannot be changed by the user.
parameter(nmd0=jmod,nsl1=jslo+1,ndp1=jdep+1,nsr0=jsrc)
parameter(nbr1=jbrh+2,nbr2=jbrh*2,ncp0=2*(jbrh+jlvz),nlvz0=jlvz)
c The "nopt" parameter controls what phases will be created. By adding
c powers of two, different sets of phases may be created for the travel
c time tables, in addition to the basic phases and their depth phases.
c 1 - additional depth phases (for PcP, ScS, SKP, PP)
c 2 - depth phases for all phases (generates large tables)
c 4 - core multiples (SmKS m=3,4,5; PmKP m=3,4)
c parameter(nopt=1+0+4)
parameter(nopt=@NOPT@)