Commit 440fc382 authored by Robin Hilgers's avatar Robin Hilgers

Two commits until merge

parent 195d8fd5
......@@ -153,7 +153,7 @@ CONTAINS
DO js = 1, jspV
DO lh = 0, sphhar%nlh(nd)
DO k = 1, nsp
ch_tmp(k, js) = ch_tmp(k, js) + ylh(k, lh, nd)*chlh(jr, lh, js)
ch_tmp(k, js) = ch_tmp(k, js) + ylh(k, lh, nd)*chlh(jr, lh, js)
ENDDO
ENDDO
ENDDO
......
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