Bogue mineur de depassement de tableau

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)