Commit 83f5653e authored by Thomas Jahns's avatar Thomas Jahns 🤸
Browse files

Parse C defines as Fortran PARAMETERS for mo_cdi.

parent 2df53f40
......@@ -98,9 +98,9 @@ end
# create fortran module variables
def genModVars(vars)
def genModParams(vars)
vars.collect {|var, value|
" integer :: #{var} = #{value}"
" integer, parameter :: #{var} = #{value}"
}.join("\n")
end
......@@ -382,7 +382,7 @@ end.parse!
pp cDefines if debug
unless cDefines.empty?
makeModVarsPublic = makePublic(*cDefines.transpose[0])
moduleVariables = genModVars(cDefines)
moduleVariables = genModParams(cDefines)
end
interfaces, makepublics, subroutines = '', '', ''
......
Supports Markdown
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