Commit 81e0cfff authored by dumoda01's avatar dumoda01

Bogue mineur de depassement de tableau

parent 60175900
......@@ -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)
......
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