#!/usr/bin/env python

"""

Script to download and plot RaspberryShake station data

Also computes and plots theoretical phase arrival times

See https://docs.obspy.org/packages/obspy.taup.html for more info on

Earth models and phase-naming nomenclature.

Copy this file and ShakeNetwork2020.csv into the same folder

Mark Vanstone

Truro School, Cornwall

Oct 2020

The following python modules need to be installed on your computer: obspy, matplotlib, geopy, numpy

"""

from obspy.clients.fdsn import Client

from obspy import UTCDateTime, Stream, read, read_inventory

from obspy.taup import TauPyModel

from obspy.geodetics.base import locations2degrees

from matplotlib.transforms import blended_transform_factory

from os import path

import matplotlib.pyplot as plt

from geopy.geocoders import Nominatim

import numpy as np

from matplotlib.cm import get_cmap

from obspy.geodetics import gps2dist_azimuth

DATA_PROVIDER = "RASPISHAKE"

MODEL = 'iasp91' # Velocity model to predict travel-times through

#MODEL = 'ak135' # Velocity model to predict travel-times through

model = TauPyModel(model=MODEL)

client=Client(DATA_PROVIDER)

# Event details

URL='https://earthquake.usgs.gov/earthquakes/eventpage/us7000c7y0/executive'

EQNAME = 'M7 15 km NNE of Néon Karlovásion, Greece'

EQLAT= 37.9175

EQLON= 26.7901

EQZ= '2020-10-30 11:51:28'

EQTIME = 25.7859016291

FILE_STEM = 'Turkey-2020-10-30'

MAGNITUDE = 'M7'

RESP="DISP" # DISP, VEL or ACC

WINDOW=20 # displacement plus/minus window

DECIMATION = 1 # decimation factor, can be up to 15 to keep 1 sample point in every 15, reduces memory usage on computer

# Things to change once for your station

NETWORK = 'AM' # AM = RaspberryShake network

STATION = "R21C3" # Station code of local station to plot

STA_LAT = 13.7268 # Latitude of local station

STA_LON = 100.7788 # Longitude of local station

CHANNEL = 'EHZ' # channel to grab data for (e.g. EHZ, SHZ, EHE, EHN)

found_home = False

# configuration of the section plot

DURATION = 1400 # Length in seconds of data to plot after origin time

TDOWNLOAD = 3600 # data length to download and write to file

MIN_DIST = 0 # minimum distance for a seismometer in degrees

MAX_DIST = 180 # maximum distance in degrees

STEP = 1 # step in degrees between seismometers

ANGLE_DX = 10 # angle between tick marks on x-axis of section

PHASES = sorted(["P", "pP", "PP", "S", "Pdiff", "PKP", "PKIKP", "PcP", "ScP", "ScS", "PKiKP", "SKiKP", "SKP", "SKS", "sP"]) # list of phases for which to compute theoretical times

#PHASES+=sorted(["Pg","Pn","PnPn","PgPg","PmP","PmS","Sg","Sn","SnSn","SgSg","SmS","SmP"])

PHASES=sorted(PHASES)

#PHASES = sorted(["P", "pP", "PP", "S"]) # list of phases for which to compute theoretical times

PHASE_PLOT = "spots" # choose lines or spots for phases

DPI = 80 # dpi for plot

FIG_SIZE = (1920/DPI, 1080/DPI) # size of figure in inches. Slightly bigger than PLOT_SIZE

PLOT_SIZE = (FIG_SIZE[0]*DPI*0.75,FIG_SIZE[1]*DPI*0.75) # plot size in pixels with borders for labels

F1 = 0.4 # High-pass filter corner for seismometers up to 90 degrees

F2 = 6.0 # Low-pass filter corner

F3 = 0.6 # High-pass filter corner for seismometers from 90 degrees

F4 = 2.0 # Low-pass filter corner

EXCLUDE=['RCDAD','R7A67','RB938','RE0EF','R9505','RED8C','RD8B4','RB4AC','RAA7C','R77F5','RA533','RB489','RA993','RDBE0','R9F0A','RA2B7','RBAED']

EXCLUDE+=['RDDA1','R569B','RC57A','R6A18','R9B84','S2768','R6661','RAF99','RCC6E','R09EF','R0B0A','R4FF5','R57EC','RB0E1','RD269']

EXCLUDE+=['RF808','R6C9E','RF209','RB6EF','R01F9'] # Canary island Raspberry Shakes, or not?

EXCLUDE+=['RF4C9','RC20A','RBCD3','R5791','R8504','REC8C','R376A']

EXCLUDE+=['R93B9','RE9A7','R3A99','R6CAB','RFE51','R8D78','R2EE0','R4DE2','RC79E','RCC84','R71FE','RAE44','R54E5','R8296','R2791','RC0D7','RC383','R0738','R9F7B','RCF56'] # Shadow zone

EXCLUDE+=['RC848','R87FD','RA0BA','RA533','RAA7C','R13BB','R522C','R7D6B','R359E','RA2B7','RDEE3','RA825','R923A','R1B4E','RFCBE','R9CAE','R3302','R25AC','S4458','R2683']

EXCLUDE+=['RCC68','RD2D3','RE443','R976A','RDDF8','R17FC']

NETWORK_DATA = "ShakeNetwork2020.csv" # data file containing seismometer names and locations, different format to 2019 data

GLOBE_PHASES = sorted([

])

# Calculated constants

STA_DIST = locations2degrees(EQLAT, EQLON, STA_LAT, STA_LON) # distance to local station

EQLATLON = (EQLAT, EQLON)

BUFFER = 60 # time before and after plot for taper data

START_TIME=UTCDateTime(EQTIME)

END_TIME=START_TIME+DURATION

# Pretty paired colors. Reorder to have saturated colors first and remove

# some colors at the end. This cmap is compatible with obspy taup

cmap = get_cmap('Paired', lut=12)

COLORS = ['#%02x%02x%02x' % tuple(int(col * 255) for col in cmap(i)[:3]) for i in range(12)]

COLORS = COLORS[1:][::2][:-1] + COLORS[::2][:-1]

#COLORS = [ cm.plasma(x) for x in linspace(0, 0.8, len(PHASES)) ] # colours from 0.8-1.0 are not very visible

# End of parameters to define

# utility subroutines for data handling and plotting

def plottext(xtxt, ytxt, phase, vertical, horizontal, color, textlist):

textlist.append((xtxt, ytxt))

def parse(string):

return out

# Function to read a file using the context manager

def readFile(networkdata):

return out

def justnum(string):

return out

def nospaces(string):

return out

# Process seismic data

# Get the list of seismometers from file and sort them

allStations = readFile(NETWORK_DATA) # changed to work with 2020 stations list from http://www.fdsn.org/networks/detail/AM/

# work out the distance of each seismometer from the epicentre and sort the list by distance from event

seismometers = [] # empty list of seismometers

for station in allStations:

if station[2] != "Latitude": # ignore the header line

distance = locations2degrees(EQLAT, EQLON, float(station[2]), float(station[3]))

if (distance <= MAX_DIST and distance >= MIN_DIST and station[0] not in EXCLUDE):

seismometers.append([station[0], round(float(station[2]),4), round(float(station[3]),4), round(distance,4)])

seismometers.sort(key = lambda i: i[3]) # Contains 'Code', Latitude, Longitude, distance (degrees), sort by distance

# read in seismic traces

waveform = Stream() # set up a blank stream variable

loaded = []

dist = 0 # record of how far away the next seismometer is that we are looking for

readit = False # flag to say that we have successfully read the data

loaded_stations = [] # list of stations successfully loaded

filtertext1 = ""

filtertext2 = ""

geolocator = Nominatim(user_agent="Raspberry Shake section plotter") # tool for getting place names

fp = open(FILE_STEM+"_stations.txt", "w")

for station in seismometers:

distAB, azAB, azBA = gps2dist_azimuth(station[1], station[2], EQLAT, EQLON) # Station dist in m from epicentre

if station[0] == STATION or ((not((station[3] > STA_DIST-STEP) and (station[3] < STA_DIST+STEP))) and station[3] >= dist):

# read in Raspberry Shake

# Use file if it is there

try:

fileflag = "N"

infile = "../" + FILE_STEM + "/"+station[0]+".mseed"

invfile = "../" + FILE_STEM + "/"+station[0]+".xml"

errfile = "../"+FILE_STEM+"/"+station[0]+".error"

if path.isfile(infile) and path.isfile(invfile):

if path.getsize(infile) > 0 and path.getsize(invfile) > 0:

st = read(infile)

inventory = read_inventory(invfile)

fileflag = "F"

except:

print("Failed to read file")

# If file has not been loaded and there is no error file, download data

if fileflag == "N" and not path.isfile(errfile):

try:

# Download and filter data

st = client.get_waveforms(NETWORK, station[0], "00", CHANNEL, starttime=START_TIME-BUFFER, endtime=START_TIME+TDOWNLOAD+BUFFER,attach_response=True)

inventory = read_inventory('https://fdsnws.raspberryshakedata.com/fdsnws/station/1/query?network=AM&station=%s&level=resp&format=xml&nodata=404&starttime=%s' % (station[0], str(START_TIME)))

fileflag = "D"

st.merge(method=0, fill_value='latest')

st.write(infile, format='MSEED')

inventory.write(invfile, format="STATIONXML")

except:

print("Failed to download trace " + station[0])

# in the case that either a file has been loaded or trace downloaded

if fileflag != "N":

try:

st.detrend(type='demean')

pre_filt = [0.001, 0.005, 45, 50]

st.remove_response(inventory=inventory, pre_filt=pre_filt,output=RESP,water_level=60,taper=True)#, plot=True)

if station[3] <= 50:

st.filter('bandpass', freqmin=F1, freqmax=F2)

filtertext1 = "Bandpass Filter: freqmin="+str(F1)+", freqmax="+str(F2)+" at up to 50 degrees."

else:

st.filter('bandpass', freqmin=F3, freqmax=F4)

filtertext2 = "Bandpass Filter: freqmin="+str(F3)+", freqmax="+str(F4)+" at greater than 50 degrees."

st.decimate(DECIMATION)

test = st.slice(START_TIME, END_TIME)

if len(test[0]) > 0:

if station[0] == STATION: # make an additional copy to blacken plot

waveform += st.slice(START_TIME, END_TIME)

loaded_stations.append(station)

loaded.append(station)

sta_x = len(loaded_stations)-1

found_home = True

waveform += st.slice(START_TIME, END_TIME)

outstring = str(station[1])+"\t"+str(station[2])+"\t"+str(station[3])+"\t"+str(abs(waveform[-1].max()))+"\t"+ station[0]+ "\t"+str( distAB)+ "\t"+str( azAB) + "\t" +str( azBA) + "\n"

fp.write(outstring)

print(fileflag + "\t" + outstring, end="")

readit = True

except:

print("Failed to remove response " + station[0])

else:

readit = False

if readit == False:

ef = open(errfile, "w")

ef.write("Error reading file")

ef.close()

if readit == True:

# locate the seismometer and add this to the station record

try:

location = geolocator.reverse(str(station[1]) + ", " + str(station[2]))

address_list = location.address.split(",")

if len(address_list) > 4:

address = ",".join(address_list[-1*(len(address_list)-2):]).strip() # remove the two most specific parts

else:

address = ",".join(address_list[:]).strip() # use the whole address

except:

address = "Unknown"

station.append(address)

loaded_stations.append(station)

loaded.append(station) # Add the details of loaded seismometers to the loaded list

readit = False

if dist <= station[3]:

dist = station[3] + STEP

fp.close()

if len(waveform) == len(loaded_stations):

# add station details to the waveforms and print out the details for interest

opfile = open(nospaces(FILE_STEM)+'-Stations.txt', "w")

for y in range(len(waveform)):

waveform[y].stats["coordinates"] = {} # add the coordinates to the dictionary, needed for the section plot

waveform[y].stats["coordinates"]["latitude"] = loaded_stations[y][1]

waveform[y].stats["coordinates"]["longitude"] = loaded_stations[y][2]

waveform[y].stats["distance"] = loaded_stations[y][3]

# Set the abbreviated name of the location in the network field for the plot title

waveform[y].stats.network = NETWORK

waveform[y].stats.station = loaded_stations[y][0]

waveform[y].stats.location = loaded_stations[y][4]

waveform[y].stats.channel = CHANNEL

#

ptime = -999

trmax = 0

first_arrival = model.get_travel_times(source_depth_in_km=EQZ,distance_in_degree=loaded_stations[y][3], phase_list=['P'])

if len(first_arrival) > 0:

instring = str(first_arrival[0])

phaseline = instring.split(" ")

if phaseline[0] == "P":

ptime = float(phaseline[4])

tr = waveform[y].copy()

tr.trim(starttime=START_TIME+ptime-WINDOW, endtime=START_TIME+ptime+WINDOW)

trmax = tr.max()

# opfile.write("--------------------------------------------------------------------------------------------------------\n")

try:

opfile.write(str(y) + ", " + loaded_stations[y][0] + ", Lat, " + str(loaded_stations[y][1]) + ", Lon, " + str(loaded_stations[y][2]) + ", Dist, " +

str(loaded_stations[y][3]) + ", degrees " + ", Max, " + str(trmax) + ", Address, " + loaded_stations[y][4] + "\n")

except:

opfile.write(str(y) + ", " + loaded_stations[y][0] + ", Lat, " + str(loaded_stations[y][1]) + ", Lon, " + str(loaded_stations[y][2]) + ", Dist, " +

str(loaded_stations[y][3]) + ", degrees " + " Max, " + str(trmax) + ", Address, Not writable \n")

print("--------------------------------------------------------------------------------------------------------")

print(loaded_stations[y][0], "Lat:", loaded_stations[y][1], "Lon:", loaded_stations[y][2], "Dist:",

loaded_stations[y][3], "degrees, Address:", loaded_stations[y][4])

print("\n", waveform[y].stats, "\n")

opfile.close()

# Create the section plot..

fig = plt.figure(figsize=FIG_SIZE, dpi=DPI)

plt.title('Section plot for '+FILE_STEM+' '+EQTIME+" lat:"+str(EQLAT)+" lon:"+str(EQLON), fontsize=12, y=1.07)

# set up the plot area

plt.xlabel("Angle (degrees)")

plt.ylabel("Elapsed time (seconds)")

plt.suptitle("Modelled arrival times for phases using " + MODEL + " with a focal depth of " + str(EQZ) + "km", fontsize=10)

# plot the waveforms

waveform.plot(size=PLOT_SIZE, type='section', recordlength=DURATION, linewidth=1.5, grid_linewidth=.5, show=False, fig=fig, color='black', method='full', starttime=START_TIME, plot_dx=ANGLE_DX, ev_coord = EQLATLON, dist_degree=True, alpha=0.50, time_down=True)

ax = fig.axes[0]

transform = blended_transform_factory(ax.transData, ax.transAxes)

for tr in waveform:

ax.text(float(tr.stats.distance), 1.0, tr.stats.station, rotation=270,

va="bottom", ha="center", transform=transform, zorder=10, fontsize=8)

# Add the local station name in red

if found_home == True:

ax.text(float(waveform[sta_x].stats.distance), 1.0, waveform[sta_x].stats.station, rotation=270,

va="bottom", ha="center", transform=transform, zorder=10, fontsize=8, color = 'red')

# print out the filters that have been used

plt.text(1, DURATION *1.05, filtertext1)

plt.text(1, DURATION *1.07, filtertext2)

# Print the coloured phases over the seismic section

textlist = [] # list of text on plot, to avoid over-writing

for j, phase in enumerate(PHASES):

color = COLORS[PHASES.index(phase) % len(COLORS)]

x=[]

y=[]

for dist in range(MIN_DIST, MAX_DIST+1, 1): # calculate and plot one point for each degree from 0-180

arrivals = model.get_travel_times(source_depth_in_km=EQZ,distance_in_degree=dist, phase_list=[phase])

printed = False

for i in range(len(arrivals)):

instring = str(arrivals[i])

phaseline = instring.split(" ")

if phaseline[0] == phase and printed == False and int(dist) > 0 and int(dist) < 180 and float(phaseline[4])>0 and float(phaseline[4])<DURATION:

x.append(int(dist))

y.append(float(phaseline[4]))

printed = True

if PHASE_PLOT == "spots":

plt.scatter(x, y, color=color, alpha=0.1, s=0.1)

else:

plt.plot(x, y, color=color, linewidth=0.3, linestyle='solid', alpha=0.1)

if len(x) > 0 and len(y) > 0: # this function prevents text being overwritten

plottext(x[0], y[0], phase, 'top', 'right', color, textlist)

plottext(x[len(x)-1], y[len(y)-1], phase, 'top', 'left', color, textlist)

# Add the inset picture of the globe at x, y, width, height, as a fraction of the parent plot

ax1 = fig.add_axes([0.63, 0.48, 0.4, 0.4], polar=True)

# Plot all pre-determined phases

for phase, distance in GLOBE_PHASES:

arrivals = model.get_ray_paths(EQZ, distance, phase_list=[phase])

ax1 = arrivals.plot_rays(plot_type='spherical',

legend=False, label_arrivals=False,

plot_all=True, phase_list = PHASES,

show=False, ax=ax1)

# Annotate regions of the globe

ax1.text(0, 0, 'Solid\ninner\ncore',

horizontalalignment='center', verticalalignment='center',

bbox=dict(facecolor='white', edgecolor='none', alpha=0.7))

ocr = (model.model.radius_of_planet -

(model.model.s_mod.v_mod.iocb_depth +

model.model.s_mod.v_mod.cmb_depth) / 2)

ax1.text(np.deg2rad(180), ocr, 'Fluid outer core',

horizontalalignment='center',

bbox=dict(facecolor='white', edgecolor='none', alpha=0.7))

mr = model.model.radius_of_planet - model.model.s_mod.v_mod.cmb_depth / 2

ax1.text(np.deg2rad(180), mr, 'Solid mantle',

horizontalalignment='center',

bbox=dict(facecolor='white', edgecolor='none', alpha=0.7))

rad = model.model.radius_of_planet*1.15

for phase in GLOBE_PHASES:

ax1.text(np.deg2rad(phase[1]), rad, phase[0],

horizontalalignment='center',

bbox=dict(facecolor='white', edgecolor='none', alpha=0))

# Save the plot to file, then print to screen

plt.savefig(nospaces(FILE_STEM)+'-R21C3-Section.png')

plt.show()

# report an error if the number of seismometers does not match the number of waveforms

else:

print("Number of waveforms does not match number of seismometers, a seismometer may not have data in the required range")

print(len(waveform), "waveforms", len(seismometers), "seismometers")