-
Notifications
You must be signed in to change notification settings - Fork 0
/
module.f90
159 lines (139 loc) · 6.94 KB
/
module.f90
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
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
!
! module.f90
! MarsInversion
!
! Created by fuji on 04/12/2019.
! Copyright 2019 nfuji. All rights reserved.
!
module mainparameters
implicit none
integer :: mtcomp,jmtcomp,kmtcomp
integer ::icomp,iWindow,it,jjj
integer :: iConfiguration,kConfiguration,iMovingWindowStep
integer :: iloop,jloop,kloop
integer :: iBig,kBig,iBigEquivalent,kBigEquivalent
real(kind(0d0)), allocatable :: taperDSM(:),taperOBS(:)
real(kind(0d0)), allocatable :: northTemp(:),eastTemp(:)
real(kind(0d0)), allocatable :: GreenArray(:,:,:),GreenArrayShifted(:,:,:),GreenArrayShiftedTapered(:,:,:)
real(kind(0d0)), allocatable :: GreenArrayK(:,:,:)
real(kind(0d0)), allocatable :: obsArray(:,:),obsRawArray(:,:)
real(kind(0d0)), allocatable :: modArray(:,:),modRawArray(:,:),modArray_total(:,:),modArray_local(:,:)
real(kind(0d0)), allocatable :: filtbefore(:),filtafter(:)
real(kind(0d0)) :: xfwin
real(kind(0d0)), allocatable :: ata(:,:),atd(:),ata_nondiagonal(:,:)!,atainv(:,:)
real(kind(0d0)) :: ataFive(5,5),atdFive(5)
real(kind(0d0)), allocatable :: mtInverted(:,:,:),mtInverted_total(:),mtInverted_local(:)
real(kind(0d0)), allocatable :: mtInverted_total_previous_iteration(:),mtInverted_local_previous_iteration(:)
real(kind(0e0)), allocatable :: mtInverted_total_single(:)
real(kind(0d0)), allocatable :: misfitTaper(:,:,:)
real(kind(0d0)), allocatable :: misfitRaw(:,:,:)
character(200) :: list,tmpfile ! synfile,tmpfile,
!real(kind(0d0)) :: dummyFloat
real(kind(0d0)), allocatable :: varZ(:,:),varN(:,:),varE(:,:)
real(kind(0d0)), allocatable :: modZ(:,:),modN(:,:),modE(:,:)
real(kind(0d0)), allocatable :: varRawZ(:,:),varRawN(:,:),varRawE(:,:)
real(kind(0d0)), allocatable :: modRawZ(:,:),modRawN(:,:),modRawE(:,:)
real(kind(0d0)), allocatable :: xcorrZ(:,:),xcorrN(:,:),xcorrE(:,:)
real(kind(0d0)), allocatable :: xcorrRawZ(:,:), xcorrRawN(:,:), xcorrRawE(:,:)
real(kind(0d0)) :: normaliseModZ,normaliseModRawN,normaliseModE,normaliseModRawZ,normaliseModN,normaliseModRawE
complex(kind(0d0)), allocatable :: rsgtomegatmp(:,:)
real(kind(0d0)) :: variance_total(3),xcorr_total(3),ampsq_total(3,0:1)
real(kind(0e0)) :: tmpfloat(4) ! single precision vectors for input
real(kind(0d0)) :: distanceKm
integer :: lIteration
integer, parameter :: NumberIteration=3 ! iteration number for Jacobi method
end module mainparameters
module parameters
implicit none
!real(kind(0d0)), parameter :: pi=3.1415926535897932d0
integer :: npButterworth
real(kind(0d0)) :: fmin,fmax
real(kind(0d0)) :: eps=1.d-5 ! tolerance during MT inversion
integer :: nmt
!integer :: npDSM ! integer length of synthetics (to be considered)
integer :: npData ! integer length of observed
integer :: ntStep
real(kind(0d0)) :: dt, tlenData ! tlenDSM
real(kind(0d0)), allocatable :: twin(:,:),twinObs(:,:)
real(kind(0d0)) :: movingWindowStep
integer :: NmovingWindowDimension
integer, allocatable :: itwin(:,:)
integer, allocatable :: itwinObs(:,:)
integer :: ntwin,ntwinObs
real(kind(0d0)), allocatable :: fMovingWindowStart(:), fMovingWindowEnd(:), fEachShift(:,:)
integer, allocatable :: iMovingWindowStart(:),iMovingWindowEnd(:)
integer, allocatable :: totalNumberInWindowDimension(:)
integer :: nTimeCombination
real(kind(0d0)) :: Mij_synthetic(1:6)
integer, allocatable :: iEachWindowStart(:,:), iEachWindowEnd(:,:)
real(kind(0d0)) :: toleranceDistance
character(200) :: inversionMode
character(200), allocatable :: filenames(:)
real(kind(0d0)), allocatable :: obsRaw(:,:), obsFilt(:,:),obsFiltTapered(:,:),obsFiltTaperedRotated(:,:)
integer :: calculMode ! 0=normal; 1=filter and stop
character(200) :: workingDir
character(200) :: resultDir
character(200) :: inversionName
integer :: nConfiguration ! The number of configurations (source location in 3D space, model)
real(kind(0d0)), allocatable :: conf_depth(:),conf_lat(:),conf_lon(:),conf_gcarc(:),conf_azimuth(:)
character(200) :: SGTinfo
character(200) :: ZRTorZNE
character(200) :: parentDir
character(200) :: eventName
character(200) :: stationName
real(kind(0d0)) :: stla,stlo
character(200) :: INFO_TSGT,INFO_RSGT,rsampletxt,modelcard
character(200) :: Poutputdir,psvmodel,modelname,DSMconfFile
integer :: imin,imax,maxlmax
real(kind(0d0)) :: omegai
real(kind(0d0)) :: r0delta,r0max,r0min,ratc,ratl,rdelta_,re,rmax_,rmin_
integer :: rsgtswitch,synnswitch,tsgtswitch
real(kind(0d0)) :: thetadelta,thetamax,thetamin
!real(kind(0d0)), parameter :: phimin=0.d0
!real(kind(0d0)), parameter :: phimax=0.d0
!real(kind(0d0)), parameter :: phidelta=1.d0
real(kind(0d0)) :: tlenFull
integer :: r_n, theta_n,phi_n,iWindowStart,iWindowEnd,lsmooth,np0,np1
integer :: iConfTheta,iConfPhi,iConfR
integer :: kConfTheta, kConfPhi, kConfR ! for a big ata
real(kind(0d0)), allocatable :: r_(:),thetaD(:),phiD(:),omega(:)
real(kind(0d0)) :: dtn,start,end,samplingHz
end module parameters
module tmpSGTs
implicit none
! in frequency domain
complex(kind(0d0)), allocatable :: rsgtF(:,:)
complex(kind(0d0)), allocatable :: h3(:,:),h4(:,:)
complex(kind(0d0)), allocatable :: rsgtomega(:,:,:),rsgtomegaK(:,:,:),rsgtomegaI(:,:,:)
complex(kind(0d0)), allocatable :: u_freq(:)
! in time domain
real(kind(0d0)), allocatable :: t(:),rsgtTime(:,:),rsgtTimeK(:,:),u0(:,:),v(:),v0(:,:),hu(:),hu0(:,:)
real(kind(0d0)), allocatable :: fwin(:,:)
integer, allocatable :: nt1(:),nt2(:)
real(kind(0d0)), allocatable :: denomv(:),denomu(:),coeff(:,:,:,:),coeffV(:,:)
integer, parameter :: num_rsgtPSV=10
integer, parameter :: num_rsgtSH=5
integer, parameter :: num_rsgt=10
real(kind(0d0)), allocatable :: tmparray(:,:,:)
end module tmpSGTs
module angles
implicit none
!real(kind(0d0)), allocatable :: phi00(:),phi0(:),theta0(:)
integer :: ntheta,nphi,nr
real(kind(0d0)), allocatable :: phitheta(:,:),thetaphi(:,:)
real(kind(0d0)), allocatable :: latgeo(:,:), longeo(:,:)
real(kind(0d0)), allocatable :: phi(:,:), theta(:,:)
real(kind(0d0)), allocatable :: crq(:,:),srq(:,:),crq2(:,:),srq2(:,:),cqr(:,:),sqr(:,:)
!real(kind(0d0)), allocatable :: csq(:,:),ssq(:,:),csq2(:,:),ssq2(:,:)
!real(kind(0d0)), allocatable :: cqs(:,:),sqs(:,:),cqs2(:,:),sqs2(:,:)
real(kind(0d0)), allocatable :: deltar(:,:),deltas(:,:)
real(kind(0d0)) :: slat,slon,sdep,rlat,rlon
real(kind(0d0)) :: gcarcmin,gcarcmax,dgcarc,azimuthmin,azimuthmax,dazimuth
real(kind(0d0)) :: radiusmin,radiusmax,dradius
real(kind(0d0)), allocatable :: gcarc(:), azimuth(:),radius(:)
integer,allocatable :: ithetaD(:), iradiusD(:)
!real(kind(0d0)) :: pi=4.d0*datan(1.d0)
real(kind(0d0)), parameter :: pi=3.1415926535897932d0
real(kind(0d0)) :: radian2degree=180.d0/pi
real(kind(0d0)) :: degree2radian=pi/180.d0
end module angles