https://github.com/hydrocoast/dc3d.f90
Okada (1992) DC3D model in Fortran free-form
https://github.com/hydrocoast/dc3d.f90
earth-science geoscience seismology tsunami
Last synced: 4 months ago
JSON representation
Okada (1992) DC3D model in Fortran free-form
- Host: GitHub
- URL: https://github.com/hydrocoast/dc3d.f90
- Owner: hydrocoast
- License: mit
- Created: 2020-01-14T13:00:35.000Z (over 6 years ago)
- Default Branch: master
- Last Pushed: 2026-02-11T23:23:56.000Z (5 months ago)
- Last Synced: 2026-02-12T07:18:08.511Z (5 months ago)
- Topics: earth-science, geoscience, seismology, tsunami
- Language: Fortran
- Homepage:
- Size: 1.15 MB
- Stars: 13
- Watchers: 1
- Forks: 2
- Open Issues: 0
-
Metadata Files:
- Readme: README.md
- License: LICENSE
Awesome Lists containing this project
README
# DC3D0/DC3D Fortran
## Overview
DC3D.f90 is a subroutine package in Fortran free-form for calculating deformation due to a fault model.
This is just a file converted from the original code [DC3D0/DC3D](http://www.bosai.go.jp/study/application/dc3d/DC3Dhtml_E.html) in FORTRAN77 fixed-form
and no additional function is given.
Any bug report would be appreciated.
## Usage
To compile [DC3D.f90](https://github.com/hydrocoast/DC3D.f90/blob/master/DC3D.f90) and generate an object file, clone this repository and run the following command on the top directory:
```bash
make obj
```
The shared object can also be generated using `make so`.
Note that a Fortran compiler (e.g. `ifort` and `gfortran`) and an environment variable `FC` are required to run these commands.
## Tests
You can quickly test the codes as follows:
```bash
make test
```
Files in the directory `test` can help you for further testing.
Some of them need to be run with the Julia language.
```bash
make so
cd test
julia -q
julia> include("./plot_strike-dip-tensile.jl")
```
## Validation
`test/validation_DC3D.jl` compares return values of the original code (FORTRAN77) and the converted one (Fortran90/95).
## License
MIT
The author got permission in an e-mail massage to upload this repository from National Research Institute for Earth Science and Disaster Resilience (NIED), the copyright holder of the original file.
NIED also takes no responsibility for any damage and loss.
## Author
Takuya Miyashita
Disaster Prevention Research Institute, Kyoto University
miyashita@hydrocoast.jp
http://hydrocoast.jp