source: palm/trunk/UTIL/chemistry/gasphase_preproc/kpp4palm/templates/kp4_compress_header @ 3820

Last change on this file since 3820 was 3458, checked in by kanani, 3 years ago

Reintegrated fixes/changes from branch chemistry

File size: 997 bytes
Line 
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.