Commit 52d9c575 authored by thomas.forbriger's avatar thomas.forbriger Committed by thomas.forbriger
Browse files

synt/misc: added copyright note to tidal programs

This is a legacy commit from before 2015-03-01.
It may be incomplete as well as inconsistent.
See COPYING.legacy and README.history for details.


SVN Path:     http://gpitrsvn.gpi.uni-karlsruhe.de/repos/TFSoftware/trunk
SVN Revision: 5441
SVN UUID:     67feda4a-a26e-11df-9d6e-31afc202ad0c
parent 1ea6098b
c this is <bfotide.f>
c ----------------------------------------------------------------------------
c ($Id$)
c
c Copyright (c) 1959 by Berger, Evans, and McKenzie
c Copyright (c) 1978 by Young
c Copyright (c) 1978 by Zuern
c
c Earth response to tidal forces based on Longmans code
c
c This program calculates the response of an elastic earth to tidal
c forces. The Earth's elasticity is defined by Love-numbers in
c subroutine TIDEPT. The program computes acceleration, strain and tilt.
c The calculation is based on ephemerides based on Longman's theory.
c
c See:
c I.M. Longman, 1959. Formulas for Computing the Tidal Accelerations due
c to the Moon and the Sun. Journal of Geophysical Research, Vol. 64, No.
c 12, 2351 - 2355.
c
c ----
c This program is free software; you can redistribute it and/or modify
c it under the terms of the GNU General Public License as published by
c the Free Software Foundation; either version 2 of the License, or
c (at your option) any later version.
c
c This program is distributed in the hope that it will be useful,
c but WITHOUT ANY WARRANTY; without even the implied warranty of
c MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
c GNU General Public License for more details.
c
c You should have received a copy of the GNU General Public License
c along with this program; if not, write to the Free Software
c Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA
c ----
c
c REVISIONS and CHANGES
c 07/01/2014 V1.0 Thomas Forbriger: incorporated in TFSoftware
c
c ============================================================================
c
program bfotide program bfotide
c this program uses TIDEPT to compute three components of the earth c this program uses TIDEPT to compute three components of the earth
c tide signal on an elastic earth. c tide signal on an elastic earth.
...@@ -361,3 +402,5 @@ c ...@@ -361,3 +402,5 @@ c
tim69=hours tim69=hours
return return
end end
c
c ----- END OF bfotide.f -----
c this is <gez.f>
c ----------------------------------------------------------------------------
c ($Id$)
c
c Copyright (c) 1969 by R.A. Broucke, P. Muller (JPL)
c Copyright (c) 1971 by R.A. Broucke, W. Zuern, L.B. Slichter
c
c Rigid earth gravity tides based on Brouckes code
c
c This program calculates tidal acceleration as would be observed on a
c spherically symmetric rigid earth. The calculation is based on
c ephemerides calculated in a subroutine from JPL (Roger Broucke). The
c Moon's ephemeris is based on Brown's theory, the Sun's ephemeris is
c based on Newcomb's theory.
c
c See:
c R.A. Broucke, W.E. Zuern, L.B. Slichter, 1972. Lunar Tidal
c Acceleration on a Ridig Earth. Geophysical Monograph Series, Vol. 16.
c 319 - 324. American Geophysical Union, Washington, D.C.
c
c ----
c This program is free software; you can redistribute it and/or modify
c it under the terms of the GNU General Public License as published by
c the Free Software Foundation; either version 2 of the License, or
c (at your option) any later version.
c
c This program is distributed in the hope that it will be useful,
c but WITHOUT ANY WARRANTY; without even the implied warranty of
c MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
c GNU General Public License for more details.
c
c You should have received a copy of the GNU General Public License
c along with this program; if not, write to the Free Software
c Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA
c ----
c
c REVISIONS and CHANGES
c 07/01/2014 V1.0 Thomas Forbriger: incorporated in TFSoftware
c
c ============================================================================
c
c c
c Modified Version c Modified Version
c writes also table output file c writes also table output file
...@@ -1076,3 +1117,5 @@ C open(unit=8,file='sysoutput') ...@@ -1076,3 +1117,5 @@ C open(unit=8,file='sysoutput')
17 write(8,103) i,(it(l),l=1,75) 17 write(8,103) i,(it(l),l=1,75)
close(8) close(8)
end end
c
c ----- END OF gez.f -----
...@@ -6,6 +6,23 @@ c Copyright (c) 2002 by Thomas Forbriger (IMG Frankfurt) ...@@ -6,6 +6,23 @@ c Copyright (c) 2002 by Thomas Forbriger (IMG Frankfurt)
c c
c tides in SFF c tides in SFF
c c
c ----
c This program is free software; you can redistribute it and/or modify
c it under the terms of the GNU General Public License as published by
c the Free Software Foundation; either version 2 of the License, or
c (at your option) any later version.
c
c This program is distributed in the hope that it will be useful,
c but WITHOUT ANY WARRANTY; without even the implied warranty of
c MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
c GNU General Public License for more details.
c
c You should have received a copy of the GNU General Public License
c along with this program; if not, write to the Free Software
c Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA
c ----
c
c
c REVISIONS and CHANGES c REVISIONS and CHANGES
c 02/11/2002 V1.0 Thomas Forbriger c 02/11/2002 V1.0 Thomas Forbriger
c 04/11/2002 V1.1 pass single variables to subroutines c 04/11/2002 V1.1 pass single variables to subroutines
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment