Skip to content

GitLab

G
gotm_ismer
Commit 81e0cfff authored by dumoda01's avatar dumoda01
Browse files
Options

Bogue mineur de depassement de tableau

parent 60175900
Hide whitespace changes
Inline Side-by-side
Showing with 2 additions and 2 deletions
src/turbulence/kpp.F90
View file @ 81e0cfff
......@@ -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