Commit 8958b38e authored by Stefan's avatar Stefan
Browse files

init cbc_bmap

parent 7c4dc92c
......@@ -279,6 +279,8 @@ C
ninter = 1
nfld_neknek = ndim + nfield
CALL BLANK(cbc_bmap,sizeof(cbc_bmap))
one = 1.
PI = 4.*ATAN(one)
......
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