source: palm/trunk/UTIL/chemistry/gasphase_preproc/kpp4palm/templates/module_header @ 4392

Last change on this file since 4392 was 4370, checked in by raasch, 5 years ago

bugfixes for previous commit: unused variables removed, Temperton-fft usage on GPU, openacc porting of vector version of Obukhov length calculation, collective read switched off on NEC to avoid hanging; some vector directives added in prognostic equations to force vectorization on Intel19 compiler, configuration files for NEC Aurora added

File size: 3.2 KB
Line 
1!------------------------------------------------------------------------------!
2!
3! ****** Module chem_gasphase_mod is automatically generated by kpp4palm ******
4!
5!   ********* Please do NOT change this Code, it will be ovewritten *********
6!
7!------------------------------------------------------------------------------!
8! This file was created by KPP (http://people.cs.vt.edu/asandu/Software/Kpp/)
9! and kpp4palm (created by Klaus Ketelsen). kpp4palm is an adapted version
10! of KP4 (Jöckel, P., Kerkweg, A., Pozzer, A., Sander, R., Tost, H., Riede,
11! H., Baumgaertner, A., Gromov, S., and Kern, B., 2010: Development cycle 2 of
12! the Modular Earth Submodel System (MESSy2), Geosci. Model Dev., 3, 717-752,
13! https://doi.org/10.5194/gmd-3-717-2010). KP4 is part of the Modular Earth
14! Submodel System (MESSy), which is is available under the  GNU General Public
15! License (GPL).
16!
17! KPP is free software; you can redistribute it and/or modify it under the terms
18! of the General Public Licence as published by the Free Software Foundation;
19! either version 2 of the License, or (at your option) any later version.
20! KPP is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY;
21! without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR
22! PURPOSE. See the GNU General Public Licence for more details.
23!
24!------------------------------------------------------------------------------!
25! This file is part of the PALM model system.
26!
27! PALM is free software: you can redistribute it and/or modify it under the
28! terms of the GNU General Public License as published by the Free Software
29! Foundation, either version 3 of the License, or (at your option) any later
30! version.
31!
32! PALM is distributed in the hope that it will be useful, but WITHOUT ANY
33! WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
34! A PARTICULAR PURPOSE.  See the GNU General Public License for more details.
35!
36! You should have received a copy of the GNU General Public License along with
37! PALM. If not, see <http://www.gnu.org/licenses/>.
38!
39! Copyright 1997-2020 Leibniz Universitaet Hannover
40!--------------------------------------------------------------------------------!
41!
42!
43! MODULE HEADER TEMPLATE
44!
45!  Initial version (Nov. 2016, ketelsen), for later modifications of module_header
46!  see comments in kpp4palm/src/create_kpp_module.C
47
48! Set kpp Double Precision to PALM Default Precision
49
50  USE kinds,            ONLY: dp=>wp
51
52  USE pegrid,           ONLY: myid, threads_per_task
53
54  IMPLICIT        NONE
55  PRIVATE
56  !SAVE  ! NOTE: OCCURS AGAIN IN AUTOMATICALLY GENERATED CODE ...
57
58! Public variables
59  PUBLIC :: atol
60  PUBLIC :: cs_mech
61  PUBLIC :: eqn_names
62  PUBLIC :: fakt
63  PUBLIC :: nmaxfixsteps
64  PUBLIC :: nphot
65  PUBLIC :: nreact
66  PUBLIC :: nspec
67  PUBLIC :: nvar
68  PUBLIC :: qvap
69  PUBLIC :: phot
70  PUBLIC :: phot_names
71  PUBLIC :: rconst
72  PUBLIC :: rtol
73  PUBLIC :: spc_names
74  PUBLIC :: temp
75  PUBLIC :: vl_dim                     !< PUBLIC to enable other modules to distiguish between scalar and vec
76 
77! Public routines
78  PUBLIC :: chem_gasphase_integrate
79  PUBLIC :: get_mechanism_name
80  PUBLIC :: Initialize
81  PUBLIC :: initialize_kpp_ctrl
82  PUBLIC :: Integrate
83  PUBLIC :: Update_rconst
84
85! END OF MODULE HEADER TEMPLATE
Note: See TracBrowser for help on using the repository browser.