Completed porting, fixing bugs and testing

BasicSolver/2D-seq/canal.par

@@ -41,7 +41,7 @@ tau     0.5     # safety factor for time stepsize control (<0 constant delt)
 
 itermax  500       # maximal number of pressure iteration in one time step
 eps      0.00001   # stopping tolerance for pressure iteration
-rho      0.9999
+rho      0.52
 omg      1.8       # relaxation parameter for SOR iteration
 gamma    0.9       # upwind differencing factor gamma
 #===============================================================================

BasicSolver/2D-seq/dcavity.par

@@ -41,7 +41,7 @@ tau     0.5	    	# safety factor for time stepsize control (<0 constant delt)
 
 itermax  1000		# maximal number of pressure iteration in one time step
 eps      0.001		# stopping tolerance for pressure iteration
-rho      0.9999
+rho      0.5
 omg      1.7		# relaxation parameter for SOR iteration
 gamma    0.9		# upwind differencing factor gamma
 #===============================================================================

BasicSolver/2D-seq/src/solver.c

@@ -259,7 +259,7 @@ void solveRBA(Solver* solver)
     double dy2    = solver->dy * solver->dy;
     double idx2   = 1.0 / dx2;
     double idy2   = 1.0 / dy2;
-    double factor = solver->omega * 0.5 * (dx2 * dy2) / (dx2 + dy2);
+    double factor = 0.5 * (dx2 * dy2) / (dx2 + dy2);
     double* p     = solver->p;
     double* rhs   = solver->rhs;
     double epssq  = eps * eps;