Bogue mineur de depassement de tableau

81e0cfff · dumoda01 · 60175900 · 81e0cfff
Commit 81e0cfff authored Feb 22, 2011 by dumoda01
Hide whitespace changes
Inline Side-by-side

Showing with 2 additions and 2 deletions

src/turbulence/kpp.F90 src/turbulence/kpp.F90 +2 -2

No files found.
--- a/src/turbulence/kpp.F90
+++ b/src/turbulence/kpp.F90
@@ -758,8 +758,8 @@

 !  Compute distance between centers (between rho-points)
 !  Note that h is the distance between faces (between w-points)
-   do k=1,nlev
-      h_r(k) = 0.5*(h(k)+ h(k+1))
+   do k=1,nlev-1
+      h_r(k) = 0.5*(h(k) + h(k+1))
   enddo

 !  Compute position of interfaces (w-points)