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

Last change on this file since 3225 was 2696, checked in by kanani, 7 years ago

Merge of branch palm4u into trunk

File size: 1.7 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//  mz_rs_20090111+
13// stdlib is necessary to define atoi:
14#include <stdlib.h>
15//  mz_rs_20090111-
16
17#include "create_kpp_module.h"
18control_switches kpp_switches;
19
20main (int argc, char *argv [] ) {
21   create_kpp_module         cm;
22   string                    inp_name;
23   char                      *lo_arg;
24
25   cout << "####################################################" <<endl ;
26   cout << "###             KP4 = KPP POST PROCESSOR         ###" <<endl ;
27   cout << "###                   Version 1.0                ###" <<endl ;
28   cout << "### (C) by Klaus Ketelsen and MPI-CH, April 2007 ###" <<endl ;
29   cout << "####################################################" <<endl ;
30
31   lo_arg = argv[1];
32
33   if(argc > 1) {
34     inp_name = lo_arg ;
35   } else {
36     inp_name = "kk_" ;
37   }
38
39   if(argc > 2) {
40     lo_arg = argv[2];
41     string vm = lo_arg;
42     if(vm == "vector") {
43       kpp_switches.set_vector_mode ();
44     }
45   }
46
47   if(argc > 3) {
48     lo_arg = argv[3];
49     string vl = lo_arg;
50     kpp_switches.set_vector_length (vl);
51   }
52
53   if(argc > 4) {
54     lo_arg = argv[4];
55     int de = atoi(lo_arg);
56     kpp_switches.set_de_index_mode (de);
57   }
58
59   cm.do_work(inp_name);
60
61   cout << "####################################################" <<endl ;
62   cout << "###                END OF KP4                    ###" <<endl ;
63   cout << "####################################################" <<endl ;
64
65   return 0;
66}
Note: See TracBrowser for help on using the repository browser.