Commit b606e111 authored by Matthias Redies's avatar Matthias Redies

fix bug

parent 1a9fb80a
......@@ -19,8 +19,7 @@
REAL, INTENT (IN) :: drri(mshd,jspd),ddrri(mshd,jspd)
TYPE(t_gradients)::grad
REAL dagrr,dagrru,ddrr,ddrrd,ddrru,drr,drrd,drru,dzdr,ro,
+ rod,rou,rv,spnf
REAL dagrr,dagrru,ddrr,ddrrd,ddrru,drr,drrd,drru,dzdr,ro,rod,rou,rv,spnf
INTEGER i
! ------------------------------------------------------------------
......
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