sheba/array_sizes.f90 at master · Jasplet/sheba · GitHub

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
!===============================================================================
!  S H E B A - Shear-wave Birefringence Analysis
!===============================================================================
!  This software is distributed in the hope that it will be useful,
!  but WITHOUT ANY WARRANTY; without even the implied warranty of
!  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
!===============================================================================
!
!  James Wookey, School of Earth Sciences, University of Bristol
!
!=======================================================================
      module array_sizes ! Utility module for F90/95 for SAC files
!=======================================================================
      implicit none

!        * parameters
         integer, parameter :: np1=181
         integer, parameter :: np2=41
         integer, parameter :: np2int=161
         integer, parameter :: np2XC=np2
         integer, parameter :: np2XCint=np2int
         integer, parameter :: npc=500
         integer, parameter :: np=200000
         integer, parameter :: nsurfmax = 1000 ; ! this one is for stack

!=======================================================================
      end module array_sizes
!=======================================================================
!     END OF sheba_config module
!=======================================================================