R: Read Harvard CMT moment

readCMT {RFOC} | R Documentation

## Read Harvard CMT moment

### Description

Read and plot a CMT solution copied from the Harvard CMT website.

### Usage

    readCMT(filename, PLOT=TRUE)

### Arguments

`filename` | character, file name
`PLOT` | Logical, TRUE=plot mechanisms sequentially

### Details

Uses the standard output format.

### Value

List of mechanisms and graphical Side effects. Each element in the list consists of a list including: FIRST,yr,mo,dom,hr,mi,sec,name,tshift,half,lat,lon,z,Mrr,Mtt,Mpp,Mrt,Mrp,Mtp. The FIRST element is simply a duplicate of the PDE solution card.

### Note

Other formats are available.

### Author(s)

Jonathan M. Lees<jonathan.lees@unc.edu>

### References

Ekstrom, G.; Nettles, M. and DziewoDski, A. The Global CMT Project 2004-2010: centroid-moment tensors for 13,017 earthquakes Physics of the Earth and Planetary Interiors, 2012.

### See Also

doNonDouble, MapNonDouble

### Examples

    ## Not run:
    Hcmt = readCMT("CMT_FULL_FORMAT.txt")

    ########  or,

    Hcmt = readCMT("CMT_FULL_FORMAT.txt", PLOT=FALSE)

     moments = matrix(ncol=7, nrow=length(Hcmt))
    Locs = list(y=vector(length=length(Hcmt)) ,x=vector(length=length(Hcmt)))

    for(i in 1:length(Hcmt))
    {
    P1 = Hcmt[[i]]
    #########  Note the change of sign for cartesian coordinates
     moments[i,] = cbind(i, P1$Mtt, P1$Mpp, P1$Mrr,
            -P1$Mrp, P1$Mrt ,-P1$Mtp)
    Locs$y[i] = P1$lat
    Locs$x[i] = P1$lon

    }

    mlon = mean(Locs$x, na.rm=TRUE)
    mlat = mean(Locs$y, na.rm=TRUE)

    PROJ =  GEOmap::setPROJ(type = 1, LAT0 = mlat , LON0 = mlon)
    Glocs = GEOmap::GLOB.XY(Locs$y, Locs$x, PROJ       )

    LIMlat = expandbound(Locs$y)
    LIMlon = expandbound(Locs$x)

    PLAT =  pretty(LIMlat)
     PLON  = pretty(LIMlon)

    data(worldmap)
    par(xpd=FALSE)

    plotGEOmapXY(worldmap, LIM = c(LIMlon[1],LIMlat[1] ,LIMlon[2],LIMlat[2]) ,
                 PROJ=PROJ, axes=FALSE, xlab="", ylab="" )

    ### add tic marks
    kbox = GEOmap::GLOB.XY(PLAT,PLON, PROJ)

          sqrTICXY(kbox , PROJ, side=c(1,2,3,4), LLgrid=TRUE, col=grey(.7) )

    ########  add focal mechs

    MapNonDouble(Glocs, moments, col=NULL, add=TRUE)

    ## End(Not run)

[Package RFOC version 3.4-3 Index]