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 |