Commit c2162ce5 authored by Espen Sollum's avatar Espen Sollum
Browse files

Fixed a possible array out-of-bounds error (flexpart.eu ticket #139)

parent 7999df47
......@@ -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
! Calculate 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
......
......@@ -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
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment