Commit c32f8569 authored by Simone Butzer's avatar Simone Butzer

Merge branch 'master' of git.scc.kit.edu:GPIAG-Software/IFOS3D

parents bf0e913c c7906f60
...@@ -736,9 +736,11 @@ CPML_coeff(K_x,alpha_prime_x,a_x,b_x,K_x_half,alpha_prime_x_half,a_x_half,b_x_ha ...@@ -736,9 +736,11 @@ CPML_coeff(K_x,alpha_prime_x,a_x,b_x,K_x_half,alpha_prime_x_half,a_x_half,b_x_ha
if(!ntast) ntast=1; if(!ntast) ntast=1;
fprintf(FP, "ntast=%i, TAST=%i \n", ntast, TAST); fprintf(FP, "ntast=%i, TAST=%i \n", ntast, TAST);
} }
if(MYID==0) fprintf(FP,"\n ****************************************\n ");
for (nt=1;nt<=NT;nt++){ for (nt=1;nt<=NT;nt++){
fprintf(FP,"%d",nt); if(MYID==0) if(!(nt%(NT/40))) fprintf(FP,"*");
time_v_update[nt]=0.0; time_v_update[nt]=0.0;
time_s_update[nt]=0.0; time_s_update[nt]=0.0;
...@@ -889,9 +891,11 @@ CPML_coeff(K_x,alpha_prime_x,a_x,b_x,K_x_half,alpha_prime_x_half,a_x_half,b_x_ha ...@@ -889,9 +891,11 @@ CPML_coeff(K_x,alpha_prime_x,a_x,b_x,K_x_half,alpha_prime_x_half,a_x_half,b_x_ha
/* Initialisieren de Wellenfeldes mit Nullen */ /* Initialisieren de Wellenfeldes mit Nullen */
zero_wavefield(NX,NY,NZ,vx,vy,vz,sxx,syy,szz,sxy,syz,sxz,rxx,ryy,rzz,rxy,ryz,rxz,psi_sxx_x,psi_sxy_x,psi_sxz_x,psi_sxy_y,psi_syy_y,psi_syz_y,psi_sxz_z,psi_syz_z,psi_szz_z,psi_vxx,psi_vyx,psi_vzx,psi_vxy,psi_vyy,psi_vzy,psi_vxz,psi_vyz,psi_vzz); zero_wavefield(NX,NY,NZ,vx,vy,vz,sxx,syy,szz,sxy,syz,sxz,rxx,ryy,rzz,rxy,ryz,rxz,psi_sxx_x,psi_sxy_x,psi_sxz_x,psi_sxy_y,psi_syy_y,psi_syz_y,psi_sxz_z,psi_syz_z,psi_szz_z,psi_vxx,psi_vyx,psi_vzx,psi_vxy,psi_vyy,psi_vzy,psi_vxz,psi_vyz,psi_vzz);
if(MYID==0) fprintf(FP,"\n ****************************************\n ");
for (nt=1;nt<=NT;nt++){ for (nt=1;nt<=NT;nt++){
fprintf(FP,"%d",nt); if(MYID==0) if(!(nt%(NT/40))) fprintf(FP,"*");
time_v_update[nt]=0.0; time_v_update[nt]=0.0;
time_s_update[nt]=0.0; time_s_update[nt]=0.0;
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment