Skip to content
GitLab
Menu
Projects
Groups
Snippets
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
Menu
Open sidebar
flexpart
flexpart
Commits
c2162ce5
Commit
c2162ce5
authored
Mar 09, 2016
by
Espen Sollum
Browse files
Fixed a possible array out-of-bounds error (flexpart.eu ticket #139)
parent
7999df47
Changes
2
Hide whitespace changes
Inline
Side-by-side
src/richardson.f90
View file @
c2162ce5
...
...
@@ -110,7 +110,7 @@ subroutine richardson(psurf,ust,ttlev,qvlev,ulev,vlev,nuvz, &
rh
=
qvlev
(
k
)
/
f_qvsat
(
pint
,
ttlev
(
k
)
)
!alculate Richardson number at each level
!
C
alculate Richardson number at each level
!****************************************
ri
=
ga
/
thetaref
*
(
theta
-
thetaref
)
*
(
z
-
zref
)/
&
...
...
@@ -126,7 +126,7 @@ subroutine richardson(psurf,ust,ttlev,qvlev,ulev,vlev,nuvz, &
thetaold
=
theta
zold
=
z
end
do
k
=
k
-1
! ESO: make sure k <= nuvz (ticket #139)
20
continue
! Determine Richardson number between the critical levels
...
...
src/richardson_gfs.f90
View file @
c2162ce5
...
...
@@ -140,7 +140,7 @@ subroutine richardson(psurf,ust,ttlev,qvlev,ulev,vlev,nuvz, &
thetaold
=
theta
zold
=
z
end
do
k
=
k
-1
! ESO: make sure k <= nuvz (ticket #139)
20
continue
! Determine Richardson number between the critical levels
...
...
Write
Preview
Supports
Markdown
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