Skip to content
Open
Show file tree
Hide file tree
Changes from 3 commits
Commits
File filter

Filter by extension

Filter by extension

Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
8 changes: 8 additions & 0 deletions src/SfileOutput.C
Original file line number Diff line number Diff line change
Expand Up @@ -739,6 +739,14 @@ void SfileOutput::write_image(const char *fname, std::vector<Sarray>& a_Z )
H5Awrite(attr, H5T_NATIVE_DOUBLE, &spacing);
H5Aclose(attr);

aname = "Coarsest horizontal grid spacing";
spacing = mEW->mGridSize[0]*stH;
attr = H5Acreate(h5_fid, aname, H5T_NATIVE_DOUBLE, attr_space1, H5P_DEFAULT, H5P_DEFAULT);
if( attr < 0 )
VERIFY2(0, "ERROR: SfileOutput::write_image, error creating " << aname);
H5Awrite(attr, H5T_NATIVE_DOUBLE, &spacing);
H5Aclose(attr);

aname = "Attenuation";
int att = mEW->usingAttenuation();
attr = H5Acreate(h5_fid, aname, H5T_NATIVE_INT, attr_space1, H5P_DEFAULT, H5P_DEFAULT);
Expand Down
2 changes: 1 addition & 1 deletion src/TimeSeries.C
Original file line number Diff line number Diff line change
Expand Up @@ -1329,7 +1329,7 @@ write_hdf5_format(int npts, hid_t grp, float *y, float btime, float dt, char *va

if (isLast && ret == 1) {
m_nptsWritten += count;
H5Gflush(grp);
// H5Gflush(grp);
}

if (mDownSample > 1)
Expand Down
17 changes: 16 additions & 1 deletion src/parseInputFile.C
Original file line number Diff line number Diff line change
Expand Up @@ -6263,7 +6263,7 @@ void EW::processRupture(char* buffer, vector<vector<Source*> > & a_GlobalUniqueS
printf("Number of point sources in data block: %i\n", npts);

// read all point sources
int nSources=0, nu1=0, nu2=0, nu3=0;
int nSources=0, nu1=0, nu2=0, nu3=0, nskip_zero_slip=0;
for (int pts=0; pts<npts; pts++)
{
double lon, lat, dep, stk, dip, area, tinit, dt, rake, slip1, slip2, slip3;
Expand Down Expand Up @@ -6342,6 +6342,19 @@ void EW::processRupture(char* buffer, vector<vector<Source*> > & a_GlobalUniqueS
{
printf("INFO: SRF file: dt*sum(slip_vel)=%e [m], total slip (from header)=%e [m]\n", slip_sum, slip_m);
}
float_sw4 slip_sum_tol = 1e-12;
if( slip_sum > -slip_sum_tol && slip_sum < slip_sum_tol )
{
nskip_zero_slip++;
if( proc_zero() && nskip_zero_slip <= 10 )
{
printf("WARNING: skipping rupture point #%i because dt*sum(slip_vel)=%e [m], slip1=%e [m]\n",
pts+1, slip_sum, slip_m);
}
for (int i=1; i<=nt1dim+1; i++)
par[i] = 0;
slip_sum = 1;
}
// scale time series to sum to integrate to one
for (int i=1; i<=nt1dim+1; i++)
{
Expand Down Expand Up @@ -6511,6 +6524,8 @@ void EW::processRupture(char* buffer, vector<vector<Source*> > & a_GlobalUniqueS
if (proc_zero())
printf("Read npts=%i, made %i point moment tensor sources, nu1=%i, nu2=%i, nu3=%i\n",
npts, nSources, nu1, nu2, nu3);
if (proc_zero() && nskip_zero_slip > 0)
printf("Skipped %i rupture points with zero slip-velocity integral in u1.\n", nskip_zero_slip);

fclose(fd);
}
Expand Down
17 changes: 16 additions & 1 deletion src/readhdf5.C
Original file line number Diff line number Diff line change
Expand Up @@ -569,7 +569,7 @@ void readRuptureHDF5(char *fname, vector<vector<Source*> > & a_GlobalUniqueSourc
int npts = 0, nseg = 0, nsr1 = 0;
hsize_t dims;
double rVersion;
int nSources=0, nu1=0, nu2=0, nu3=0;
int nSources=0, nu1=0, nu2=0, nu3=0, nskip_zero_slip=0;

stime = MPI_Wtime();
// Only rank 0 reads data, then broadcast to all other processes
Expand Down Expand Up @@ -777,6 +777,19 @@ void readRuptureHDF5(char *fname, vector<vector<Source*> > & a_GlobalUniqueSourc
{
printf("INFO: SRF file: dt*sum(slip_vel)=%e [m], total slip (from header)=%e [m]\n", slip_sum, slip_m);
}
float_sw4 slip_sum_tol = 1e-12;
if( slip_sum > -slip_sum_tol && slip_sum < slip_sum_tol )
{
nskip_zero_slip++;
if( world_rank == 0 && nskip_zero_slip <= 10 )
{
printf("WARNING: skipping rupture point #%i because dt*sum(slip_vel)=%e [m], slip1=%e [m]\n",
pts+1, slip_sum, slip_m);
}
for (int i=1; i<=nt1dim+1; i++)
par[i] = 0;
slip_sum = 1;
}
// scale time series to sum to integrate to one
for (int i=1; i<=nt1dim+1; i++)
{
Expand Down Expand Up @@ -911,6 +924,8 @@ void readRuptureHDF5(char *fname, vector<vector<Source*> > & a_GlobalUniqueSourc
} // end for all sources
if (world_rank == 0)
printf("Read npts=%i, made %i point moment tensor sources, nu1=%i, nu2=%i, nu3=%i\n", npts, nSources, nu1, nu2, nu3);
if (world_rank == 0 && nskip_zero_slip > 0)
printf("Skipped %i rupture points with zero slip-velocity integral in u1.\n", nskip_zero_slip);

etime = MPI_Wtime();
if (is_debug && world_rank == 0)
Expand Down
Loading