The main loop of the program reads:
1 SetObstacleCond(0,0);
2 Par->CommMatrix(U, 1, 0, 0, UCOMM);
3 Par->CommMatrix(V, 0, 1, 0, VCOMM);
4 Par->CommMatrix(W, 0, 0, 1, WCOMM);
5 S.delt=TimeStep();
6 do {
7 CompFGH();
8 CompRHS();
9 res=Poisson();
10 AdapUVW();
11 SetObstacleCond(0,0);
12 Par->CommMatrix(U, 1, 0, 0, UCOMM);
13 Par->CommMatrix(V, 0, 1, 0, VCOMM);
14 Par->CommMatrix(W, 0, 0, 1, WCOMM);
15 S.delt=TimeStep();
16 if (S.CompTemp==TRUE) {
17 CompTG(T,S.alphatg,S.nu/S.prandtl);
18 Par->CommMatrix(T, 0, 0, 0, TCOMM);
19 }
20 if (S.CompChem==TRUE) {
21 int n;
22 for (n=0; n<S.nchem; n++) {
23 CompTG(CH[n],S.alphatg,S.chemc[n]);
24 Par->CommMatrix(CH[n], 0, 0, 0, CHCOMM+n);
25 }
26 }
27 S.t+=S.delt;
28 n++;
29 } while (S.Tfin < 0);
In lines 1 to 5, a first initialization of boundary values is set and the initial size
| class | file |
| Scene | typen.hpp |
| ParParams | parallel.hpp |
| Navier | navier.hpp |
| NavierCalc | navier.hpp |
| Matrix<T> | matrix.hpp |
| List<T> | list.hpp |
| list objects | typen.hpp |