diff --git a/libd3q15/.gitignore b/libd3q15/.gitignore index af08fed..934b553 100644 --- a/libd3q15/.gitignore +++ b/libd3q15/.gitignore @@ -1 +1,2 @@ eigenvectors.h +config.mk diff --git a/libd3q15/Makefile b/libd3q15/Makefile index d30f6c1..c500b08 100644 --- a/libd3q15/Makefile +++ b/libd3q15/Makefile @@ -15,6 +15,9 @@ libobjs = d3q15.o checks.o noise.o \ headers = d3q15.h Lattice.h noise.h eigenvectors.h +localconfig = $(wildcard config.mk) +include $(localconfig) + $(LIB) : $(libobjs) $(AR) $@ $^ ranlib $@ diff --git a/libd3q15/d3q15.c b/libd3q15/d3q15.c index aa17e97..b7ea020 100644 --- a/libd3q15/d3q15.c +++ b/libd3q15/d3q15.c @@ -86,11 +86,11 @@ void d3q15_iterate(Lattice *lat, int n_steps) { collide(lat); /* Update boundary */ - (*lat->bc_func)(lat); + (*lat->bc_func)(lat); /* Propagate */ propagate(lat); - + lat->time_step++; } } @@ -268,7 +268,7 @@ void collide (Lattice *lat) { /* relax the trace */ TrS -= omega_b*(TrS - site.rho[0]*usq); /* Add forcing part to trace */ - TrS += 2.*omega_b*tau_b * uDOTf; + TrS += 2.*omega_b*tau_b * uDOTf / site.rho[0]; /* and the traceless part */ for (a=0; anx; i++) for (j=1; j<=$self->ny; j++) - for (k=1; k<=$self->nz; k++) - calc_equil(DQ_rho_get($self,i,j,k), &DQ_u_get($self, i,j,k,0), &DQ_f_get($self, i,j,k,0)); + for (k=1; k<=$self->nz; k++) { + for (a=0; a