Changeset c2162ce in flexpart.git for src/richardson_gfs.f90

Timestamp:

Mar 9, 2016, 11:00:00 AM (8 years ago)

Author:

Espen Sollum ATMOS <eso@…>

Branches:

master, 10.4.1_pesei, GFS_025, bugfixes+enhancements, dev, release-10, release-10.4.1, scaling-bug, univie

Children:

1c3c778

Parents:

7999df47

Message:

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

File:

• src/richardson_gfs.f90 (modified) (1 diff)

src/richardson_gfs.f90

@@ -141 +141 @@
     zold=z
   end do
-
+  k=k-1 ! ESO: make sure k <= nuvz (ticket #139)
 20   continue