|
Last change
on this file was
3458,
checked in by kanani, 6 years ago
|
|
Reintegrated fixes/changes from branch chemistry
|
|
File size:
997 bytes
|
| Rev | Line | |
|---|
| [3458] | 1 | ! |
|---|
| 2 | ! |
|---|
| 3 | !module kp4_compress |
|---|
| 4 | ! |
|---|
| 5 | ! Module to compress data for ros_Integrator using variable time step |
|---|
| 6 | ! in vector mode. This module is not dependent on chemistry setup and |
|---|
| 7 | ! can be use for multiple chemistry setups in one job. |
|---|
| 8 | ! |
|---|
| 9 | |
|---|
| 10 | ! COPYRIGHT Klaus Ketelsen and MPI-CH May 2007 |
|---|
| 11 | |
|---|
| 12 | ! implicit none |
|---|
| 13 | ! private |
|---|
| 14 | ! save |
|---|
| 15 | |
|---|
| 16 | ! KPP DP - Double precision kind |
|---|
| 17 | INTEGER, PARAMETER :: ep = SELECTED_REAL_KIND(12,307) |
|---|
| 18 | |
|---|
| 19 | |
|---|
| 20 | ! variables |
|---|
| 21 | integer :: kpoints |
|---|
| 22 | integer :: kpoints_save |
|---|
| 23 | integer,dimension(:),allocatable,public :: index_org |
|---|
| 24 | integer,dimension(:),allocatable :: index_step |
|---|
| 25 | logical,dimension(:),allocatable,public :: cell_done |
|---|
| 26 | logical,dimension(:),allocatable :: done_check |
|---|
| 27 | |
|---|
| 28 | ! Data arrays |
|---|
| 29 | real(kind=ep),dimension(:,:),allocatable :: f_done |
|---|
| 30 | integer, dimension(:), allocatable :: Kacc_done, Krej_done |
|---|
| 31 | integer, dimension(:), allocatable :: ierr_done |
|---|
| 32 | |
|---|
| 33 | logical :: compress_done |
|---|
| 34 | |
|---|
Note: See
TracBrowser
for help on using the repository browser.
