Browse Source

update maximum receiver psgrn and pscmp

master
miili 2 years ago
parent
commit
19a24d1b82
  1. 14
      README.md
  2. 1
      src/pscmp/Makefile.am
  3. 20
      src/pscmp/pscglob.h
  4. 8
      src/psgrn/psgglob.h

14
README.md

@ -33,6 +33,18 @@ git clone https://git.pyrocko.org/pyrocko/fomoto-psgrn-pscmp.git fomosto-psgrn-p
Thanks to the worldwide seismology community for all the support and help.
Best regards
Best regards,
*The fomosto-psgrn-pscmp Developers*
# Installation
A Fortran77 compiler is required and the automake tools. These should be standard on Linux systems.
```sh
cd fomosto-psgrn-pscmp
autoreconf -i
make
sudo make install
```

1
src/pscmp/Makefile.am

@ -1,2 +1,3 @@
bin_PROGRAMS = fomosto_pscmp2008a
AM_FFLAGS += -mcmodel=medium
fomosto_pscmp2008a_SOURCES = cmbfix.f cmbopt.f dc3d.f disazi.f mscorr.f prestress.f pscdisc.f pscglob.h pscgrn.f pscmain.f pscokada.f pscout.f roots3.f skip_comments.f

20
src/pscmp/pscglob.h

@ -9,15 +9,15 @@ c NSMAX = max. number of fault segments
c NEQMAX = max. number of earthquakes
c NPTCHMAX = max. number of patches at a source rectangle
c NPSMAX = max. number of discrete point sources per source depth
c NTMAX = max. number of time samples used for Green's functions
c NTMAX = max. number of time samples used for Greens functions
c NTRMAX = max. number of time samples of the outputs
c NSCMAX = max. number of scenario outputs (<= NTRMAX/2)
c~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
integer NZSMAX,NRMAX,NEQMAX,NSMAX,NPTCHMAX
integer NPSMAX,NRECMAX,NTMAX,NTRMAX,NSCMAX
parameter(NZSMAX=100,NRMAX=1000)
integer NPSMAX,NRECMAX,NTMAX,NTRMAX,NSCMAX
parameter(NZSMAX=1000,NRMAX=4000)
parameter(NEQMAX=20,NSMAX=5000,NPTCHMAX=1000)
parameter(NPSMAX=20000)
parameter(NPSMAX=40000)
parameter(NRECMAX=10000)
parameter(NTMAX=1024,NTRMAX=1024)
parameter(NSCMAX=NTRMAX/2)
@ -37,7 +37,7 @@ c~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
double precision tstart(NSMAX),eqtime(NEQMAX)
double precision ptch_s(NSMAX,NPTCHMAX),ptch_d(NSMAX,NPTCHMAX)
double precision slip_s(NSMAX,NPTCHMAX)
double precision slip_d(NSMAX,NPTCHMAX)
double precision slip_d(NSMAX,NPTCHMAX)
double precision opening(NSMAX,NPTCHMAX)
c
common/irects/nptch_s,nptch_d,ieqno
@ -60,13 +60,13 @@ c
common/dpoints/plat,plon,pz,pmwei
c
c~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
c GREEN'S FUNCTION INFO
c GREENS FUNCTION INFO
c =====================
c
c nzs,zs1,zs2 = number of depth samples, start and end depths used
c in Green's functions
c in Greens functions
c nr,r1,r2 = number of distance samples, start and end distances used
c in Green's functions
c in Greens functions
c~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
integer nr,nzs,nt
double precision r1,r2,sampratio,zs1,zs2
@ -131,5 +131,5 @@ c LOCAL CONSTANTS
c ==============
c~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
double precision DEG2RAD,KM2M,DAY2SEC,REARTH,G0
parameter(DEG2RAD=1.745329252d-02,KM2M=1.0d+03)
parameter(DAY2SEC=8.64d+04,REARTH=6.371d+06,G0=9.82d+00)
parameter(DEG2RAD=1.7453292519943295d-02,KM2M=1.0d+03)
parameter(DAY2SEC=8.64d+04,REARTH=6.371d+06,G0=9.80665d+00)

8
src/psgrn/psgglob.h

@ -7,13 +7,13 @@ c nfmax: max. no of frequency samples.
c nzsmax: max. number of source depths
c
integer lmax,nzmax,nrmax,nfmin,nfmax,ntmax,nzsmax
parameter(lmax=100)
parameter(lmax=500)
parameter(nzmax=lmax+3)
parameter(nrmax=251)
parameter(nrmax=2001)
parameter(nfmin=64)
parameter(nfmax=1024)
parameter(nfmax=1024)
parameter(ntmax=2*nfmax)
parameter(nzsmax=100)
parameter(nzsmax=500)
c
c INDEX PARAMETERS FOR BESSEL FUNCTION TABLES
c ===========================================

Loading…
Cancel
Save