yohai/phigrape
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

ETICS coefficients are written at the same time as the snapshots and use the same numbers for the files

Browse source
This commit is contained in:
Yohai Meiron 2019-12-28 17:10:37 -05:00
parent c9c63fe613
commit 55c440a8a4
1 changed files with 11 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

14
phi-GRAPE.c
View file

@ -1237,7 +1237,7 @@ void write_snap_data()
void write_cont_data()
{
out = fopen("data.con","w");
fprintf(out,"%06d \n", (time_cur>=t_disk)?diskstep+1:diskstep);
fprintf(out,"%06d \n", diskstep);
//#ifdef STEVOL
// fprintf(out,"%06d \n", N);
@ -5238,7 +5238,12 @@ if(myRank == rootRank)
} /* if(myRank == rootRank) */
#ifdef ETICS_DUMP
if (diskstep==0) {
sprintf(out_fname, "coeffs.%06d.%02d.dat", 0, myRank);
grapite_dump(out_fname, 2);
}
#endif
/* Wait to all processors to finish his works... */
@ -7073,7 +7078,10 @@ for(i=0; i<N; i++)
} /* if(myRank == rootRank) */
#ifdef ETICS_DUMP
sprintf(out_fname, "coeffs.%06d.%02d.dat", diskstep, myRank);
grapite_dump(out_fname, 2);
#endif