-
Notifications
You must be signed in to change notification settings - Fork 0
Expand file tree
/
Copy pathFun_RebuildGreenModel.m
More file actions
27 lines (23 loc) · 1.15 KB
/
Copy pathFun_RebuildGreenModel.m
File metadata and controls
27 lines (23 loc) · 1.15 KB
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
% =========================================================================
% Rebuild Green's functions after the fault grid has been updated.
%
% Important:
% This function only rebuilds Green's functions
% It must not reprocess observations because 'ob' has already been
% baseline-corrected, rearranged, and integrated into displacement
% =========================================================================
function [g, locasub, locadep, muSubfault]=Fun_RebuildGreenModel( ...
PATHg, SDR, grid, gridsize, source, loca, epicenter, ...
srate, IndexEQ, index, depth, dataVelFolder, nTime)
% Read raw Green's functions for the updated fault geometry
[gRaw, locasub, locadep]=ids_getg( ...
PATHg, SDR, grid, gridsize, source, loca, ...
epicenter, srate, IndexEQ, index, depth);
% Number of stations is fixed after station screening
nsta=size(loca,1);
% Convert raw velocity Green's functions to formatted displacement Green's
% functions
g=Fun_SetGreenModel3(gRaw, nsta, grid, srate, nTime);
% Apply the new depth-dependent shear-modulus correction
[g, muSubfault]=Fun_SetGreenModel4(g, locadep, dataVelFolder, grid);
end