Register
Login
Resources
Docs Blog Datasets Glossary Case Studies Tutorials & Webinars
Product
Data Engine LLMs Platform Enterprise
Pricing Explore
Connect to our Discord channel

fields.sh 4.3 KB

You have to be logged in to leave a comment. Sign In
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
  1. #!/usr/bin/env bash
  2. #
  3. # Compute FAA, VGG, and geoid over synthetic seamount
  4. ps=fields.ps
  5. order=2
  6. dx=1
  7. gmt set GMT_FFT kiss
  8. function Ugly {
  9. # sub-function for integral I (z, b, c)
  10. z=$1
  11. b=$2
  12. c=$3
  13. beta2=$(gmt math -Q 1.0 $b $b MUL ADD =)
  14. beta=$(gmt math -Q $beta2 SQRT =)
  15. beta3=$(gmt math -Q $beta2 $beta MUL =)
  16. P1=$(gmt math -Q $z $z MUL 2 $b MUL $c MUL $z MUL $c $c MUL ADD $beta2 DIV ADD SQRT $beta DIV =)
  17. P2=$(gmt math -Q $z $b $c MUL $beta2 ADD DIV $z $z MUL 2 $b MUL $c MUL $z MUL $c $c MUL ADD $beta2 DIV ADD SQRT ADD LOG =)
  18. gmt math -Q $z $P1 SUB $b $c MUL $P2 MUL $beta3 DIV ADD =
  19. # v = z - sqrt (z * z + (2.0 * b * c * z + c * c) / beta2) / beta + ...
  20. # b * c * log (z + b * c / beta2 + sqrt (z * z + (2.0 * b * c * z + c * c) / beta2)) / beta3;
  21. # = z - P1 + b *c * P2 / beta3
  22. }
  23. # 2 panels of topo and grav, with top profile of admittance & coherence
  24. # NOT FINISHED
  25. # 1. Create a bathymetry data set with one circular truncated seamount
  26. # as in Fig 3. of Marks & Smith, 2007 [GRL], with R_base = 35 km,
  27. # R_top = 10 km, height = 3751 m, depth = -5084 m, density d_rho = 2800-1030
  28. # = 1670 kg/m^3, so the flattening is 10/25 = 0.4.
  29. echo "0 0 25 3751" | gmt grdseamount -R-256/256/-256/256 -I$dx -r -C -Gsmt.nc -F0.4 -Z-5084
  30. # BL Plot the bathymetry
  31. gmt makecpt -Crainbow -T-5100/-1000 > t.cpt
  32. gmt grdimage smt.nc -R-100/100/-100/100 -JX3i -P -Bag -BWSne -Ct.cpt -K > $ps
  33. gmt grdtrack -Gsmt.nc -ELM/RM+d > smt.trk
  34. gmt psxy -R -J -O -K -W5p,white smt.trk >> $ps
  35. gmt psxy -R -J -O -K -W1p smt.trk >> $ps
  36. echo "-100 100 BATHYMETRY" | gmt pstext -R -J -O -K -F+jTL+f14p -Dj0.1i -Gwhite -C+tO >> $ps
  37. # 2. Compute the VGG anomaly
  38. gmt gravfft smt.nc+uk -D1670 -Nf+a -Fv -E$order -Gvgg.nc
  39. # BR plot the VGG anomaly
  40. gmt makecpt -Crainbow -T-50/250 > t.cpt
  41. gmt grdimage vgg.nc -R-100/100/-100/100 -JX3i -O -Bag -BwSne -Ct.cpt -K -X3.5i >> $ps
  42. gmt grdtrack -Gvgg.nc -ELM/RM+d > vgg.trk
  43. gmt psxy -R -J -O -K -W5p,white vgg.trk >> $ps
  44. gmt psxy -R -J -O -K -W1p,blue vgg.trk >> $ps
  45. echo "-100 100 VGG" | gmt pstext -R -J -O -K -F+jTL+f14p -Dj0.1i -Gwhite -C+tO >> $ps
  46. # 3. Compute the FAA anomaly
  47. gmt gravfft smt.nc+uk -D1670 -Nf+a -Ff -E$order -Gfaa.nc
  48. # Compute the exact analytical result for peak amplitude at center
  49. r0=10000
  50. z0=$(gmt math -Q 5084 3751 SUB =)
  51. r1=35000
  52. z1=5084
  53. rho=$(gmt math -Q 2800 1030 SUB =)
  54. b=$(gmt math -Q $r1 $r0 SUB $z1 $z0 SUB DIV =)
  55. c=$(gmt math -Q $r0 $b $z0 MUL SUB =)
  56. I1=$(Ugly $z1 $b $c)
  57. I2=$(Ugly $z0 $b $c)
  58. gmax=$(gmt math -Q 2 PI MUL 6.673e-6 MUL $rho MUL $I1 $I2 SUB MUL =)
  59. echo "Max FAA should be $gmax mGal"
  60. # ML plot the FAA anomaly
  61. gmt makecpt -Crainbow -T-50/250 > t.cpt
  62. gmt grdimage faa.nc -R-100/100/-100/100 -JX3i -O -Bag -BWsne -Ct.cpt -K -X-3.5i -Y3.25i >> $ps
  63. gmt grdtrack -Gfaa.nc -ELM/RM+d > faa.trk
  64. gmt psxy -R -J -O -K -W5p,white faa.trk >> $ps
  65. gmt psxy -R -J -O -K -W1p,red faa.trk >> $ps
  66. echo "-100 100 FAA" | gmt pstext -R -J -O -K -F+jTL+f14p -Dj0.1i -Gwhite -C+tO >> $ps
  67. # 4. Compute the geoid anomaly
  68. gmt gravfft smt.nc+uk -D1670 -Nf+a -Fg -E$order -Ggeoid.nc
  69. # MR plot the VGG anomaly
  70. gmt makecpt -Crainbow -T0/5 > t.cpt
  71. gmt grdimage geoid.nc -R-100/100/-100/100 -JX3i -O -Bag -Bwsne -Ct.cpt -K -X3.5i >> $ps
  72. gmt grdtrack -Ggeoid.nc -ELM/RM+d > geoid.trk
  73. gmt psxy -R -J -O -K -W5p,white geoid.trk >> $ps
  74. gmt psxy -R -J -O -K -W1p,orange geoid.trk >> $ps
  75. echo "-100 100 GEOID" | gmt pstext -R -J -O -K -F+jTL+f14p -Dj0.1i -Gwhite -C+tO >> $ps
  76. # 5 Plot crossections of bathy and faa crossections
  77. # TL plot the bathy and faa canomaly
  78. gmt psxy -R-100/100/-5100/1000 -JX3i/2.5i -O -K -W1p -i0,3 smt.trk -Baf -BWsN -X-3.5i -Y3.2i >> $ps
  79. echo "-100 1000 TOPO" | gmt pstext -R -J -O -K -F+jTL+f12p -Dj0.1i/0.15i >> $ps
  80. gmt psxy -R-100/100/-50/250 -J -O -K -W1p,red -i0,3 faa.trk -Bafg1000 -BENs >> $ps
  81. gmt psxy -R -J -O -K -W0.5p,- << EOF >> $ps
  82. -100 $gmax
  83. +100 $gmax
  84. EOF
  85. echo "100 250 FAA" | gmt pstext -R -J -O -K -F+jTR+f12p,Helvetica,red -Dj0.1i/0.15i >> $ps
  86. # Add VGG and geoid crossections
  87. # TRL plot the VGG and geoid anomaly
  88. gmt psxy -R-100/100/-50/250 -JX3i/2.5i -O -K -W1p,blue -i0,3 vgg.trk -Bafg1000 -BwsN -X3.5i >> $ps
  89. echo "-100 250 VGG" | gmt pstext -R -J -O -K -F+jTL+f12p,Helvetica,blue -Dj0.1i >> $ps
  90. gmt psxy -R-100/100/0/4 -J -O -K -W1p,orange -i0,3 geoid.trk -Baf -BE >> $ps
  91. echo "100 4 GEOID" | gmt pstext -R -J -O -K -F+jTR+f12p,Helvetica,orange -Dj0.1i >> $ps
  92. gmt psxy -R -J -O -T >> $ps
Tip!

Press p or to see the previous file or, n or to see the next file

Comments

Loading...