// ############################################################################
//
//     create_mz_kpp_module 
//
//     create scalar code from .f90 sources created by KPP to be used in PALM4U
//
//     COPYRIGHT Klaus Ketelsen and MPI-CH   April 2007, 
//               Klaus Ketelsen, 2016
//
// ############################################################################
//
// Former revisions:
// -----------------------
// Deleded $Id since document_changes does not work for C and C++         (15.03.2019, forkel)
//
// initial version       (Nov. 2016, ketelsen)
//

//  mz_rs_20090111+
// stdlib is necessary to define atoi:
#include <stdlib.h>
//  mz_rs_20090111-

#include "create_kpp_module.h"
control_switches kpp_switches;

main (int argc, char *argv [] ) {
   create_kpp_module         cm;
   string                    inp_name;
   char                      *lo_arg;

   cout << "####################################################" <<endl ;
   cout << "###        KPP4PALM = KPP POST PROCESSOR         ###" <<endl ;
   cout << "###               KP4 Version 1.0                ###" <<endl ;
   cout << "### (C) by Klaus Ketelsen and MPI-CH, April 2007 ###" <<endl ;
   cout << "###               KPP4PALM                       ###" <<endl ;
   cout << "### (C) by Klaus Ketelsen, November 2016         ###" <<endl ;
   cout << "####################################################" <<endl ;

   lo_arg = argv[1];

   if(argc > 1) {
     inp_name = lo_arg ;
   } else {
     inp_name = "kk_" ;
   }

   if(argc > 2) {
     lo_arg = argv[2];
     string vm = lo_arg;
     if(vm == "vector") {
       kpp_switches.set_vector_mode ();
     }
   }

   if(argc > 3) {
     lo_arg = argv[3];
     string vl = lo_arg;
     kpp_switches.set_vector_length (vl);
   }

   if(argc > 4) {
     lo_arg = argv[4];
     int de = atoi(lo_arg);
     kpp_switches.set_de_index_mode (de);
   }

   cm.do_work(inp_name);

   cout << "####################################################" <<endl ;
   cout << "###                END OF KPP4PALM               ###" <<endl ;
   cout << "####################################################" <<endl ;

   return 0;
}