Last change
on this file since 3698 was
3458,
checked in by kanani, 6 years ago
|
Reintegrated fixes/changes from branch chemistry
|
File size:
1.9 KB
|
Line | |
---|
1 | |
---|
2 | // ############################################################################ |
---|
3 | // |
---|
4 | // create_mz_kpp_module |
---|
5 | // |
---|
6 | // create scalar code from .f90 sources created by KPP to be used in MESSy |
---|
7 | // |
---|
8 | // COPYRIGHT Klaus Ketelsen and MPI-CH April 2007 |
---|
9 | // |
---|
10 | // ############################################################################ |
---|
11 | // |
---|
12 | //Current revisions: |
---|
13 | //------------------ |
---|
14 | // |
---|
15 | // |
---|
16 | // Former revisions: |
---|
17 | // ----------------------- |
---|
18 | // $Id: main.C 3327 2018-10-09 19:55:00Z forkel $ |
---|
19 | // |
---|
20 | // initial version (Nov. 2016, ketelsen) |
---|
21 | // |
---|
22 | |
---|
23 | // mz_rs_20090111+ |
---|
24 | // stdlib is necessary to define atoi: |
---|
25 | #include <stdlib.h> |
---|
26 | // mz_rs_20090111- |
---|
27 | |
---|
28 | #include "create_kpp_module.h" |
---|
29 | control_switches kpp_switches; |
---|
30 | |
---|
31 | main (int argc, char *argv [] ) { |
---|
32 | create_kpp_module cm; |
---|
33 | string inp_name; |
---|
34 | char *lo_arg; |
---|
35 | |
---|
36 | cout << "####################################################" <<endl ; |
---|
37 | cout << "### KP4 = KPP POST PROCESSOR ###" <<endl ; |
---|
38 | cout << "### Version 1.0 ###" <<endl ; |
---|
39 | cout << "### (C) by Klaus Ketelsen and MPI-CH, April 2007 ###" <<endl ; |
---|
40 | cout << "####################################################" <<endl ; |
---|
41 | |
---|
42 | lo_arg = argv[1]; |
---|
43 | |
---|
44 | if(argc > 1) { |
---|
45 | inp_name = lo_arg ; |
---|
46 | } else { |
---|
47 | inp_name = "kk_" ; |
---|
48 | } |
---|
49 | |
---|
50 | if(argc > 2) { |
---|
51 | lo_arg = argv[2]; |
---|
52 | string vm = lo_arg; |
---|
53 | if(vm == "vector") { |
---|
54 | kpp_switches.set_vector_mode (); |
---|
55 | } |
---|
56 | } |
---|
57 | |
---|
58 | if(argc > 3) { |
---|
59 | lo_arg = argv[3]; |
---|
60 | string vl = lo_arg; |
---|
61 | kpp_switches.set_vector_length (vl); |
---|
62 | } |
---|
63 | |
---|
64 | if(argc > 4) { |
---|
65 | lo_arg = argv[4]; |
---|
66 | int de = atoi(lo_arg); |
---|
67 | kpp_switches.set_de_index_mode (de); |
---|
68 | } |
---|
69 | |
---|
70 | cm.do_work(inp_name); |
---|
71 | |
---|
72 | cout << "####################################################" <<endl ; |
---|
73 | cout << "### END OF KP4 ###" <<endl ; |
---|
74 | cout << "####################################################" <<endl ; |
---|
75 | |
---|
76 | return 0; |
---|
77 | } |
---|
Note: See
TracBrowser
for help on using the repository browser.