Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
Seitosh
Project overview
Project overview
Details
Activity
Releases
Repository
Repository
Files
Commits
Branches
Tags
Contributors
Graph
Compare
Issues
9
Issues
9
List
Boards
Labels
Service Desk
Milestones
Merge Requests
0
Merge Requests
0
Operations
Operations
Incidents
Analytics
Analytics
Repository
Value Stream
Wiki
Wiki
Members
Members
Collapse sidebar
Close sidebar
Activity
Graph
Create a new issue
Commits
Issue Boards
Open sidebar
Seitosh
Seitosh
Commits
ed484aaa
Commit
ed484aaa
authored
Apr 08, 2019
by
thomas.forbriger
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
ref/tools/chopmod [FIX]: avoid division by zero
parent
742a06a5
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
9 additions
and
4 deletions
+9
-4
src/synt/ref/tools/chopmod.f
src/synt/ref/tools/chopmod.f
+9
-4
No files found.
src/synt/ref/tools/chopmod.f
View file @
ed484aaa
...
...
@@ -36,10 +36,12 @@ c for a dominant period
c
V1
.7
17
/
03
/
99
provide
different
density
transformations
c
V1
.8
22
/
12
/
11
migrated
to
gfortran
c
V1
.9
22
/
12
/
11
support
input
of
files
with
transverse
isotropic
model
c
V1
.10
08
/
04
/
19
set
appropriate
water
level
in
computation
of
Q
c
values
in
order
to
avoid
division
by
zero
c
program
chopmod
character
*
70
version
parameter
(
version
=
'CHOPMOD V1.
9
spherical --> flat earth'
)
parameter
(
version
=
'CHOPMOD V1.
10
spherical --> flat earth'
)
c
----------------------------------------------------------------------
c
c
STRATEGY
...
...
@@ -117,7 +119,7 @@ c dispersion
logical
disperse
real
*
8
domper
,
q
,
nureforig
c
calculations
double precision
zos
,
zus
,
zzo
,
zzu
,
zzm
,
rrm
double precision
zos
,
zus
,
zzo
,
zzu
,
zzm
,
rrm
,
qmwl
,
qkwl
double precision
zualpha
,
zubeta
,
zurho
,
zsalpha
,
zsbeta
,
zsrho
c
commandline
integer
maxopt
,
lastarg
...
...
@@ -375,10 +377,13 @@ c of wavelength in the full path an therefor the same damping under a given
c
quality
factor
.
c
qbeta
(
layer
)
=
qm
(
nl
)
qalpha
(
layer
)
=
(
1.d0
/
qm
(
nl
))
qmwl
=
max
(
1.e-5
,
qm
(
nl
))
qkwl
=
max
(
1.e-5
,
qk
(
nl
))
qalpha
(
layer
)
=
(
1.d0
/
qmwl
)
&
*
4.d0
*
fbeta
(
layer
)
**
2
/(
3.d0
*
falpha
(
layer
)
**
2
)
+
&
(
1.d0
/
qk
(
nl
)
)
&
(
1.d0
/
qk
wl
)
&
*
(
1.d0
-
(
4.d0
*
fbeta
(
layer
)
**
2
/(
3.d0
*
falpha
(
layer
)
**
2
)))
qalpha
(
layer
)
=
max
(
1.e-10
,
qalpha
(
layer
))
qalpha
(
layer
)
=
(
1.d0
/
qalpha
(
layer
))
enddo
c
----------------------------------------------------------------------
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment