![]() |
SPEED
|
Go to the source code of this file.
Functions/Subroutines | |
subroutine | make_seismic_moment (nn, ct, ww, dd, sxx, syy, szz, syz, szx, sxy, nl_sism, check_ns, check_dist_ns, length_cns, ielem, facsmom, tausmom, func_type, func_indx, func_data, nfdata, nf, t |
Creates the seismic moment tensor. | |
subroutine make_seismic_moment | ( | integer*4 | nn, |
real*8, dimension(nn) | ct, | ||
real*8, dimension(nn) | ww, | ||
real*8, dimension(nn,nn) | dd, | ||
real*8, dimension(nn,nn,nn) | sxx, | ||
real*8, dimension(nn,nn,nn) | syy, | ||
real*8, dimension(nn,nn,nn) | szz, | ||
real*8, dimension(nn,nn,nn) | syz, | ||
real*8, dimension(nn,nn,nn) | szx, | ||
real*8, dimension(nn,nn,nn) | sxy, | ||
integer*4 | nl_sism, | ||
integer*4, dimension(length_cns,4) | check_ns, | ||
real*8, dimension(length_cns,1) | check_dist_ns, | ||
integer*4 | length_cns, | ||
integer*4 | ielem, | ||
real*8, dimension(nl_sism,6) | facsmom, | ||
real*8, dimension(nl_sism,1) | tausmom, | ||
integer*4, dimension(nf) | func_type, | ||
integer*4, dimension(nf +1) | func_indx, | ||
real*8, dimension(nfdata) | func_data, | ||
integer*4 | nfdata, | ||
integer*4 | nf, | ||
t | |||
) |
Creates the seismic moment tensor.
[in] | nn | number of 1-D GLL nodes |
[in] | xq | GLL nodes |
[in] | wq | GLL weights |
[in] | dd | spectral derivatives matrix |
[in] | nl_sism | number of sismic loads |
[in] | length_cns | length of check_ns |
[in] | check_ns | info about sismic load |
[in] | check_dist_ns | distance from epicenter |
[in] | ielem | element index |
[in] | facsmom | seismic moment factor |
[in] | tausmom | rise time factor |
[in] | number | of fuctions |
[in] | func_type | function types |
[in] | func_indx | function indixes for function data |
[in] | func_data | function data |
[in] | t_stress | time |
[in] | cs_nnz | length of cs |
[in] | cs | spectral connectivity vector |
[in] | tag_func | functin label |
[in] | nelem_loc | number of local elements |
[in] | local_el_num | local element numeration |
[in] | nn_loc | number of local nodes |
[in] | local_n_num | local node numeration |
[in,out] | sxx | nodal values for the stress tensor |
[in,out] | syy | nodal values for the stress tensor |
[in,out] | szz | nodal values for the stress tensor |
[in,out] | syz | nodal values for the stress tensor |
[in,out] | szx | nodal values for the stress tensor |
[in,out] | sxy | nodal values for the stress tensor |
Definition at line 53 of file MAKE_SEISMIC_MOMENT.f90.
References get_func_value_sism().