code simulationcode1 quant1(id = 1, where = node, dim = scalar, type = field); end %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% code simulationcode2 quant1(id = 1, where = node, dim = scalar, type = field); end %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% quantities simulationcode1.quant1 = simulationcode2.quant1; end %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% switches output_level = 0; end %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% jobs JobName1 = simulationcode1 ( pwd = ".", exec = "mpcci1", nprocs = 1 ); JobName2 = simulationcode2 ( pwd = ".", exec = "mpcci2", nprocs = 1 ); end %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% coupling syncpt JobName1(1) : send(quant1/1); syncpt JobName2(1) : recv(quant1/1); match_syncpt JobName1(1) = JobName2(1); comm JobName1(123) : send(quant1/1); comm JobName2(124) : recv(quant1/1); match_comm JobName1(123) = JobName2(124); end %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%