source: palm/trunk/UTIL/chemistry/gasphase_preproc/kpp4palm/src/main.C @ 3458

Last change on this file since 3458 was 3458, checked in by kanani, 3 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"
29control_switches kpp_switches;
30
31main (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.