Skip to content
GitLab
Menu
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
Menu
Open sidebar
Dany Dumont
gotm_ismer
Commits
81e0cfff
Commit
81e0cfff
authored
Feb 22, 2011
by
dumoda01
Browse files
Bogue mineur de depassement de tableau
parent
60175900
Changes
1
Hide whitespace changes
Inline
Side-by-side
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)
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment