Commit 81e0cfffa9b2dc54b2d2159bde1feed83c5c88f0

Authored by dumoda01
1 parent 60175900
Exists in master and in 1 other branch snow

Bogue mineur de depassement de tableau

Showing 1 changed file with 2 additions and 2 deletions   Show diff stats
src/turbulence/kpp.F90
... ... @@ -758,8 +758,8 @@
758 758  
759 759 ! Compute distance between centers (between rho-points)
760 760 ! Note that h is the distance between faces (between w-points)
761   - do k=1,nlev
762   - h_r(k) = 0.5*(h(k)+ h(k+1))
  761 + do k=1,nlev-1
  762 + h_r(k) = 0.5*(h(k) + h(k+1))
763 763 enddo
764 764  
765 765 ! Compute position of interfaces (w-points)
... ...