harntl - nicolob/pep-full GitHub Wiki
Type: subroutine
Defined in: harntl.f
Definition: subroutine HARNTL(nplnt, zhar, char, shar, nzone, ntess)
earth's gravitational field's tesseral
harmonics derived from a combination of
satellite data with gravity anomalies-
smithsonian astrophysical observatory special report no.353
1973 smithsonian standard earth (iii), edited by e.m.
gaposchkin, pp.290-293
only harmonics corresponding to nzone=20,ntess=10
are brought in here for initialization. although
model has been increased to a maximum
capacity of nzone=25,ntess=20
if a priori values for the higher order harmonics
are to be coded, the following specification &
equiv. statements must be enlarged to accomodate
them. (see bodred or bodntl to compare)
also, do loops 993 & 995 would have to be increased
s.brody 5/76 r.b. goldstein feb78
zonal harmonics are unnormalized, but tesserals are normalized to
four pi (for gravitational harmonics).
shape harmonics are all normalized to one, except that shape
harmonics (nplnt negative) might be fourier coefficients depending
on shape subroutines that are used in compar link.
j21 = -0.083E-6_10
j22 = 0.092E-6_10
j23 = 0.145E-6_10
j35 = -0.134E-6_10
j36 = 0.199E-6_10
c11( 1) = -1.2194E-08_10
s11( 1) = 7.5463E-08_10
c11( 2) = -2.0255E-08_10
s11( 2) = -6.2998E-08_10
c11( 3) = -1.0988E-09_10
s11( 3) = -3.8098E-08_10
c11( 4) = 1.5676E-08_10
s11( 4) = -1.9551E-07_10
c11( 5) = -1.8591E-09_10
s11( 5) = 6.1113E-08_10
c11( 6) = 6.3601E-08_10
s11( 6) = -2.6457E-08_10
c11( 7) = -3.3761E-08_10
s11( 7) = -1.2825E-07_10
c11( 8) = -1.3634E-08_10
s11( 8) = 4.5229E-08_10
c11( 9) = 2.1256E-08_10
s11( 9) = 6.6721E-08_10
c11(10) = 5.2555E-08_10
s11(10) = -7.7401E-08_10
c11(11) = 8.6996E-08_10
s11(11) = -2.5691E-08_10
c12( 1) = -5.6935E-08_10
s12( 1) = -6.6159E-08_10
c12( 2) = -9.7424E-08_10
s12( 2) = 4.6341E-08_10
c12( 3) = 1.1555E-07_10
s12( 3) = -4.8666E-08_10
c12( 4) = -5.0379E-08_10
s12( 4) = 5.3568E-08_10
c12( 5) = 8.1834E-08_10
s12( 5) = 2.7932E-08_10
c12( 6) = -2.1177E-08_10
s12( 6) = 3.5034E-08_10
c12( 7) = 2.9751E-08_10
s12( 7) = 3.1783E-08_10
c12( 8) = 4.0190E-08_10
s12( 8) = 5.6877E-08_10
c12( 9) = -1.1503E-07_10
s12( 9) = 1.4508E-08_10
c12(10) = -4.5921E-08_10
s12(10) = -4.3264E-08_10
c12(11) = -7.8443E-09_10
s12(11) = -4.7858E-08_10
c12(12) = -2.7617E-08_10
s12(12) = -1.6808E-08_10
c13( 1) = 8.6136E-09_10
s13( 1) = -3.2401E-08_10
c13( 2) = -1.0679E-08_10
s13( 2) = -9.0670E-08_10
c13( 3) = -3.2361E-08_10
s13( 3) = 4.9286E-08_10
c13( 4) = 3.9852E-08_10
s13( 4) = -1.0608E-07_10
c13( 5) = 4.0047E-08_10
s13( 5) = 3.8114E-08_10
c13( 6) = -2.1906E-08_10
s13( 6) = -1.1321E-08_10
c13( 7) = -7.6933E-08_10
s13( 7) = 1.1140E-08_10
c13( 8) = -2.7448E-09_10
s13( 8) = 1.4309E-08_10
c13( 9) = -1.1588E-08_10
s13( 9) = 7.2989E-08_10
c13(10) = 4.1979E-09_10
s13(10) = 7.6769E-09_10
c13(11) = -5.4381E-08_10
s13(11) = 1.3450E-08_10
c13(12) = -4.6633E-08_10
s13(12) = 7.9963E-08_10
c13(13) = -6.8944E-08_10
s13(13) = 7.1891E-08_10
c14( 1) = -1.4359E-08_10
s14( 1) = 5.2390E-08_10
c14( 2) = -1.5908E-08_10
s14( 2) = 2.7374E-08_10
c14( 3) = 9.6915E-08_10
s14( 3) = -2.5631E-08_10
c14( 4) = -2.9864E-08_10
s14( 4) = -3.8189E-09_10
c14( 5) = -1.3828E-09_10
s14( 5) = -5.8680E-08_10
c14( 6) = -1.3872E-08_10
s14( 6) = -2.7976E-08_10
c14( 7) = 7.1056E-08_10
s14( 7) = 2.4043E-09_10
c14( 8) = -1.8779E-08_10
s14( 8) = -5.8750E-08_10
c14( 9) = -2.4322E-08_10
s14( 9) = 6.0461E-08_10
c14(10) = 2.8985E-08_10
s14(10) = -3.4224E-08_10
c14(11) = 8.2611E-08_10
s14(11) = -1.9627E-09_10
c14(12) = 1.1751E-09_10
s14(12) = -3.0967E-08_10
c14(13) = 3.0793E-08_10
s14(13) = 4.7620E-08_10
c14(14) = -6.5969E-08_10
s14(14) = 3.3030E-09_10
c15( 1) = 2.9358E-08_10
s15( 1) = -1.6691E-08_10
c15( 2) = -1.2291E-08_10
s15( 2) = -6.8963E-08_10
c15( 3) = -5.8921E-08_10
s15( 3) = 4.4772E-08_10
c15( 4) = 1.4876E-08_10
s15( 4) = 7.0359E-09_10
c15( 5) = 3.6806E-08_10
s15( 5) = -8.4051E-09_10
c15( 6) = 1.0081E-08_10
s15( 6) = -3.0473E-08_10
c15( 7) = 3.0439E-08_10
s15( 7) = 1.5775E-08_10
c15( 8) = -6.8884E-08_10
s15( 8) = 6.0808E-08_10
c15( 9) = -4.5169E-08_10
s15( 9) = 5.5556E-08_10
c15(10) = 6.2126E-08_10
s15(10) = -7.1799E-09_10
c15(11) = -4.4724E-08_10
s15(11) = -3.4391E-09_10
c15(12) = -4.2025E-08_10
s15(12) = 5.9072E-09_10
c15(13) = -4.1654E-08_10
s15(13) = -5.5892E-09_10
c15(14) = 9.5654E-09_10
s15(14) = -2.7145E-08_10
c15(15) = -5.6358E-08_10
s15(15) = 3.4895E-08_10
c16( 1) = -9.9588E-09_10
s16( 1) = 5.4160E-08_10
c16( 2) = 5.5086E-09_10
s16( 2) = 4.9455E-08_10
c16( 3) = 5.4189E-08_10
s16( 3) = 5.4887E-09_10
c16( 4) = 4.6176E-08_10
s16( 4) = 3.6270E-08_10
c16( 5) = -2.4432E-08_10
s16( 5) = 2.9671E-08_10
c16( 6) = -3.7203E-09_10
s16( 6) = -2.0786E-08_10
c16( 7) = -2.2794E-09_10
s16( 7) = 3.0609E-09_10
c16( 8) = -1.0459E-07_10
s16( 8) = -4.4731E-08_10
c16( 9) = 2.4845E-08_10
s16( 9) = -8.6262E-08_10
c16(10) = -3.9928E-08_10
s16(10) = -4.5058E-09_10
c16(11) = -2.0848E-08_10
s16(11) = 2.9738E-08_10
c16(12) = 1.5930E-08_10
s16(12) = -1.2703E-08_10
c16(13) = 2.5280E-08_10
s16(13) = 6.6240E-09_10
c16(14) = -1.4852E-08_10
s16(14) = -8.1713E-09_10
c16(15) = -7.7425E-08_10
s16(15) = -2.6491E-08_10
c16(16) = -1.8538E-08_10
s16(16) = -2.2310E-08_10
c17( 1) = 8.6593E-09_10
s17( 1) = -4.1093E-08_10
c17( 2) = -9.0769E-09_10
s17( 2) = -2.7205E-08_10
c17( 3) = -7.7864E-09_10
s17( 3) = -1.7913E-08_10
c17( 4) = -4.3231E-08_10
s17( 4) = 6.8203E-08_10
c17( 5) = 4.1513E-08_10
s17( 5) = -2.5453E-08_10
c17( 6) = -4.5453E-08_10
s17( 6) = -1.7273E-08_10
c17( 7) = 1.6938E-08_10
s17( 7) = -3.3752E-08_10
c17( 8) = 4.1231E-08_10
s17( 8) = 5.8792E-09_10
c17( 9) = -4.3119E-08_10
s17( 9) = -1.5974E-08_10
c17(10) = -1.0844E-08_10
s17(10) = 5.5628E-08_10
c17(11) = -4.4136E-08_10
s17(11) = -4.3123E-09_10
c17(12) = 3.1661E-08_10
s17(12) = 6.2982E-09_10
c17(13) = 2.5147E-08_10
s17(13) = 9.7728E-09_10
c17(14) = -5.5945E-09_10
s17(14) = 7.2604E-09_10
c17(15) = 4.9113E-08_10
s17(15) = 3.1958E-08_10
c17(16) = -2.3540E-08_10
s17(16) = -1.5882E-08_10
c17(17) = -9.0191E-08_10
s17(17) = -9.4775E-09_10
c18( 1) = -2.3557E-08_10
s18( 1) = -7.4536E-08_10
c18( 2) = -9.4249E-09_10
s18( 2) = 3.0353E-08_10
c18( 3) = -3.5003E-08_10
s18( 3) = -2.0464E-08_10
c18( 4) = 2.9433E-08_10
s18( 4) = -4.4672E-08_10
c18( 5) = 1.7511E-09_10
s18( 5) = -6.0367E-09_10
c18( 6) = 2.3931E-08_10
s18( 6) = -4.4966E-09_10
c18( 7) = -7.8040E-10_10
s18( 7) = -8.2010E-09_10
c18( 8) = 5.3819E-08_10
s18( 8) = -2.2106E-08_10
c18( 9) = -3.6120E-10_10
s18( 9) = -5.0562E-09_10
c18(10) = 4.2146E-08_10
s18(10) = 7.8924E-09_10
c18(11) = 2.4981E-08_10
s18(11) = 2.3183E-08_10
c18(12) = -6.2242E-09_10
s18(12) = 6.6025E-09_10
c18(13) = -2.6685E-08_10
s18(13) = -4.2500E-08_10
c18(14) = 9.1191E-09_10
s18(14) = -3.3129E-08_10
c18(15) = -4.1521E-08_10
s18(15) = -1.7610E-08_10
c18(16) = 2.4850E-08_10
s18(16) = -4.8182E-09_10
c18(17) = 3.5357E-08_10
s18(17) = -4.7166E-08_10
c18(18) = -3.4701E-10_10
s18(18) = 5.0554E-08_10
c19(12) = 3.6058E-08_10
s19(12) = -3.4421E-09_10
c19(13) = 9.6876E-09_10
s19(13) = -6.6095E-08_10
c19(14) = 7.6389E-09_10
s19(14) = -2.7649E-08_10
c20(13) = 2.7630E-08_10
s20(13) = 3.2389E-08_10
c20(14) = 3.3687E-08_10
s20(14) = -6.5741E-08_10
c21(13) = -1.9799E-08_10
s21(13) = -3.0711E-08_10
c21(14) = 1.6623E-08_10
s21(14) = 8.7215E-09_10
c22(13) = -7.9435E-09_10
s22(13) = 4.1452E-09_10
c22(14) = 2.8516E-09_10
s22(14) = -4.2148E-08_10
c23(13) = -1.3236E-08_10
s23(13) = -4.8892E-09_10
c23(14) = -2.1148E-08_10
s23(14) = 2.2010E-08_10
c24(14) = 3.4668E-09_10
s24(14) = 2.2983E-08_10
None.
nplnt
zhar
char
shar
nzone
ntess
- None detected.
- ...
- ...