Latest working version of the code (580ff8c2) · Commits · polarization / slab

compute_results.c

+2 −6

Original line number	Original line	Diff line number	Diff line
	@@ -94,17 +94,13 @@ void compute_results(int method,
	}		}
	}		}
	else		else
			{
	fprintf(dat, "!Pdeg band 1\n");		fprintf(dat, "!Pdeg band 1\n");
	fprintf(dat, "!Pdeg band 2\n");		fprintf(dat, "!Pdeg band 2\n");
	fprintf(dat, "!Pdeg band 3\n");		fprintf(dat, "!Pdeg band 3\n");
	fprintf(dat, "!Pdeg band 4\n");		fprintf(dat, "!Pdeg band 4\n");
	fprintf(dat, "!Pdeg band 5\n");		fprintf(dat, "!Pdeg band 5\n");




	{
	for (jj = 0; jj < Nstep_mu; jj++)		for (jj = 0; jj < Nstep_mu; jj++)
	{		{
	fprintf(dat, "%lf %5.4e %5.4e %5.4e %5.4e %5.4e %5.4e %5.4e \n", array_mu[jj], Pdeg[jj],		fprintf(dat, "%lf %5.4e %5.4e %5.4e %5.4e %5.4e %5.4e %5.4e \n", array_mu[jj], Pdeg[jj],

legendre_integration.c

+11 −8

Original line number	Original line	Diff line number	Diff line
	@@ -12,6 +12,7 @@ Gauss-Legendre quadrature
	/* [2(1-u^2)(1-u'^2) + u^2 u'^2] I_l(u) du' */		/* [2(1-u^2)(1-u'^2) + u^2 u'^2] I_l(u) du' */
	/========================================================/		/========================================================/


	double legendre_integration_A(gsl_spline2d* Spline_I2d, double tau, double u, double* u_prime, double* weights_u)		double legendre_integration_A(gsl_spline2d* Spline_I2d, double tau, double u, double* u_prime, double* weights_u)
	{		{
	int status;		int status;
	@@ -19,9 +20,11 @@ double legendre_integration_A(gsl_spline2d* Spline_I2d, double tau, double u, do
	double integ_value;		double integ_value;
	double angular_term;		double angular_term;
	double Ik_l;		double Ik_l;
			double tolerance;

	integ_value = 0;		integ_value = 0;
	Ik_l = 0;		Ik_l = 0;
			tolerance=1e-7;

	for (ii = 0; ii < Nstep_mu; ii++)		for (ii = 0; ii < Nstep_mu; ii++)
	{		{
	@@ -31,15 +34,15 @@ double legendre_integration_A(gsl_spline2d* Spline_I2d, double tau, double u, do
	/Evaluate by 2D-interpolation the function I^{k-1}_l (tau, u')/		/Evaluate by 2D-interpolation the function I^{k-1}_l (tau, u')/
	/====================================================================/		/====================================================================/

	status = gsl_spline2d_eval_e(Spline_I2d, tau, u_prime[ii], xacc_2d, yacc_2d, &Ik_l);		status = gsl_spline2d_eval_extrap_e(Spline_I2d, tau, u_prime[ii], xacc_2d, yacc_2d, &Ik_l);

	//printf("u %lf tau %lf Ik_l %5.4e\n", u_prime[ii], tau, Ik_l);		//printf("u %lf tau %lf Ik_l %5.4e\n", u_prime[ii], tau, Ik_l);


	if (Ik_l < 0)		if (Ik_l < -tolerance)
	{		{
	printf("Warning: interpolated Ik_l < 0 for tau=%5.4f u_prime=%5.4f\n", tau, u_prime[ii]);		//("Warning: interpolated Ik_l < 0 for tau=%5.4f u_prime=%5.4f\n", tau, u_prime[ii]);
	exit(1);		//exit(1);
	}		}

	if (status)		if (status)
	@@ -92,7 +95,7 @@ double legendre_integration_B(gsl_spline2d* Spline_I2d, double tau, double u, do
	/Evaluate by 2D-interpolation the function I^{k-1}_r (tau, u')/		/Evaluate by 2D-interpolation the function I^{k-1}_r (tau, u')/
	/====================================================================/		/====================================================================/

	status = gsl_spline2d_eval_e(Spline_I2d, tau, u_prime[ii], xacc_2d, yacc_2d, &Ik_r);		status = gsl_spline2d_eval_extrap_e(Spline_I2d, tau, u_prime[ii], xacc_2d, yacc_2d, &Ik_r);

	if (status)		if (status)
	{		{
	@@ -139,7 +142,7 @@ double legendre_integration_C(gsl_spline2d* Spline_I2d, double tau, double u, do
	/Evaluate by 2D-interpolation the function I^{k-1}_l (tau, u')/		/Evaluate by 2D-interpolation the function I^{k-1}_l (tau, u')/
	/====================================================================/		/====================================================================/

	status = gsl_spline2d_eval_e(Spline_I2d, tau, u_prime[ii], xacc_2d, yacc_2d, &Ik_l);		status = gsl_spline2d_eval_extrap_e(Spline_I2d, tau, u_prime[ii], xacc_2d, yacc_2d, &Ik_l);

	if (status)		if (status)
	{		{
	@@ -185,7 +188,7 @@ double legendre_integration_D(gsl_spline2d* Spline_I2d, double tau, double u, do
	/Evaluate by 2D-interpolation the function I^{k-1}_r (tau, u')/		/Evaluate by 2D-interpolation the function I^{k-1}_r (tau, u')/
	/====================================================================/		/====================================================================/

	status = gsl_spline2d_eval_e(Spline_I2d, tau, u_prime[ii], xacc_2d, yacc_2d, &Ik_r);		status = gsl_spline2d_eval_extrap_e(Spline_I2d, tau, u_prime[ii], xacc_2d, yacc_2d, &Ik_r);

	if (status)		if (status)
	{		{

main_program.c

+1 −1

Original line number	Original line	Diff line number	Diff line
	@@ -299,7 +299,7 @@ int main(int argc, char* argv[])
	return (1);		return (1);
	}		}

	MPI_Finalize();		if (strcmp(method, "mc") == 0) MPI_Finalize();

	return (0);		return (0);
	}		}

mc_slab.c

+1 −1

Original line number	Original line	Diff line number	Diff line
	@@ -268,7 +268,7 @@ int slab_mc(int nphot, int seed)
	}		}

	/====================================================================/		/====================================================================/
	/Compute the optical depth from top of bottom of the atmosphere/		/Compute the optical depth from top or base of the atmosphere/
	/=====================================================================/		/=====================================================================/

	tau = NeDisk * SIGMA_T * r_units * L_top;		tau = NeDisk * SIGMA_T * r_units * L_top;

solve_rte.c

+7 −7

Original line number	Original line	Diff line number	Diff line
	@@ -32,7 +32,7 @@ int solve_rte(int k_iter, int seed_distribution, int Nstep_tau)
	printf("\n\nReceveing Nstep_tau %d\n", Nstep_tau);		printf("\n\nReceveing Nstep_tau %d\n", Nstep_tau);
	int ii, jj, kk, status;		int ii, jj, kk, status;

	Nstep_mu = 30;		Nstep_mu = 20;
	/* Nstep_tau = 100;*/		/* Nstep_tau = 100;*/

	tau0 = disktau / 2.;		tau0 = disktau / 2.;
	@@ -193,12 +193,12 @@ int solve_rte(int k_iter, int seed_distribution, int Nstep_tau)



	printf("CHECK HERE !\n");		/* printf("CHECK HERE !\n");
	double zio=0;		double zio=0;
	int status = gsl_spline2d_eval_extrap_e(Spline_I2d_l_downstream, 2*tau0, 0.5, xacc_2d, yacc_2d, &zio);		int status = gsl_spline2d_eval_extrap_e(Spline_I2d_l_downstream, 2*tau0, 0.5, xacc_2d, yacc_2d, &zio);

	printf("================> status %d val %lf\n", status, zio);		printf("================> status %d val %lf\n", status, zio);
			*/

	/=======================================================================/		/=======================================================================/
	/Solve the RTE at the quadrature points/		/Solve the RTE at the quadrature points/
	@@ -232,13 +232,13 @@ int solve_rte(int k_iter, int seed_distribution, int Nstep_tau)
	y[3] = 0;		y[3] = 0;

	gsl_odeiv2_system sys = {RTE_Equations, jac, 4, params};		gsl_odeiv2_system sys = {RTE_Equations, jac, 4, params};
	gsl_odeiv2_driver* d = gsl_odeiv2_driver_alloc_y_new(&sys, gsl_odeiv2_step_rk4, step_tau, 1e-7, 1e-7);		gsl_odeiv2_driver* d = gsl_odeiv2_driver_alloc_y_new(&sys, gsl_odeiv2_step_rk8pd, step_tau, 1e-4, 1e-4);

	while (tau < 2 * tau0)		while (tau < 2 * tau0)
	{		{
	// printf("tau prima %lf\n", tau);		// printf("tau prima %lf\n", tau);

	status = gsl_odeiv2_driver_apply_fixed_step(d, &tau, step_tau, 5, y);		status = gsl_odeiv2_driver_apply_fixed_step(d, &tau, step_tau, 1, y);

	if (status)		if (status)
	{		{
	@@ -309,7 +309,7 @@ int RTE_Equations(double s, const double y[], double f[], void* params)
	/Equation for I_l upstream/		/Equation for I_l upstream/
	/==============================================/		/==============================================/

	//printf("UNO s=%10.7f\n", 2*tau0);		//printf("UNO s=%lf\n");


	f[0] = -1 / u * y[0] +		f[0] = -1 / u * y[0] +
	@@ -322,7 +322,7 @@ int RTE_Equations(double s, const double y[], double f[], void* params)



			//printf("UNO DOPO s=%10.7f\n");

	/==============================================/		/==============================================/
	/Equation for I_r upstream/		/Equation for I_r upstream/