ArrayConnect3.mo

// name: ArrayConnect3
// keywords:
// status: correct
// cflags: -d=newInst,arrayConnect,-nfScalarize
//

connector C
  Real e;
  flow Real f;
end C;

model A
  C p;
  C n;
end A;

model Cell
  C l, r, u, d;
end Cell;

model ArrayConnect3
  parameter Integer N = 1000;
  parameter Integer M = 100;
  A S;
  Cell cells[N, M];
equation
  for i in 1:N-1, j in 1:M-1 loop
    connect(cells[i, j].r, cells[i, j+1].l);
    connect(cells[i, j].d, cells[i+1, j].u);
  end for;

  for i in 1:N loop
    connect(cells[i, M].r, cells[i, 1].l);
  end for;

  for j in 1:M loop
    connect(cells[1, j].u, S.p);
    connect(cells[N, j].d, S.n);
  end for;
end ArrayConnect3;

// Result:
// class ArrayConnect3
//   final parameter Integer N = 1000;
//   final parameter Integer M = 100;
//   Real S.p.e;
//   Real S.p.f;
//   Real S.n.e;
//   Real S.n.f;
//   Real[1000, 100] cells.d.f;
//   Real[1000, 100] cells.d.e;
//   Real[1000, 100] cells.u.f;
//   Real[1000, 100] cells.u.e;
//   Real[1000, 100] cells.r.f;
//   Real[1000, 100] cells.r.e;
//   Real[1000, 100] cells.l.f;
//   Real[1000, 100] cells.l.e;
// equation
//   for $i1 in 1:999 loop
//     for $i2 in 2:100 loop
//       cells[$i1,$i2].l.e = cells[$i1,$i2 - 1].r.e;
//     end for;
//   end for;
//   for $i1 in 1:999 loop
//     for $i2 in 1:99 loop
//       cells[$i1,$i2].r.f + cells[$i1,$i2 + 1].l.f = 0.0;
//     end for;
//   end for;
//   for $i1 in 2:1000 loop
//     for $i2 in 1:99 loop
//       cells[$i1,$i2].u.e = cells[$i1 - 1,$i2].d.e;
//     end for;
//   end for;
//   for $i1 in 1:999 loop
//     for $i2 in 1:99 loop
//       cells[$i1,$i2].d.f + cells[$i1 + 1,$i2].u.f = 0.0;
//     end for;
//   end for;
//   for $i1 in 1:1000 loop
//     cells[$i1,1].l.e = cells[$i1,100].r.e;
//   end for;
//   for $i1 in 1:1000 loop
//     cells[$i1,100].r.f + cells[$i1,1].l.f = 0.0;
//   end for;
//   for $i2 in 1:100 loop
//     cells[1,$i2].u.e = S.p.e;
//   end for;
//   sum(cells[1,:].u.f) + S.p.f = 0.0;
//   for $i2 in 1:100 loop
//     cells[1000,$i2].d.e = S.n.e;
//   end for;
//   sum(cells[1000,:].d.f) + S.n.f = 0.0;
//   for $i1 in 1:999 loop
//     cells[$i1,100].d.f = 0.0;
//   end for;
//   for $i1 in 2:1000 loop
//     cells[$i1,100].u.f = 0.0;
//   end for;
//   for $i2 in 1:99 loop
//     cells[1000,$i2].r.f = 0.0;
//   end for;
//   for $i2 in 2:100 loop
//     cells[1000,$i2].l.f = 0.0;
//   end for;
// end ArrayConnect3;
// endResult