Position Derived Type
type, public :: Position
Components
| Type | Visibility | Attributes | Name | Initial | |||
|---|---|---|---|---|---|---|---|
| integer, | public | :: | NSx | = | 1 | ||
| integer, | public | :: | NSy | = | 1 | ||
| integer, | public | :: | NSz | = | 1 | ||
| integer, | public | :: | NRz | = | 1 | ||
| integer, | public | :: | NRr | = | 1 | ||
| integer, | public | :: | Ntheta | = | 1 | ||
| real, | public | :: | Delta_r | ||||
| real, | public | :: | Delta_theta | ||||
| integer, | public, | ALLOCATABLE | :: | iSz(:) | |||
| integer, | public, | ALLOCATABLE | :: | iRz(:) | |||
| real, | public, | ALLOCATABLE | :: | Sx(:) | |||
| real, | public, | ALLOCATABLE | :: | Sy(:) | |||
| real, | public, | ALLOCATABLE | :: | Sz(:) | |||
| real, | public, | ALLOCATABLE | :: | Rr(:) | |||
| real, | public, | ALLOCATABLE | :: | Rz(:) | |||
| real, | public, | ALLOCATABLE | :: | ws(:) | |||
| real, | public, | ALLOCATABLE | :: | wr(:) | |||
| real, | public, | ALLOCATABLE | :: | theta(:) |
Source Code
TYPE Position INTEGER :: NSx = 1, NSy = 1, NSz = 1, NRz = 1, NRr = 1, Ntheta = 1 ! number of x, y, z, r, theta coordinates REAL :: Delta_r, Delta_theta INTEGER, ALLOCATABLE :: iSz( : ), iRz( : ) REAL, ALLOCATABLE :: Sx( : ), Sy( : ), Sz( : ) ! Source x, y, z coordinates REAL, ALLOCATABLE :: Rr( : ), Rz( : ), ws( : ), wr( : ) ! Receiver r, z coordinates and weights for interpolation REAL, ALLOCATABLE :: theta( : ) ! Receiver bearings END TYPE Position