Commit 636bde14 by Bertrand Thierry

[benchmark/ddm_wave] Generate Flags are initialized to 0

parent 1fbe9421
......@@ -18,6 +18,8 @@ Resolution {
EndFor
}
Operation {
// Reset parameters
Call Init ;
// output parameters
Call PrintInfo;
......
......@@ -46,6 +46,19 @@ For ii In {0: #ListOfSubdomains()-1}
];
EndFor
Macro Init
//Reset variables.
For ii In {0: #ListOfSubdomains()-1}
idom = ListOfSubdomains(ii);
GenerateVolFlag~{idom} = 0;
GenerateSurFlag~{idom}~{0} = 0 ;
GenerateSurFlag~{idom}~{1} = 0;
GenerateSurPcFlag~{idom}~{0} = 0 ;
GenerateSurPcFlag~{idom}~{1} = 0 ;
EndFor
Return
Macro PrintInfo
If (MPI_Rank == 0)
Printf[StrCat["Starting ", StrChoice[ANALYSIS == 0, "Helmholtz",
......
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 sign in to comment