Home


About us
PALM
PALM-4U
Installation
Release notes
Documentation
Getting Help
Gallery
Developers area

Ignore:
Timestamp:
Mar 5, 2019 11:19:45 AM (6 years ago)
Author:
forkel
Message:

removed read from unit 10 in chemistry_model_mod.f90, added get_mechanismname

Location:
palm/trunk/UTIL/chemistry/gasphase_preproc
Files:
15 edited

Legend:

Unmodified
Added
Removed

  • palm/trunk/UTIL/chemistry/gasphase_preproc/kpp4palm/bin/kpp4palm.ksh

    r3458 r3780  
    4040# -----------------
    4141# $Id$
     42# forkel   05. March 2019: cs_mech and set_cm
    4243# forkel   30. Oktober 2018: Integrating contents of kp4_compress into chem_gasphase_mod.f90
    4344# forkel   25. September 2018: Added cat for $MECH to pass mechanism name to kpp4palm
    … …  
    276277  REAL(kind=dp) :: FAKT
    277278
     279! CS_MECH for check of mechanism name with namelist
     280  CHARACTER(LEN=30) :: CS_MECH
    278281#ENDINLINE
    279282EOF
    … …  
    285288EOF
    286289
     290# Store mechanism name for cs_mech
     291cat  >> set_cm  <<  EOF
     292
     293! Set cs_mech for check with mechanism name from namelist
     294    cs_mech = '$MECH'
     295EOF
     296
    287297# Run kpp
    288298

  • palm/trunk/UTIL/chemistry/gasphase_preproc/kpp4palm/src/create_kpp_module.C

    r3458 r3780  
    1717//-----------------
    1818//$Id: create_kpp_module.C 3453 2018-10-30 13:21:51Z forkel $
     19// Added create_set_cs and cs_mech and get_mechanismname in module_header (05.03.2019, forkel)
     20//
    1921// exclude kco_compress from handling by global_variables2vector (30.10.2018, forkel)
    2022//
    … …  
    191193
    192194   generate_module_header();
     195
     196// create_set_cs
     197   create_set_cs();
    193198
    194199// Create kpp_integrate subroutine (chem_gasphase_integrate) for skalar and vector mode
    … …  
    458463}
    459464
     465void create_kpp_module::create_set_cs() {
     466   fortran_file          kppi;         
     467   vector<Vvar>::iterator               iv;
     468   string                               xline;
     469     
     470   string                          buf;
     471   ifstream                        in;
     472   program_line                    line;
     473
     474   kppi.set_name("get_mechanismname");
     475   kppi.add_line("SUBROUTINE get_mechanismname                                        ");
     476   kppi.add_line("                                                                    ");
     477   kppi.add_line("  IMPLICIT NONE                                                     ");
     478// Read mechanism from set_cm
     479// Tis got an own own subroutine to aviod being called at each timestep
     480
     481   in.open("set_cm");
     482   if( !in ) {
     483      cout << "cannot open " << endl; my_abort("set_cm");
     484   }
     485
     486   while ( 1 ) {
     487     getline (in, buf);
     488     if( in.eof() ) break;
     489     if( in.bad() ) my_abort("ERROR_READ_4");
     490     line.set_line(buf);
     491     kppi.add_line(line);
     492   }
     493   in.close();
     494
     495   kppi.add_line("                                                                    ");
     496   kppi.add_line("  return                                                            ");
     497   kppi.add_line("END SUBROUTINE get_mechanismname                                    ");
     498   kppi.add_line("                                                                    ");
     499   kpp_subroutines.push_back(kppi);
     500
     501   return;
     502}
     503
     504
    460505void create_kpp_module::create_kpp_integrate() {
    461506   fortran_file          kppi;
    462507   vector<Vvar>::iterator               iv;
    463    string                               line;
     508   string                               xline;
     509
    464510
    465511   kppi.set_name("chem_gasphase_integrate");
    … …  
    598644   kppi.add_line("                                                                    ");
    599645   kppi.add_line("  return                                                            ");
    600    kppi.add_line("END SUBROUTINE chem_gasphase_integrate                                        ");
     646   kppi.add_line("END SUBROUTINE chem_gasphase_integrate                              ");
    601647
    602648//   e5_subroutines.push_back(kppi);

  • palm/trunk/UTIL/chemistry/gasphase_preproc/kpp4palm/src/create_kpp_module.h

    r3458 r3780  
    1919// -----------------------
    2020// $Id$
     21// forkel   22.02.2019: Added create_set_cs
    2122// ketelsen 18.09.2018: Removed create_fill_routine
    2223//
    … …  
    6061
    6162  void create_kpp_integrate();
     63  void create_set_cs();
    6264
    6365public:

  • palm/trunk/UTIL/chemistry/gasphase_preproc/kpp4palm/templates/module_header

    r3681 r3780  
    6161!         , REQ_MCFCT, IP_MAX, jname
    6262
     63  PUBLIC :: cs_mech
    6364  PUBLIC :: eqn_names,  phot_names, spc_names
    6465  PUBLIC :: nmaxfixsteps
    … …  
    7778  PUBLIC :: chem_gasphase_integrate
    7879  PUBLIC :: initialize_kpp_ctrl
     80  PUBLIC :: get_mechanismname
    7981
    8082! END OF MODULE HEADER TEMPLATE

  • palm/trunk/UTIL/chemistry/gasphase_preproc/mechanisms/def_cbm4/chem_gasphase_mod.f90

    r3698 r3780  
    6565!         ,REQ_MCFCT,IP_MAX,jname
    6666
     67  PUBLIC :: cs_mech
    6768  PUBLIC :: eqn_names, phot_names, spc_names
    6869  PUBLIC :: nmaxfixsteps
    … …  
    8182  PUBLIC :: chem_gasphase_integrate
    8283  PUBLIC :: initialize_kpp_ctrl
     84  PUBLIC :: get_mechanismname
    8385
    8486! END OF MODULE HEADER TEMPLATE
    … …  
    113115!
    114116! File                 : chem_gasphase_mod_Parameters.f90
    115 ! Time                 : Wed Dec 12 11:47:05 2018
    116 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20181212/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     117! Time                 : Tue Mar  5 11:50:49 2019
     118! Working directory    : /home/forkel-r/palmstuff/work/trunk20190305/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    117119! Equation file        : chem_gasphase_mod.kpp
    118120! Output root filename : chem_gasphase_mod
    … …  
    220222!
    221223! File                 : chem_gasphase_mod_Global.f90
    222 ! Time                 : Wed Dec 12 11:47:05 2018
    223 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20181212/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     224! Time                 : Tue Mar  5 11:50:49 2019
     225! Working directory    : /home/forkel-r/palmstuff/work/trunk20190305/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    224226! Equation file        : chem_gasphase_mod.kpp
    225227! Output root filename : chem_gasphase_mod
    … …  
    267269  REAL(kind=dp):: fakt
    268270
     271! CS_MECH for check of mechanism name with namelist
     272  CHARACTER(len=30):: cs_mech
    269273
    270274! INLINED global variable declarations
    … …  
    287291!
    288292! File                 : chem_gasphase_mod_JacobianSP.f90
    289 ! Time                 : Wed Dec 12 11:47:05 2018
    290 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20181212/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     293! Time                 : Tue Mar  5 11:50:49 2019
     294! Working directory    : /home/forkel-r/palmstuff/work/trunk20190305/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    291295! Equation file        : chem_gasphase_mod.kpp
    292296! Output root filename : chem_gasphase_mod
    … …  
    383387!
    384388! File                 : chem_gasphase_mod_Monitor.f90
    385 ! Time                 : Wed Dec 12 11:47:05 2018
    386 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20181212/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     389! Time                 : Tue Mar  5 11:50:49 2019
     390! Working directory    : /home/forkel-r/palmstuff/work/trunk20190305/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    387391! Equation file        : chem_gasphase_mod.kpp
    388392! Output root filename : chem_gasphase_mod
    … …  
    546550!
    547551! File                 : chem_gasphase_mod_Initialize.f90
    548 ! Time                 : Wed Dec 12 11:47:05 2018
    549 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20181212/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     552! Time                 : Tue Mar  5 11:50:49 2019
     553! Working directory    : /home/forkel-r/palmstuff/work/trunk20190305/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    550554! Equation file        : chem_gasphase_mod.kpp
    551555! Output root filename : chem_gasphase_mod
    … …  
    572576!
    573577! File                 : chem_gasphase_mod_Integrator.f90
    574 ! Time                 : Wed Dec 12 11:47:05 2018
    575 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20181212/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     578! Time                 : Tue Mar  5 11:50:49 2019
     579! Working directory    : /home/forkel-r/palmstuff/work/trunk20190305/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    576580! Equation file        : chem_gasphase_mod.kpp
    577581! Output root filename : chem_gasphase_mod
    … …  
    630634!
    631635! File                 : chem_gasphase_mod_LinearAlgebra.f90
    632 ! Time                 : Wed Dec 12 11:47:05 2018
    633 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20181212/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     636! Time                 : Tue Mar  5 11:50:49 2019
     637! Working directory    : /home/forkel-r/palmstuff/work/trunk20190305/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    634638! Equation file        : chem_gasphase_mod.kpp
    635639! Output root filename : chem_gasphase_mod
    … …  
    657661!
    658662! File                 : chem_gasphase_mod_Jacobian.f90
    659 ! Time                 : Wed Dec 12 11:47:05 2018
    660 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20181212/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     663! Time                 : Tue Mar  5 11:50:49 2019
     664! Working directory    : /home/forkel-r/palmstuff/work/trunk20190305/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    661665! Equation file        : chem_gasphase_mod.kpp
    662666! Output root filename : chem_gasphase_mod
    … …  
    684688!
    685689! File                 : chem_gasphase_mod_Function.f90
    686 ! Time                 : Wed Dec 12 11:47:05 2018
    687 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20181212/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     690! Time                 : Tue Mar  5 11:50:49 2019
     691! Working directory    : /home/forkel-r/palmstuff/work/trunk20190305/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    688692! Equation file        : chem_gasphase_mod.kpp
    689693! Output root filename : chem_gasphase_mod
    … …  
    713717!
    714718! File                 : chem_gasphase_mod_Rates.f90
    715 ! Time                 : Wed Dec 12 11:47:05 2018
    716 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20181212/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     719! Time                 : Tue Mar  5 11:50:49 2019
     720! Working directory    : /home/forkel-r/palmstuff/work/trunk20190305/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    717721! Equation file        : chem_gasphase_mod.kpp
    718722! Output root filename : chem_gasphase_mod
    … …  
    739743!
    740744! File                 : chem_gasphase_mod_Util.f90
    741 ! Time                 : Wed Dec 12 11:47:05 2018
    742 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20181212/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     745! Time                 : Tue Mar  5 11:50:49 2019
     746! Working directory    : /home/forkel-r/palmstuff/work/trunk20190305/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    743747! Equation file        : chem_gasphase_mod.kpp
    744748! Output root filename : chem_gasphase_mod
    … …  
    845849    MODULE PROCEDURE   kppdecomp
    846850  END INTERFACE        kppdecomp
     851 
     852  INTERFACE            get_mechanismname
     853    MODULE PROCEDURE   get_mechanismname
     854  END INTERFACE        get_mechanismname
    847855 
    848856  INTERFACE            chem_gasphase_integrate
    … …  
    39433951  END SUBROUTINE kppdecomp                                           
    39443952 
     3953SUBROUTINE get_mechanismname                                       
     3954                                                                   
     3955  IMPLICIT NONE                                                     
     3956
     3957! Set cs_mech for check with mechanism name from namelist
     3958    cs_mech = 'cbm4'
     3959                                                                   
     3960  RETURN                                                           
     3961END SUBROUTINE get_mechanismname                                   
     3962                                                                   
     3963 
    39453964SUBROUTINE chem_gasphase_integrate (time_step_len, conc, tempi, qvapi, fakti, photo, ierrf, xnacc, xnrej, istatus, l_debug, pe, &
    39463965                     icntrl_i, rcntrl_i)
    … …  
    40284047                                                                   
    40294048  RETURN                                                           
    4030 END SUBROUTINE chem_gasphase_integrate                                       
     4049END SUBROUTINE chem_gasphase_integrate                             
    40314050
    40324051END MODULE chem_gasphase_mod

  • palm/trunk/UTIL/chemistry/gasphase_preproc/mechanisms/def_passive/chem_gasphase_mod.f90

    r3681 r3780  
    6565!         ,REQ_MCFCT,IP_MAX,jname
    6666
     67  PUBLIC :: cs_mech
    6768  PUBLIC :: eqn_names, phot_names, spc_names
    6869  PUBLIC :: nmaxfixsteps
    … …  
    8182  PUBLIC :: chem_gasphase_integrate
    8283  PUBLIC :: initialize_kpp_ctrl
     84  PUBLIC :: get_mechanismname
    8385
    8486! END OF MODULE HEADER TEMPLATE
    … …  
    113115!
    114116! File                 : chem_gasphase_mod_Parameters.f90
    115 ! Time                 : Fri Nov 30 13:52:22 2018
    116 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20181130/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     117! Time                 : Tue Mar  5 11:50:49 2019
     118! Working directory    : /home/forkel-r/palmstuff/work/trunk20190305/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    117119! Equation file        : chem_gasphase_mod.kpp
    118120! Output root filename : chem_gasphase_mod
    … …  
    188190!
    189191! File                 : chem_gasphase_mod_Global.f90
    190 ! Time                 : Fri Nov 30 13:52:22 2018
    191 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20181130/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     192! Time                 : Tue Mar  5 11:50:49 2019
     193! Working directory    : /home/forkel-r/palmstuff/work/trunk20190305/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    192194! Equation file        : chem_gasphase_mod.kpp
    193195! Output root filename : chem_gasphase_mod
    … …  
    234236  REAL(kind=dp):: fakt
    235237
     238! CS_MECH for check of mechanism name with namelist
     239  CHARACTER(len=30):: cs_mech
    236240
    237241! INLINED global variable declarations
    … …  
    254258!
    255259! File                 : chem_gasphase_mod_JacobianSP.f90
    256 ! Time                 : Fri Nov 30 13:52:22 2018
    257 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20181130/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     260! Time                 : Tue Mar  5 11:50:49 2019
     261! Working directory    : /home/forkel-r/palmstuff/work/trunk20190305/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    258262! Equation file        : chem_gasphase_mod.kpp
    259263! Output root filename : chem_gasphase_mod
    … …  
    298302!
    299303! File                 : chem_gasphase_mod_Monitor.f90
    300 ! Time                 : Fri Nov 30 13:52:22 2018
    301 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20181130/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     304! Time                 : Tue Mar  5 11:50:49 2019
     305! Working directory    : /home/forkel-r/palmstuff/work/trunk20190305/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    302306! Equation file        : chem_gasphase_mod.kpp
    303307! Output root filename : chem_gasphase_mod
    … …  
    358362!
    359363! File                 : chem_gasphase_mod_Initialize.f90
    360 ! Time                 : Fri Nov 30 13:52:22 2018
    361 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20181130/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     364! Time                 : Tue Mar  5 11:50:49 2019
     365! Working directory    : /home/forkel-r/palmstuff/work/trunk20190305/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    362366! Equation file        : chem_gasphase_mod.kpp
    363367! Output root filename : chem_gasphase_mod
    … …  
    384388!
    385389! File                 : chem_gasphase_mod_Integrator.f90
    386 ! Time                 : Fri Nov 30 13:52:22 2018
    387 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20181130/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     390! Time                 : Tue Mar  5 11:50:49 2019
     391! Working directory    : /home/forkel-r/palmstuff/work/trunk20190305/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    388392! Equation file        : chem_gasphase_mod.kpp
    389393! Output root filename : chem_gasphase_mod
    … …  
    442446!
    443447! File                 : chem_gasphase_mod_LinearAlgebra.f90
    444 ! Time                 : Fri Nov 30 13:52:22 2018
    445 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20181130/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     448! Time                 : Tue Mar  5 11:50:49 2019
     449! Working directory    : /home/forkel-r/palmstuff/work/trunk20190305/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    446450! Equation file        : chem_gasphase_mod.kpp
    447451! Output root filename : chem_gasphase_mod
    … …  
    469473!
    470474! File                 : chem_gasphase_mod_Jacobian.f90
    471 ! Time                 : Fri Nov 30 13:52:22 2018
    472 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20181130/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     475! Time                 : Tue Mar  5 11:50:49 2019
     476! Working directory    : /home/forkel-r/palmstuff/work/trunk20190305/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    473477! Equation file        : chem_gasphase_mod.kpp
    474478! Output root filename : chem_gasphase_mod
    … …  
    496500!
    497501! File                 : chem_gasphase_mod_Function.f90
    498 ! Time                 : Fri Nov 30 13:52:22 2018
    499 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20181130/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     502! Time                 : Tue Mar  5 11:50:49 2019
     503! Working directory    : /home/forkel-r/palmstuff/work/trunk20190305/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    500504! Equation file        : chem_gasphase_mod.kpp
    501505! Output root filename : chem_gasphase_mod
    … …  
    525529!
    526530! File                 : chem_gasphase_mod_Rates.f90
    527 ! Time                 : Fri Nov 30 13:52:22 2018
    528 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20181130/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     531! Time                 : Tue Mar  5 11:50:49 2019
     532! Working directory    : /home/forkel-r/palmstuff/work/trunk20190305/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    529533! Equation file        : chem_gasphase_mod.kpp
    530534! Output root filename : chem_gasphase_mod
    … …  
    551555!
    552556! File                 : chem_gasphase_mod_Util.f90
    553 ! Time                 : Fri Nov 30 13:52:22 2018
    554 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20181130/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     557! Time                 : Tue Mar  5 11:50:49 2019
     558! Working directory    : /home/forkel-r/palmstuff/work/trunk20190305/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    555559! Equation file        : chem_gasphase_mod.kpp
    556560! Output root filename : chem_gasphase_mod
    … …  
    657661    MODULE PROCEDURE   kppdecomp
    658662  END INTERFACE        kppdecomp
     663 
     664  INTERFACE            get_mechanismname
     665    MODULE PROCEDURE   get_mechanismname
     666  END INTERFACE        get_mechanismname
    659667 
    660668  INTERFACE            chem_gasphase_integrate
    … …  
    22222230  END SUBROUTINE kppdecomp                                           
    22232231 
     2232SUBROUTINE get_mechanismname                                       
     2233                                                                   
     2234  IMPLICIT NONE                                                     
     2235
     2236! Set cs_mech for check with mechanism name from namelist
     2237    cs_mech = 'passive'
     2238                                                                   
     2239  RETURN                                                           
     2240END SUBROUTINE get_mechanismname                                   
     2241                                                                   
     2242 
    22242243SUBROUTINE chem_gasphase_integrate (time_step_len, conc, tempi, qvapi, fakti, photo, ierrf, xnacc, xnrej, istatus, l_debug, pe, &
    22252244                     icntrl_i, rcntrl_i)
    … …  
    23072326                                                                   
    23082327  RETURN                                                           
    2309 END SUBROUTINE chem_gasphase_integrate                                       
     2328END SUBROUTINE chem_gasphase_integrate                             
    23102329
    23112330END MODULE chem_gasphase_mod

  • palm/trunk/UTIL/chemistry/gasphase_preproc/mechanisms/def_passive1/chem_gasphase_mod.f90

    r3698 r3780  
    6565!         ,REQ_MCFCT,IP_MAX,jname
    6666
     67  PUBLIC :: cs_mech
    6768  PUBLIC :: eqn_names, phot_names, spc_names
    6869  PUBLIC :: nmaxfixsteps
    … …  
    8182  PUBLIC :: chem_gasphase_integrate
    8283  PUBLIC :: initialize_kpp_ctrl
     84  PUBLIC :: get_mechanismname
    8385
    8486! END OF MODULE HEADER TEMPLATE
    … …  
    113115!
    114116! File                 : chem_gasphase_mod_Parameters.f90
    115 ! Time                 : Fri Nov 30 13:52:18 2018
    116 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20181130/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     117! Time                 : Tue Mar  5 11:50:50 2019
     118! Working directory    : /home/forkel-r/palmstuff/work/trunk20190305/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    117119! Equation file        : chem_gasphase_mod.kpp
    118120! Output root filename : chem_gasphase_mod
    … …  
    187189!
    188190! File                 : chem_gasphase_mod_Global.f90
    189 ! Time                 : Fri Nov 30 13:52:18 2018
    190 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20181130/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     191! Time                 : Tue Mar  5 11:50:50 2019
     192! Working directory    : /home/forkel-r/palmstuff/work/trunk20190305/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    191193! Equation file        : chem_gasphase_mod.kpp
    192194! Output root filename : chem_gasphase_mod
    … …  
    233235  REAL(kind=dp):: fakt
    234236
     237! CS_MECH for check of mechanism name with namelist
     238  CHARACTER(len=30):: cs_mech
    235239
    236240! INLINED global variable declarations
    … …  
    253257!
    254258! File                 : chem_gasphase_mod_JacobianSP.f90
    255 ! Time                 : Fri Nov 30 13:52:18 2018
    256 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20181130/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     259! Time                 : Tue Mar  5 11:50:50 2019
     260! Working directory    : /home/forkel-r/palmstuff/work/trunk20190305/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    257261! Equation file        : chem_gasphase_mod.kpp
    258262! Output root filename : chem_gasphase_mod
    … …  
    297301!
    298302! File                 : chem_gasphase_mod_Monitor.f90
    299 ! Time                 : Fri Nov 30 13:52:18 2018
    300 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20181130/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     303! Time                 : Tue Mar  5 11:50:50 2019
     304! Working directory    : /home/forkel-r/palmstuff/work/trunk20190305/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    301305! Equation file        : chem_gasphase_mod.kpp
    302306! Output root filename : chem_gasphase_mod
    … …  
    356360!
    357361! File                 : chem_gasphase_mod_Initialize.f90
    358 ! Time                 : Fri Nov 30 13:52:18 2018
    359 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20181130/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     362! Time                 : Tue Mar  5 11:50:50 2019
     363! Working directory    : /home/forkel-r/palmstuff/work/trunk20190305/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    360364! Equation file        : chem_gasphase_mod.kpp
    361365! Output root filename : chem_gasphase_mod
    … …  
    382386!
    383387! File                 : chem_gasphase_mod_Integrator.f90
    384 ! Time                 : Fri Nov 30 13:52:18 2018
    385 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20181130/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     388! Time                 : Tue Mar  5 11:50:50 2019
     389! Working directory    : /home/forkel-r/palmstuff/work/trunk20190305/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    386390! Equation file        : chem_gasphase_mod.kpp
    387391! Output root filename : chem_gasphase_mod
    … …  
    440444!
    441445! File                 : chem_gasphase_mod_LinearAlgebra.f90
    442 ! Time                 : Fri Nov 30 13:52:18 2018
    443 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20181130/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     446! Time                 : Tue Mar  5 11:50:50 2019
     447! Working directory    : /home/forkel-r/palmstuff/work/trunk20190305/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    444448! Equation file        : chem_gasphase_mod.kpp
    445449! Output root filename : chem_gasphase_mod
    … …  
    467471!
    468472! File                 : chem_gasphase_mod_Jacobian.f90
    469 ! Time                 : Fri Nov 30 13:52:18 2018
    470 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20181130/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     473! Time                 : Tue Mar  5 11:50:50 2019
     474! Working directory    : /home/forkel-r/palmstuff/work/trunk20190305/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    471475! Equation file        : chem_gasphase_mod.kpp
    472476! Output root filename : chem_gasphase_mod
    … …  
    494498!
    495499! File                 : chem_gasphase_mod_Function.f90
    496 ! Time                 : Fri Nov 30 13:52:18 2018
    497 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20181130/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     500! Time                 : Tue Mar  5 11:50:50 2019
     501! Working directory    : /home/forkel-r/palmstuff/work/trunk20190305/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    498502! Equation file        : chem_gasphase_mod.kpp
    499503! Output root filename : chem_gasphase_mod
    … …  
    523527!
    524528! File                 : chem_gasphase_mod_Rates.f90
    525 ! Time                 : Fri Nov 30 13:52:18 2018
    526 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20181130/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     529! Time                 : Tue Mar  5 11:50:50 2019
     530! Working directory    : /home/forkel-r/palmstuff/work/trunk20190305/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    527531! Equation file        : chem_gasphase_mod.kpp
    528532! Output root filename : chem_gasphase_mod
    … …  
    549553!
    550554! File                 : chem_gasphase_mod_Util.f90
    551 ! Time                 : Fri Nov 30 13:52:18 2018
    552 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20181130/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     555! Time                 : Tue Mar  5 11:50:50 2019
     556! Working directory    : /home/forkel-r/palmstuff/work/trunk20190305/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    553557! Equation file        : chem_gasphase_mod.kpp
    554558! Output root filename : chem_gasphase_mod
    … …  
    655659    MODULE PROCEDURE   kppdecomp
    656660  END INTERFACE        kppdecomp
     661 
     662  INTERFACE            get_mechanismname
     663    MODULE PROCEDURE   get_mechanismname
     664  END INTERFACE        get_mechanismname
    657665 
    658666  INTERFACE            chem_gasphase_integrate
    … …  
    22122220  END SUBROUTINE kppdecomp                                           
    22132221 
     2222SUBROUTINE get_mechanismname                                       
     2223                                                                   
     2224  IMPLICIT NONE                                                     
     2225
     2226! Set cs_mech for check with mechanism name from namelist
     2227    cs_mech = 'passive1'
     2228                                                                   
     2229  RETURN                                                           
     2230END SUBROUTINE get_mechanismname                                   
     2231                                                                   
     2232 
    22142233SUBROUTINE chem_gasphase_integrate (time_step_len, conc, tempi, qvapi, fakti, photo, ierrf, xnacc, xnrej, istatus, l_debug, pe, &
    22152234                     icntrl_i, rcntrl_i)
    … …  
    22972316                                                                   
    22982317  RETURN                                                           
    2299 END SUBROUTINE chem_gasphase_integrate                                       
     2318END SUBROUTINE chem_gasphase_integrate                             
    23002319
    23012320END MODULE chem_gasphase_mod

  • palm/trunk/UTIL/chemistry/gasphase_preproc/mechanisms/def_phstat/chem_gasphase_mod.f90

    r3698 r3780  
    6565!         ,REQ_MCFCT,IP_MAX,jname
    6666
     67  PUBLIC :: cs_mech
    6768  PUBLIC :: eqn_names, phot_names, spc_names
    6869  PUBLIC :: nmaxfixsteps
    … …  
    8182  PUBLIC :: chem_gasphase_integrate
    8283  PUBLIC :: initialize_kpp_ctrl
     84  PUBLIC :: get_mechanismname
    8385
    8486! END OF MODULE HEADER TEMPLATE
    … …  
    113115!
    114116! File                 : chem_gasphase_mod_Parameters.f90
    115 ! Time                 : Fri Nov 30 13:52:19 2018
    116 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20181130/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     117! Time                 : Tue Mar  5 11:50:50 2019
     118! Working directory    : /home/forkel-r/palmstuff/work/trunk20190305/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    117119! Equation file        : chem_gasphase_mod.kpp
    118120! Output root filename : chem_gasphase_mod
    … …  
    189191!
    190192! File                 : chem_gasphase_mod_Global.f90
    191 ! Time                 : Fri Nov 30 13:52:19 2018
    192 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20181130/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     193! Time                 : Tue Mar  5 11:50:50 2019
     194! Working directory    : /home/forkel-r/palmstuff/work/trunk20190305/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    193195! Equation file        : chem_gasphase_mod.kpp
    194196! Output root filename : chem_gasphase_mod
    … …  
    235237  REAL(kind=dp):: fakt
    236238
     239! CS_MECH for check of mechanism name with namelist
     240  CHARACTER(len=30):: cs_mech
    237241
    238242! INLINED global variable declarations
    … …  
    255259!
    256260! File                 : chem_gasphase_mod_JacobianSP.f90
    257 ! Time                 : Fri Nov 30 13:52:19 2018
    258 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20181130/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     261! Time                 : Tue Mar  5 11:50:50 2019
     262! Working directory    : /home/forkel-r/palmstuff/work/trunk20190305/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    259263! Equation file        : chem_gasphase_mod.kpp
    260264! Output root filename : chem_gasphase_mod
    … …  
    299303!
    300304! File                 : chem_gasphase_mod_Monitor.f90
    301 ! Time                 : Fri Nov 30 13:52:19 2018
    302 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20181130/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     305! Time                 : Tue Mar  5 11:50:50 2019
     306! Working directory    : /home/forkel-r/palmstuff/work/trunk20190305/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    303307! Equation file        : chem_gasphase_mod.kpp
    304308! Output root filename : chem_gasphase_mod
    … …  
    359363!
    360364! File                 : chem_gasphase_mod_Initialize.f90
    361 ! Time                 : Fri Nov 30 13:52:19 2018
    362 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20181130/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     365! Time                 : Tue Mar  5 11:50:50 2019
     366! Working directory    : /home/forkel-r/palmstuff/work/trunk20190305/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    363367! Equation file        : chem_gasphase_mod.kpp
    364368! Output root filename : chem_gasphase_mod
    … …  
    385389!
    386390! File                 : chem_gasphase_mod_Integrator.f90
    387 ! Time                 : Fri Nov 30 13:52:19 2018
    388 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20181130/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     391! Time                 : Tue Mar  5 11:50:50 2019
     392! Working directory    : /home/forkel-r/palmstuff/work/trunk20190305/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    389393! Equation file        : chem_gasphase_mod.kpp
    390394! Output root filename : chem_gasphase_mod
    … …  
    443447!
    444448! File                 : chem_gasphase_mod_LinearAlgebra.f90
    445 ! Time                 : Fri Nov 30 13:52:19 2018
    446 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20181130/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     449! Time                 : Tue Mar  5 11:50:50 2019
     450! Working directory    : /home/forkel-r/palmstuff/work/trunk20190305/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    447451! Equation file        : chem_gasphase_mod.kpp
    448452! Output root filename : chem_gasphase_mod
    … …  
    470474!
    471475! File                 : chem_gasphase_mod_Jacobian.f90
    472 ! Time                 : Fri Nov 30 13:52:19 2018
    473 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20181130/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     476! Time                 : Tue Mar  5 11:50:50 2019
     477! Working directory    : /home/forkel-r/palmstuff/work/trunk20190305/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    474478! Equation file        : chem_gasphase_mod.kpp
    475479! Output root filename : chem_gasphase_mod
    … …  
    497501!
    498502! File                 : chem_gasphase_mod_Function.f90
    499 ! Time                 : Fri Nov 30 13:52:19 2018
    500 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20181130/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     503! Time                 : Tue Mar  5 11:50:50 2019
     504! Working directory    : /home/forkel-r/palmstuff/work/trunk20190305/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    501505! Equation file        : chem_gasphase_mod.kpp
    502506! Output root filename : chem_gasphase_mod
    … …  
    526530!
    527531! File                 : chem_gasphase_mod_Rates.f90
    528 ! Time                 : Fri Nov 30 13:52:19 2018
    529 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20181130/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     532! Time                 : Tue Mar  5 11:50:50 2019
     533! Working directory    : /home/forkel-r/palmstuff/work/trunk20190305/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    530534! Equation file        : chem_gasphase_mod.kpp
    531535! Output root filename : chem_gasphase_mod
    … …  
    552556!
    553557! File                 : chem_gasphase_mod_Util.f90
    554 ! Time                 : Fri Nov 30 13:52:19 2018
    555 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20181130/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     558! Time                 : Tue Mar  5 11:50:50 2019
     559! Working directory    : /home/forkel-r/palmstuff/work/trunk20190305/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    556560! Equation file        : chem_gasphase_mod.kpp
    557561! Output root filename : chem_gasphase_mod
    … …  
    658662    MODULE PROCEDURE   kppdecomp
    659663  END INTERFACE        kppdecomp
     664 
     665  INTERFACE            get_mechanismname
     666    MODULE PROCEDURE   get_mechanismname
     667  END INTERFACE        get_mechanismname
    660668 
    661669  INTERFACE            chem_gasphase_integrate
    … …  
    22532261  END SUBROUTINE kppdecomp                                           
    22542262 
     2263SUBROUTINE get_mechanismname                                       
     2264                                                                   
     2265  IMPLICIT NONE                                                     
     2266
     2267! Set cs_mech for check with mechanism name from namelist
     2268    cs_mech = 'phstat'
     2269                                                                   
     2270  RETURN                                                           
     2271END SUBROUTINE get_mechanismname                                   
     2272                                                                   
     2273 
    22552274SUBROUTINE chem_gasphase_integrate (time_step_len, conc, tempi, qvapi, fakti, photo, ierrf, xnacc, xnrej, istatus, l_debug, pe, &
    22562275                     icntrl_i, rcntrl_i)
    … …  
    23382357                                                                   
    23392358  RETURN                                                           
    2340 END SUBROUTINE chem_gasphase_integrate                                       
     2359END SUBROUTINE chem_gasphase_integrate                             
    23412360
    23422361END MODULE chem_gasphase_mod

  • palm/trunk/UTIL/chemistry/gasphase_preproc/mechanisms/def_phstatp/chem_gasphase_mod.f90

    r3698 r3780  
    6565!         ,REQ_MCFCT,IP_MAX,jname
    6666
     67  PUBLIC :: cs_mech
    6768  PUBLIC :: eqn_names, phot_names, spc_names
    6869  PUBLIC :: nmaxfixsteps
    … …  
    8182  PUBLIC :: chem_gasphase_integrate
    8283  PUBLIC :: initialize_kpp_ctrl
     84  PUBLIC :: get_mechanismname
    8385
    8486! END OF MODULE HEADER TEMPLATE
    … …  
    113115!
    114116! File                 : chem_gasphase_mod_Parameters.f90
    115 ! Time                 : Fri Nov 30 13:52:19 2018
    116 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20181130/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     117! Time                 : Tue Mar  5 11:50:53 2019
     118! Working directory    : /home/forkel-r/palmstuff/work/trunk20190305/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    117119! Equation file        : chem_gasphase_mod.kpp
    118120! Output root filename : chem_gasphase_mod
    … …  
    190192!
    191193! File                 : chem_gasphase_mod_Global.f90
    192 ! Time                 : Fri Nov 30 13:52:19 2018
    193 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20181130/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     194! Time                 : Tue Mar  5 11:50:53 2019
     195! Working directory    : /home/forkel-r/palmstuff/work/trunk20190305/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    194196! Equation file        : chem_gasphase_mod.kpp
    195197! Output root filename : chem_gasphase_mod
    … …  
    236238  REAL(kind=dp):: fakt
    237239
     240! CS_MECH for check of mechanism name with namelist
     241  CHARACTER(len=30):: cs_mech
    238242
    239243! INLINED global variable declarations
    … …  
    256260!
    257261! File                 : chem_gasphase_mod_JacobianSP.f90
    258 ! Time                 : Fri Nov 30 13:52:19 2018
    259 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20181130/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     262! Time                 : Tue Mar  5 11:50:53 2019
     263! Working directory    : /home/forkel-r/palmstuff/work/trunk20190305/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    260264! Equation file        : chem_gasphase_mod.kpp
    261265! Output root filename : chem_gasphase_mod
    … …  
    300304!
    301305! File                 : chem_gasphase_mod_Monitor.f90
    302 ! Time                 : Fri Nov 30 13:52:19 2018
    303 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20181130/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     306! Time                 : Tue Mar  5 11:50:53 2019
     307! Working directory    : /home/forkel-r/palmstuff/work/trunk20190305/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    304308! Equation file        : chem_gasphase_mod.kpp
    305309! Output root filename : chem_gasphase_mod
    … …  
    362366!
    363367! File                 : chem_gasphase_mod_Initialize.f90
    364 ! Time                 : Fri Nov 30 13:52:19 2018
    365 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20181130/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     368! Time                 : Tue Mar  5 11:50:53 2019
     369! Working directory    : /home/forkel-r/palmstuff/work/trunk20190305/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    366370! Equation file        : chem_gasphase_mod.kpp
    367371! Output root filename : chem_gasphase_mod
    … …  
    388392!
    389393! File                 : chem_gasphase_mod_Integrator.f90
    390 ! Time                 : Fri Nov 30 13:52:19 2018
    391 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20181130/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     394! Time                 : Tue Mar  5 11:50:53 2019
     395! Working directory    : /home/forkel-r/palmstuff/work/trunk20190305/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    392396! Equation file        : chem_gasphase_mod.kpp
    393397! Output root filename : chem_gasphase_mod
    … …  
    446450!
    447451! File                 : chem_gasphase_mod_LinearAlgebra.f90
    448 ! Time                 : Fri Nov 30 13:52:19 2018
    449 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20181130/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     452! Time                 : Tue Mar  5 11:50:53 2019
     453! Working directory    : /home/forkel-r/palmstuff/work/trunk20190305/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    450454! Equation file        : chem_gasphase_mod.kpp
    451455! Output root filename : chem_gasphase_mod
    … …  
    473477!
    474478! File                 : chem_gasphase_mod_Jacobian.f90
    475 ! Time                 : Fri Nov 30 13:52:19 2018
    476 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20181130/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     479! Time                 : Tue Mar  5 11:50:53 2019
     480! Working directory    : /home/forkel-r/palmstuff/work/trunk20190305/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    477481! Equation file        : chem_gasphase_mod.kpp
    478482! Output root filename : chem_gasphase_mod
    … …  
    500504!
    501505! File                 : chem_gasphase_mod_Function.f90
    502 ! Time                 : Fri Nov 30 13:52:19 2018
    503 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20181130/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     506! Time                 : Tue Mar  5 11:50:53 2019
     507! Working directory    : /home/forkel-r/palmstuff/work/trunk20190305/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    504508! Equation file        : chem_gasphase_mod.kpp
    505509! Output root filename : chem_gasphase_mod
    … …  
    529533!
    530534! File                 : chem_gasphase_mod_Rates.f90
    531 ! Time                 : Fri Nov 30 13:52:19 2018
    532 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20181130/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     535! Time                 : Tue Mar  5 11:50:53 2019
     536! Working directory    : /home/forkel-r/palmstuff/work/trunk20190305/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    533537! Equation file        : chem_gasphase_mod.kpp
    534538! Output root filename : chem_gasphase_mod
    … …  
    555559!
    556560! File                 : chem_gasphase_mod_Util.f90
    557 ! Time                 : Fri Nov 30 13:52:19 2018
    558 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20181130/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     561! Time                 : Tue Mar  5 11:50:53 2019
     562! Working directory    : /home/forkel-r/palmstuff/work/trunk20190305/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    559563! Equation file        : chem_gasphase_mod.kpp
    560564! Output root filename : chem_gasphase_mod
    … …  
    661665    MODULE PROCEDURE   kppdecomp
    662666  END INTERFACE        kppdecomp
     667 
     668  INTERFACE            get_mechanismname
     669    MODULE PROCEDURE   get_mechanismname
     670  END INTERFACE        get_mechanismname
    663671 
    664672  INTERFACE            chem_gasphase_integrate
    … …  
    22642272  END SUBROUTINE kppdecomp                                           
    22652273 
     2274SUBROUTINE get_mechanismname                                       
     2275                                                                   
     2276  IMPLICIT NONE                                                     
     2277
     2278! Set cs_mech for check with mechanism name from namelist
     2279    cs_mech = 'phstatp'
     2280                                                                   
     2281  RETURN                                                           
     2282END SUBROUTINE get_mechanismname                                   
     2283                                                                   
     2284 
    22662285SUBROUTINE chem_gasphase_integrate (time_step_len, conc, tempi, qvapi, fakti, photo, ierrf, xnacc, xnrej, istatus, l_debug, pe, &
    22672286                     icntrl_i, rcntrl_i)
    … …  
    23492368                                                                   
    23502369  RETURN                                                           
    2351 END SUBROUTINE chem_gasphase_integrate                                       
     2370END SUBROUTINE chem_gasphase_integrate                             
    23522371
    23532372END MODULE chem_gasphase_mod

  • palm/trunk/UTIL/chemistry/gasphase_preproc/mechanisms/def_salsa+phstat/chem_gasphase_mod.f90

    r3709 r3780  
    6565!         ,REQ_MCFCT,IP_MAX,jname
    6666
     67  PUBLIC :: cs_mech
    6768  PUBLIC :: eqn_names, phot_names, spc_names
    6869  PUBLIC :: nmaxfixsteps
    … …  
    8182  PUBLIC :: chem_gasphase_integrate
    8283  PUBLIC :: initialize_kpp_ctrl
     84  PUBLIC :: get_mechanismname
    8385
    8486! END OF MODULE HEADER TEMPLATE
    … …  
    113115!
    114116! File                 : chem_gasphase_mod_Parameters.f90
    115 ! Time                 : Fri Nov 30 13:52:20 2018
    116 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20181130/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     117! Time                 : Tue Mar  5 11:50:51 2019
     118! Working directory    : /home/forkel-r/palmstuff/work/trunk20190305/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    117119! Equation file        : chem_gasphase_mod.kpp
    118120! Output root filename : chem_gasphase_mod
    … …  
    189191!
    190192! File                 : chem_gasphase_mod_Global.f90
    191 ! Time                 : Fri Nov 30 13:52:20 2018
    192 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20181130/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     193! Time                 : Tue Mar  5 11:50:51 2019
     194! Working directory    : /home/forkel-r/palmstuff/work/trunk20190305/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    193195! Equation file        : chem_gasphase_mod.kpp
    194196! Output root filename : chem_gasphase_mod
    … …  
    244246  REAL(kind=dp):: fakt
    245247
     248! CS_MECH for check of mechanism name with namelist
     249  CHARACTER(len=30):: cs_mech
    246250
    247251! INLINED global variable declarations
    … …  
    264268!
    265269! File                 : chem_gasphase_mod_JacobianSP.f90
    266 ! Time                 : Fri Nov 30 13:52:20 2018
    267 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20181130/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     270! Time                 : Tue Mar  5 11:50:51 2019
     271! Working directory    : /home/forkel-r/palmstuff/work/trunk20190305/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    268272! Equation file        : chem_gasphase_mod.kpp
    269273! Output root filename : chem_gasphase_mod
    … …  
    308312!
    309313! File                 : chem_gasphase_mod_Monitor.f90
    310 ! Time                 : Fri Nov 30 13:52:20 2018
    311 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20181130/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     314! Time                 : Tue Mar  5 11:50:51 2019
     315! Working directory    : /home/forkel-r/palmstuff/work/trunk20190305/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    312316! Equation file        : chem_gasphase_mod.kpp
    313317! Output root filename : chem_gasphase_mod
    … …  
    368372!
    369373! File                 : chem_gasphase_mod_Initialize.f90
    370 ! Time                 : Fri Nov 30 13:52:20 2018
    371 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20181130/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     374! Time                 : Tue Mar  5 11:50:51 2019
     375! Working directory    : /home/forkel-r/palmstuff/work/trunk20190305/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    372376! Equation file        : chem_gasphase_mod.kpp
    373377! Output root filename : chem_gasphase_mod
    … …  
    394398!
    395399! File                 : chem_gasphase_mod_Integrator.f90
    396 ! Time                 : Fri Nov 30 13:52:20 2018
    397 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20181130/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     400! Time                 : Tue Mar  5 11:50:51 2019
     401! Working directory    : /home/forkel-r/palmstuff/work/trunk20190305/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    398402! Equation file        : chem_gasphase_mod.kpp
    399403! Output root filename : chem_gasphase_mod
    … …  
    452456!
    453457! File                 : chem_gasphase_mod_LinearAlgebra.f90
    454 ! Time                 : Fri Nov 30 13:52:20 2018
    455 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20181130/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     458! Time                 : Tue Mar  5 11:50:51 2019
     459! Working directory    : /home/forkel-r/palmstuff/work/trunk20190305/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    456460! Equation file        : chem_gasphase_mod.kpp
    457461! Output root filename : chem_gasphase_mod
    … …  
    479483!
    480484! File                 : chem_gasphase_mod_Jacobian.f90
    481 ! Time                 : Fri Nov 30 13:52:20 2018
    482 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20181130/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     485! Time                 : Tue Mar  5 11:50:51 2019
     486! Working directory    : /home/forkel-r/palmstuff/work/trunk20190305/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    483487! Equation file        : chem_gasphase_mod.kpp
    484488! Output root filename : chem_gasphase_mod
    … …  
    506510!
    507511! File                 : chem_gasphase_mod_Function.f90
    508 ! Time                 : Fri Nov 30 13:52:20 2018
    509 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20181130/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     512! Time                 : Tue Mar  5 11:50:51 2019
     513! Working directory    : /home/forkel-r/palmstuff/work/trunk20190305/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    510514! Equation file        : chem_gasphase_mod.kpp
    511515! Output root filename : chem_gasphase_mod
    … …  
    535539!
    536540! File                 : chem_gasphase_mod_Rates.f90
    537 ! Time                 : Fri Nov 30 13:52:20 2018
    538 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20181130/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     541! Time                 : Tue Mar  5 11:50:51 2019
     542! Working directory    : /home/forkel-r/palmstuff/work/trunk20190305/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    539543! Equation file        : chem_gasphase_mod.kpp
    540544! Output root filename : chem_gasphase_mod
    … …  
    561565!
    562566! File                 : chem_gasphase_mod_Util.f90
    563 ! Time                 : Fri Nov 30 13:52:20 2018
    564 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20181130/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     567! Time                 : Tue Mar  5 11:50:51 2019
     568! Working directory    : /home/forkel-r/palmstuff/work/trunk20190305/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    565569! Equation file        : chem_gasphase_mod.kpp
    566570! Output root filename : chem_gasphase_mod
    … …  
    667671    MODULE PROCEDURE   kppdecomp
    668672  END INTERFACE        kppdecomp
     673 
     674  INTERFACE            get_mechanismname
     675    MODULE PROCEDURE   get_mechanismname
     676  END INTERFACE        get_mechanismname
    669677 
    670678  INTERFACE            chem_gasphase_integrate
    … …  
    22622270  END SUBROUTINE kppdecomp                                           
    22632271 
     2272SUBROUTINE get_mechanismname                                       
     2273                                                                   
     2274  IMPLICIT NONE                                                     
     2275
     2276! Set cs_mech for check with mechanism name from namelist
     2277    cs_mech = 'salsa+phstat'
     2278                                                                   
     2279  RETURN                                                           
     2280END SUBROUTINE get_mechanismname                                   
     2281                                                                   
     2282 
    22642283SUBROUTINE chem_gasphase_integrate (time_step_len, conc, tempi, qvapi, fakti, photo, ierrf, xnacc, xnrej, istatus, l_debug, pe, &
    22652284                     icntrl_i, rcntrl_i)
    … …  
    23472366                                                                   
    23482367  RETURN                                                           
    2349 END SUBROUTINE chem_gasphase_integrate                                       
     2368END SUBROUTINE chem_gasphase_integrate                             
    23502369
    23512370END MODULE chem_gasphase_mod

  • palm/trunk/UTIL/chemistry/gasphase_preproc/mechanisms/def_salsa+simple/chem_gasphase_mod.f90

    r3698 r3780  
    6565!         ,REQ_MCFCT,IP_MAX,jname
    6666
     67  PUBLIC :: cs_mech
    6768  PUBLIC :: eqn_names, phot_names, spc_names
    6869  PUBLIC :: nmaxfixsteps
    … …  
    8182  PUBLIC :: chem_gasphase_integrate
    8283  PUBLIC :: initialize_kpp_ctrl
     84  PUBLIC :: get_mechanismname
    8385
    8486! END OF MODULE HEADER TEMPLATE
    … …  
    113115!
    114116! File                 : chem_gasphase_mod_Parameters.f90
    115 ! Time                 : Thu Dec 20 14:58:04 2018
    116 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20181220/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     117! Time                 : Tue Mar  5 11:50:51 2019
     118! Working directory    : /home/forkel-r/palmstuff/work/trunk20190305/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    117119! Equation file        : chem_gasphase_mod.kpp
    118120! Output root filename : chem_gasphase_mod
    … …  
    201203!
    202204! File                 : chem_gasphase_mod_Global.f90
    203 ! Time                 : Thu Dec 20 14:58:04 2018
    204 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20181220/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     205! Time                 : Tue Mar  5 11:50:51 2019
     206! Working directory    : /home/forkel-r/palmstuff/work/trunk20190305/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    205207! Equation file        : chem_gasphase_mod.kpp
    206208! Output root filename : chem_gasphase_mod
    … …  
    254256  REAL(kind=dp):: fakt
    255257
     258! CS_MECH for check of mechanism name with namelist
     259  CHARACTER(len=30):: cs_mech
    256260
    257261! INLINED global variable declarations
    … …  
    274278!
    275279! File                 : chem_gasphase_mod_JacobianSP.f90
    276 ! Time                 : Thu Dec 20 14:58:04 2018
    277 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20181220/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     280! Time                 : Tue Mar  5 11:50:51 2019
     281! Working directory    : /home/forkel-r/palmstuff/work/trunk20190305/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    278282! Equation file        : chem_gasphase_mod.kpp
    279283! Output root filename : chem_gasphase_mod
    … …  
    326330!
    327331! File                 : chem_gasphase_mod_Monitor.f90
    328 ! Time                 : Thu Dec 20 14:58:04 2018
    329 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20181220/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     332! Time                 : Tue Mar  5 11:50:51 2019
     333! Working directory    : /home/forkel-r/palmstuff/work/trunk20190305/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    330334! Equation file        : chem_gasphase_mod.kpp
    331335! Output root filename : chem_gasphase_mod
    … …  
    400404!
    401405! File                 : chem_gasphase_mod_Initialize.f90
    402 ! Time                 : Thu Dec 20 14:58:04 2018
    403 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20181220/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     406! Time                 : Tue Mar  5 11:50:51 2019
     407! Working directory    : /home/forkel-r/palmstuff/work/trunk20190305/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    404408! Equation file        : chem_gasphase_mod.kpp
    405409! Output root filename : chem_gasphase_mod
    … …  
    426430!
    427431! File                 : chem_gasphase_mod_Integrator.f90
    428 ! Time                 : Thu Dec 20 14:58:04 2018
    429 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20181220/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     432! Time                 : Tue Mar  5 11:50:51 2019
     433! Working directory    : /home/forkel-r/palmstuff/work/trunk20190305/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    430434! Equation file        : chem_gasphase_mod.kpp
    431435! Output root filename : chem_gasphase_mod
    … …  
    484488!
    485489! File                 : chem_gasphase_mod_LinearAlgebra.f90
    486 ! Time                 : Thu Dec 20 14:58:04 2018
    487 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20181220/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     490! Time                 : Tue Mar  5 11:50:51 2019
     491! Working directory    : /home/forkel-r/palmstuff/work/trunk20190305/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    488492! Equation file        : chem_gasphase_mod.kpp
    489493! Output root filename : chem_gasphase_mod
    … …  
    511515!
    512516! File                 : chem_gasphase_mod_Jacobian.f90
    513 ! Time                 : Thu Dec 20 14:58:04 2018
    514 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20181220/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     517! Time                 : Tue Mar  5 11:50:51 2019
     518! Working directory    : /home/forkel-r/palmstuff/work/trunk20190305/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    515519! Equation file        : chem_gasphase_mod.kpp
    516520! Output root filename : chem_gasphase_mod
    … …  
    538542!
    539543! File                 : chem_gasphase_mod_Function.f90
    540 ! Time                 : Thu Dec 20 14:58:04 2018
    541 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20181220/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     544! Time                 : Tue Mar  5 11:50:51 2019
     545! Working directory    : /home/forkel-r/palmstuff/work/trunk20190305/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    542546! Equation file        : chem_gasphase_mod.kpp
    543547! Output root filename : chem_gasphase_mod
    … …  
    567571!
    568572! File                 : chem_gasphase_mod_Rates.f90
    569 ! Time                 : Thu Dec 20 14:58:04 2018
    570 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20181220/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     573! Time                 : Tue Mar  5 11:50:51 2019
     574! Working directory    : /home/forkel-r/palmstuff/work/trunk20190305/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    571575! Equation file        : chem_gasphase_mod.kpp
    572576! Output root filename : chem_gasphase_mod
    … …  
    593597!
    594598! File                 : chem_gasphase_mod_Util.f90
    595 ! Time                 : Thu Dec 20 14:58:04 2018
    596 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20181220/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     599! Time                 : Tue Mar  5 11:50:51 2019
     600! Working directory    : /home/forkel-r/palmstuff/work/trunk20190305/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    597601! Equation file        : chem_gasphase_mod.kpp
    598602! Output root filename : chem_gasphase_mod
    … …  
    699703    MODULE PROCEDURE   kppdecomp
    700704  END INTERFACE        kppdecomp
     705 
     706  INTERFACE            get_mechanismname
     707    MODULE PROCEDURE   get_mechanismname
     708  END INTERFACE        get_mechanismname
    701709 
    702710  INTERFACE            chem_gasphase_integrate
    … …  
    24532461  END SUBROUTINE kppdecomp                                           
    24542462 
     2463SUBROUTINE get_mechanismname                                       
     2464                                                                   
     2465  IMPLICIT NONE                                                     
     2466
     2467! Set cs_mech for check with mechanism name from namelist
     2468    cs_mech = 'salsa+simple'
     2469                                                                   
     2470  RETURN                                                           
     2471END SUBROUTINE get_mechanismname                                   
     2472                                                                   
     2473 
    24552474SUBROUTINE chem_gasphase_integrate (time_step_len, conc, tempi, qvapi, fakti, photo, ierrf, xnacc, xnrej, istatus, l_debug, pe, &
    24562475                     icntrl_i, rcntrl_i)
    … …  
    25382557                                                                   
    25392558  RETURN                                                           
    2540 END SUBROUTINE chem_gasphase_integrate                                       
     2559END SUBROUTINE chem_gasphase_integrate                             
    25412560
    25422561END MODULE chem_gasphase_mod

  • palm/trunk/UTIL/chemistry/gasphase_preproc/mechanisms/def_salsagas/chem_gasphase_mod.f90

    r3709 r3780  
    6565!         ,REQ_MCFCT,IP_MAX,jname
    6666
     67  PUBLIC :: cs_mech
    6768  PUBLIC :: eqn_names, phot_names, spc_names
    6869  PUBLIC :: nmaxfixsteps
    … …  
    8182  PUBLIC :: chem_gasphase_integrate
    8283  PUBLIC :: initialize_kpp_ctrl
     84  PUBLIC :: get_mechanismname
    8385
    8486! END OF MODULE HEADER TEMPLATE
    … …  
    113115!
    114116! File                 : chem_gasphase_mod_Parameters.f90
    115 ! Time                 : Fri Nov 30 13:52:19 2018
    116 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20181130/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     117! Time                 : Tue Mar  5 11:50:51 2019
     118! Working directory    : /home/forkel-r/palmstuff/work/trunk20190305/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    117119! Equation file        : chem_gasphase_mod.kpp
    118120! Output root filename : chem_gasphase_mod
    … …  
    191193!
    192194! File                 : chem_gasphase_mod_Global.f90
    193 ! Time                 : Fri Nov 30 13:52:19 2018
    194 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20181130/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     195! Time                 : Tue Mar  5 11:50:51 2019
     196! Working directory    : /home/forkel-r/palmstuff/work/trunk20190305/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    195197! Equation file        : chem_gasphase_mod.kpp
    196198! Output root filename : chem_gasphase_mod
    … …  
    239241  REAL(kind=dp):: fakt
    240242
     243! CS_MECH for check of mechanism name with namelist
     244  CHARACTER(len=30):: cs_mech
    241245
    242246! INLINED global variable declarations
    … …  
    259263!
    260264! File                 : chem_gasphase_mod_JacobianSP.f90
    261 ! Time                 : Fri Nov 30 13:52:19 2018
    262 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20181130/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     265! Time                 : Tue Mar  5 11:50:51 2019
     266! Working directory    : /home/forkel-r/palmstuff/work/trunk20190305/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    263267! Equation file        : chem_gasphase_mod.kpp
    264268! Output root filename : chem_gasphase_mod
    … …  
    303307!
    304308! File                 : chem_gasphase_mod_Monitor.f90
    305 ! Time                 : Fri Nov 30 13:52:19 2018
    306 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20181130/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     309! Time                 : Tue Mar  5 11:50:51 2019
     310! Working directory    : /home/forkel-r/palmstuff/work/trunk20190305/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    307311! Equation file        : chem_gasphase_mod.kpp
    308312! Output root filename : chem_gasphase_mod
    … …  
    367371!
    368372! File                 : chem_gasphase_mod_Initialize.f90
    369 ! Time                 : Fri Nov 30 13:52:19 2018
    370 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20181130/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     373! Time                 : Tue Mar  5 11:50:51 2019
     374! Working directory    : /home/forkel-r/palmstuff/work/trunk20190305/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    371375! Equation file        : chem_gasphase_mod.kpp
    372376! Output root filename : chem_gasphase_mod
    … …  
    393397!
    394398! File                 : chem_gasphase_mod_Integrator.f90
    395 ! Time                 : Fri Nov 30 13:52:19 2018
    396 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20181130/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     399! Time                 : Tue Mar  5 11:50:51 2019
     400! Working directory    : /home/forkel-r/palmstuff/work/trunk20190305/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    397401! Equation file        : chem_gasphase_mod.kpp
    398402! Output root filename : chem_gasphase_mod
    … …  
    451455!
    452456! File                 : chem_gasphase_mod_LinearAlgebra.f90
    453 ! Time                 : Fri Nov 30 13:52:19 2018
    454 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20181130/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     457! Time                 : Tue Mar  5 11:50:51 2019
     458! Working directory    : /home/forkel-r/palmstuff/work/trunk20190305/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    455459! Equation file        : chem_gasphase_mod.kpp
    456460! Output root filename : chem_gasphase_mod
    … …  
    478482!
    479483! File                 : chem_gasphase_mod_Jacobian.f90
    480 ! Time                 : Fri Nov 30 13:52:19 2018
    481 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20181130/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     484! Time                 : Tue Mar  5 11:50:51 2019
     485! Working directory    : /home/forkel-r/palmstuff/work/trunk20190305/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    482486! Equation file        : chem_gasphase_mod.kpp
    483487! Output root filename : chem_gasphase_mod
    … …  
    505509!
    506510! File                 : chem_gasphase_mod_Function.f90
    507 ! Time                 : Fri Nov 30 13:52:19 2018
    508 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20181130/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     511! Time                 : Tue Mar  5 11:50:51 2019
     512! Working directory    : /home/forkel-r/palmstuff/work/trunk20190305/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    509513! Equation file        : chem_gasphase_mod.kpp
    510514! Output root filename : chem_gasphase_mod
    … …  
    534538!
    535539! File                 : chem_gasphase_mod_Rates.f90
    536 ! Time                 : Fri Nov 30 13:52:19 2018
    537 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20181130/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     540! Time                 : Tue Mar  5 11:50:51 2019
     541! Working directory    : /home/forkel-r/palmstuff/work/trunk20190305/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    538542! Equation file        : chem_gasphase_mod.kpp
    539543! Output root filename : chem_gasphase_mod
    … …  
    560564!
    561565! File                 : chem_gasphase_mod_Util.f90
    562 ! Time                 : Fri Nov 30 13:52:19 2018
    563 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20181130/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     566! Time                 : Tue Mar  5 11:50:51 2019
     567! Working directory    : /home/forkel-r/palmstuff/work/trunk20190305/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    564568! Equation file        : chem_gasphase_mod.kpp
    565569! Output root filename : chem_gasphase_mod
    … …  
    666670    MODULE PROCEDURE   kppdecomp
    667671  END INTERFACE        kppdecomp
     672 
     673  INTERFACE            get_mechanismname
     674    MODULE PROCEDURE   get_mechanismname
     675  END INTERFACE        get_mechanismname
    668676 
    669677  INTERFACE            chem_gasphase_integrate
    … …  
    22552263  END SUBROUTINE kppdecomp                                           
    22562264 
     2265SUBROUTINE get_mechanismname                                       
     2266                                                                   
     2267  IMPLICIT NONE                                                     
     2268
     2269! Set cs_mech for check with mechanism name from namelist
     2270    cs_mech = 'salsagas'
     2271                                                                   
     2272  RETURN                                                           
     2273END SUBROUTINE get_mechanismname                                   
     2274                                                                   
     2275 
    22572276SUBROUTINE chem_gasphase_integrate (time_step_len, conc, tempi, qvapi, fakti, photo, ierrf, xnacc, xnrej, istatus, l_debug, pe, &
    22582277                     icntrl_i, rcntrl_i)
    … …  
    23402359                                                                   
    23412360  RETURN                                                           
    2342 END SUBROUTINE chem_gasphase_integrate                                       
     2361END SUBROUTINE chem_gasphase_integrate                             
    23432362
    23442363END MODULE chem_gasphase_mod

  • palm/trunk/UTIL/chemistry/gasphase_preproc/mechanisms/def_simple/chem_gasphase_mod.f90

    r3681 r3780  
    6565!         ,REQ_MCFCT,IP_MAX,jname
    6666
     67  PUBLIC :: cs_mech
    6768  PUBLIC :: eqn_names, phot_names, spc_names
    6869  PUBLIC :: nmaxfixsteps
    … …  
    8182  PUBLIC :: chem_gasphase_integrate
    8283  PUBLIC :: initialize_kpp_ctrl
     84  PUBLIC :: get_mechanismname
    8385
    8486! END OF MODULE HEADER TEMPLATE
    … …  
    113115!
    114116! File                 : chem_gasphase_mod_Parameters.f90
    115 ! Time                 : Thu Dec 20 14:57:44 2018
    116 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20181220/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     117! Time                 : Tue Mar  5 11:50:52 2019
     118! Working directory    : /home/forkel-r/palmstuff/work/trunk20190305/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    117119! Equation file        : chem_gasphase_mod.kpp
    118120! Output root filename : chem_gasphase_mod
    … …  
    197199!
    198200! File                 : chem_gasphase_mod_Global.f90
    199 ! Time                 : Thu Dec 20 14:57:44 2018
    200 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20181220/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     201! Time                 : Tue Mar  5 11:50:52 2019
     202! Working directory    : /home/forkel-r/palmstuff/work/trunk20190305/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    201203! Equation file        : chem_gasphase_mod.kpp
    202204! Output root filename : chem_gasphase_mod
    … …  
    244246  REAL(kind=dp):: fakt
    245247
     248! CS_MECH for check of mechanism name with namelist
     249  CHARACTER(len=30):: cs_mech
    246250
    247251! INLINED global variable declarations
    … …  
    264268!
    265269! File                 : chem_gasphase_mod_JacobianSP.f90
    266 ! Time                 : Thu Dec 20 14:57:44 2018
    267 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20181220/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     270! Time                 : Tue Mar  5 11:50:52 2019
     271! Working directory    : /home/forkel-r/palmstuff/work/trunk20190305/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    268272! Equation file        : chem_gasphase_mod.kpp
    269273! Output root filename : chem_gasphase_mod
    … …  
    314318!
    315319! File                 : chem_gasphase_mod_Monitor.f90
    316 ! Time                 : Thu Dec 20 14:57:44 2018
    317 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20181220/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     320! Time                 : Tue Mar  5 11:50:52 2019
     321! Working directory    : /home/forkel-r/palmstuff/work/trunk20190305/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    318322! Equation file        : chem_gasphase_mod.kpp
    319323! Output root filename : chem_gasphase_mod
    … …  
    383387!
    384388! File                 : chem_gasphase_mod_Initialize.f90
    385 ! Time                 : Thu Dec 20 14:57:44 2018
    386 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20181220/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     389! Time                 : Tue Mar  5 11:50:52 2019
     390! Working directory    : /home/forkel-r/palmstuff/work/trunk20190305/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    387391! Equation file        : chem_gasphase_mod.kpp
    388392! Output root filename : chem_gasphase_mod
    … …  
    409413!
    410414! File                 : chem_gasphase_mod_Integrator.f90
    411 ! Time                 : Thu Dec 20 14:57:44 2018
    412 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20181220/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     415! Time                 : Tue Mar  5 11:50:52 2019
     416! Working directory    : /home/forkel-r/palmstuff/work/trunk20190305/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    413417! Equation file        : chem_gasphase_mod.kpp
    414418! Output root filename : chem_gasphase_mod
    … …  
    467471!
    468472! File                 : chem_gasphase_mod_LinearAlgebra.f90
    469 ! Time                 : Thu Dec 20 14:57:44 2018
    470 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20181220/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     473! Time                 : Tue Mar  5 11:50:52 2019
     474! Working directory    : /home/forkel-r/palmstuff/work/trunk20190305/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    471475! Equation file        : chem_gasphase_mod.kpp
    472476! Output root filename : chem_gasphase_mod
    … …  
    494498!
    495499! File                 : chem_gasphase_mod_Jacobian.f90
    496 ! Time                 : Thu Dec 20 14:57:44 2018
    497 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20181220/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     500! Time                 : Tue Mar  5 11:50:52 2019
     501! Working directory    : /home/forkel-r/palmstuff/work/trunk20190305/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    498502! Equation file        : chem_gasphase_mod.kpp
    499503! Output root filename : chem_gasphase_mod
    … …  
    521525!
    522526! File                 : chem_gasphase_mod_Function.f90
    523 ! Time                 : Thu Dec 20 14:57:44 2018
    524 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20181220/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     527! Time                 : Tue Mar  5 11:50:52 2019
     528! Working directory    : /home/forkel-r/palmstuff/work/trunk20190305/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    525529! Equation file        : chem_gasphase_mod.kpp
    526530! Output root filename : chem_gasphase_mod
    … …  
    550554!
    551555! File                 : chem_gasphase_mod_Rates.f90
    552 ! Time                 : Thu Dec 20 14:57:44 2018
    553 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20181220/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     556! Time                 : Tue Mar  5 11:50:52 2019
     557! Working directory    : /home/forkel-r/palmstuff/work/trunk20190305/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    554558! Equation file        : chem_gasphase_mod.kpp
    555559! Output root filename : chem_gasphase_mod
    … …  
    576580!
    577581! File                 : chem_gasphase_mod_Util.f90
    578 ! Time                 : Thu Dec 20 14:57:44 2018
    579 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20181220/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     582! Time                 : Tue Mar  5 11:50:52 2019
     583! Working directory    : /home/forkel-r/palmstuff/work/trunk20190305/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    580584! Equation file        : chem_gasphase_mod.kpp
    581585! Output root filename : chem_gasphase_mod
    … …  
    682686    MODULE PROCEDURE   kppdecomp
    683687  END INTERFACE        kppdecomp
     688 
     689  INTERFACE            get_mechanismname
     690    MODULE PROCEDURE   get_mechanismname
     691  END INTERFACE        get_mechanismname
    684692 
    685693  INTERFACE            chem_gasphase_integrate
    … …  
    24052413  END SUBROUTINE kppdecomp                                           
    24062414 
     2415SUBROUTINE get_mechanismname                                       
     2416                                                                   
     2417  IMPLICIT NONE                                                     
     2418
     2419! Set cs_mech for check with mechanism name from namelist
     2420    cs_mech = 'simple'
     2421                                                                   
     2422  RETURN                                                           
     2423END SUBROUTINE get_mechanismname                                   
     2424                                                                   
     2425 
    24072426SUBROUTINE chem_gasphase_integrate (time_step_len, conc, tempi, qvapi, fakti, photo, ierrf, xnacc, xnrej, istatus, l_debug, pe, &
    24082427                     icntrl_i, rcntrl_i)
    … …  
    24902509                                                                   
    24912510  RETURN                                                           
    2492 END SUBROUTINE chem_gasphase_integrate                                       
     2511END SUBROUTINE chem_gasphase_integrate                             
    24932512
    24942513END MODULE chem_gasphase_mod

  • palm/trunk/UTIL/chemistry/gasphase_preproc/mechanisms/def_simplep/chem_gasphase_mod.f90

    r3698 r3780  
    6565!         ,REQ_MCFCT,IP_MAX,jname
    6666
     67  PUBLIC :: cs_mech
    6768  PUBLIC :: eqn_names, phot_names, spc_names
    6869  PUBLIC :: nmaxfixsteps
    … …  
    8182  PUBLIC :: chem_gasphase_integrate
    8283  PUBLIC :: initialize_kpp_ctrl
     84  PUBLIC :: get_mechanismname
    8385
    8486! END OF MODULE HEADER TEMPLATE
    … …  
    113115!
    114116! File                 : chem_gasphase_mod_Parameters.f90
    115 ! Time                 : Thu Dec 20 14:57:53 2018
    116 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20181220/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     117! Time                 : Tue Mar  5 11:50:52 2019
     118! Working directory    : /home/forkel-r/palmstuff/work/trunk20190305/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    117119! Equation file        : chem_gasphase_mod.kpp
    118120! Output root filename : chem_gasphase_mod
    … …  
    198200!
    199201! File                 : chem_gasphase_mod_Global.f90
    200 ! Time                 : Thu Dec 20 14:57:53 2018
    201 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20181220/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     202! Time                 : Tue Mar  5 11:50:52 2019
     203! Working directory    : /home/forkel-r/palmstuff/work/trunk20190305/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    202204! Equation file        : chem_gasphase_mod.kpp
    203205! Output root filename : chem_gasphase_mod
    … …  
    245247  REAL(kind=dp):: fakt
    246248
     249! CS_MECH for check of mechanism name with namelist
     250  CHARACTER(len=30):: cs_mech
    247251
    248252! INLINED global variable declarations
    … …  
    265269!
    266270! File                 : chem_gasphase_mod_JacobianSP.f90
    267 ! Time                 : Thu Dec 20 14:57:53 2018
    268 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20181220/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     271! Time                 : Tue Mar  5 11:50:52 2019
     272! Working directory    : /home/forkel-r/palmstuff/work/trunk20190305/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    269273! Equation file        : chem_gasphase_mod.kpp
    270274! Output root filename : chem_gasphase_mod
    … …  
    315319!
    316320! File                 : chem_gasphase_mod_Monitor.f90
    317 ! Time                 : Thu Dec 20 14:57:53 2018
    318 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20181220/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     321! Time                 : Tue Mar  5 11:50:52 2019
     322! Working directory    : /home/forkel-r/palmstuff/work/trunk20190305/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    319323! Equation file        : chem_gasphase_mod.kpp
    320324! Output root filename : chem_gasphase_mod
    … …  
    385389!
    386390! File                 : chem_gasphase_mod_Initialize.f90
    387 ! Time                 : Thu Dec 20 14:57:53 2018
    388 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20181220/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     391! Time                 : Tue Mar  5 11:50:52 2019
     392! Working directory    : /home/forkel-r/palmstuff/work/trunk20190305/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    389393! Equation file        : chem_gasphase_mod.kpp
    390394! Output root filename : chem_gasphase_mod
    … …  
    411415!
    412416! File                 : chem_gasphase_mod_Integrator.f90
    413 ! Time                 : Thu Dec 20 14:57:53 2018
    414 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20181220/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     417! Time                 : Tue Mar  5 11:50:52 2019
     418! Working directory    : /home/forkel-r/palmstuff/work/trunk20190305/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    415419! Equation file        : chem_gasphase_mod.kpp
    416420! Output root filename : chem_gasphase_mod
    … …  
    469473!
    470474! File                 : chem_gasphase_mod_LinearAlgebra.f90
    471 ! Time                 : Thu Dec 20 14:57:53 2018
    472 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20181220/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     475! Time                 : Tue Mar  5 11:50:52 2019
     476! Working directory    : /home/forkel-r/palmstuff/work/trunk20190305/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    473477! Equation file        : chem_gasphase_mod.kpp
    474478! Output root filename : chem_gasphase_mod
    … …  
    496500!
    497501! File                 : chem_gasphase_mod_Jacobian.f90
    498 ! Time                 : Thu Dec 20 14:57:53 2018
    499 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20181220/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     502! Time                 : Tue Mar  5 11:50:52 2019
     503! Working directory    : /home/forkel-r/palmstuff/work/trunk20190305/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    500504! Equation file        : chem_gasphase_mod.kpp
    501505! Output root filename : chem_gasphase_mod
    … …  
    523527!
    524528! File                 : chem_gasphase_mod_Function.f90
    525 ! Time                 : Thu Dec 20 14:57:53 2018
    526 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20181220/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     529! Time                 : Tue Mar  5 11:50:52 2019
     530! Working directory    : /home/forkel-r/palmstuff/work/trunk20190305/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    527531! Equation file        : chem_gasphase_mod.kpp
    528532! Output root filename : chem_gasphase_mod
    … …  
    552556!
    553557! File                 : chem_gasphase_mod_Rates.f90
    554 ! Time                 : Thu Dec 20 14:57:53 2018
    555 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20181220/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     558! Time                 : Tue Mar  5 11:50:52 2019
     559! Working directory    : /home/forkel-r/palmstuff/work/trunk20190305/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    556560! Equation file        : chem_gasphase_mod.kpp
    557561! Output root filename : chem_gasphase_mod
    … …  
    578582!
    579583! File                 : chem_gasphase_mod_Util.f90
    580 ! Time                 : Thu Dec 20 14:57:53 2018
    581 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20181220/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     584! Time                 : Tue Mar  5 11:50:52 2019
     585! Working directory    : /home/forkel-r/palmstuff/work/trunk20190305/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    582586! Equation file        : chem_gasphase_mod.kpp
    583587! Output root filename : chem_gasphase_mod
    … …  
    684688    MODULE PROCEDURE   kppdecomp
    685689  END INTERFACE        kppdecomp
     690 
     691  INTERFACE            get_mechanismname
     692    MODULE PROCEDURE   get_mechanismname
     693  END INTERFACE        get_mechanismname
    686694 
    687695  INTERFACE            chem_gasphase_integrate
    … …  
    24112419  END SUBROUTINE kppdecomp                                           
    24122420 
     2421SUBROUTINE get_mechanismname                                       
     2422                                                                   
     2423  IMPLICIT NONE                                                     
     2424
     2425! Set cs_mech for check with mechanism name from namelist
     2426    cs_mech = 'simplep'
     2427                                                                   
     2428  RETURN                                                           
     2429END SUBROUTINE get_mechanismname                                   
     2430                                                                   
     2431 
    24132432SUBROUTINE chem_gasphase_integrate (time_step_len, conc, tempi, qvapi, fakti, photo, ierrf, xnacc, xnrej, istatus, l_debug, pe, &
    24142433                     icntrl_i, rcntrl_i)
    … …  
    24962515                                                                   
    24972516  RETURN                                                           
    2498 END SUBROUTINE chem_gasphase_integrate                                       
     2517END SUBROUTINE chem_gasphase_integrate                             
    24992518
    25002519END MODULE chem_gasphase_mod

  • palm/trunk/UTIL/chemistry/gasphase_preproc/mechanisms/def_smog/chem_gasphase_mod.f90

    r3681 r3780  
    6565!         ,REQ_MCFCT,IP_MAX,jname
    6666
     67  PUBLIC :: cs_mech
    6768  PUBLIC :: eqn_names, phot_names, spc_names
    6869  PUBLIC :: nmaxfixsteps
    … …  
    8182  PUBLIC :: chem_gasphase_integrate
    8283  PUBLIC :: initialize_kpp_ctrl
     84  PUBLIC :: get_mechanismname
    8385
    8486! END OF MODULE HEADER TEMPLATE
    … …  
    113115!
    114116! File                 : chem_gasphase_mod_Parameters.f90
    115 ! Time                 : Fri Nov 30 13:52:21 2018
    116 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20181130/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     117! Time                 : Tue Mar  5 11:50:53 2019
     118! Working directory    : /home/forkel-r/palmstuff/work/trunk20190305/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    117119! Equation file        : chem_gasphase_mod.kpp
    118120! Output root filename : chem_gasphase_mod
    … …  
    205207!
    206208! File                 : chem_gasphase_mod_Global.f90
    207 ! Time                 : Fri Nov 30 13:52:21 2018
    208 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20181130/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     209! Time                 : Tue Mar  5 11:50:53 2019
     210! Working directory    : /home/forkel-r/palmstuff/work/trunk20190305/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    209211! Equation file        : chem_gasphase_mod.kpp
    210212! Output root filename : chem_gasphase_mod
    … …  
    252254  REAL(kind=dp):: fakt
    253255
     256! CS_MECH for check of mechanism name with namelist
     257  CHARACTER(len=30):: cs_mech
    254258
    255259! INLINED global variable declarations
    … …  
    272276!
    273277! File                 : chem_gasphase_mod_JacobianSP.f90
    274 ! Time                 : Fri Nov 30 13:52:21 2018
    275 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20181130/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     278! Time                 : Tue Mar  5 11:50:53 2019
     279! Working directory    : /home/forkel-r/palmstuff/work/trunk20190305/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    276280! Equation file        : chem_gasphase_mod.kpp
    277281! Output root filename : chem_gasphase_mod
    … …  
    328332!
    329333! File                 : chem_gasphase_mod_Monitor.f90
    330 ! Time                 : Fri Nov 30 13:52:21 2018
    331 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20181130/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     334! Time                 : Tue Mar  5 11:50:53 2019
     335! Working directory    : /home/forkel-r/palmstuff/work/trunk20190305/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    332336! Equation file        : chem_gasphase_mod.kpp
    333337! Output root filename : chem_gasphase_mod
    … …  
    404408!
    405409! File                 : chem_gasphase_mod_Initialize.f90
    406 ! Time                 : Fri Nov 30 13:52:21 2018
    407 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20181130/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     410! Time                 : Tue Mar  5 11:50:53 2019
     411! Working directory    : /home/forkel-r/palmstuff/work/trunk20190305/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    408412! Equation file        : chem_gasphase_mod.kpp
    409413! Output root filename : chem_gasphase_mod
    … …  
    430434!
    431435! File                 : chem_gasphase_mod_Integrator.f90
    432 ! Time                 : Fri Nov 30 13:52:21 2018
    433 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20181130/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     436! Time                 : Tue Mar  5 11:50:53 2019
     437! Working directory    : /home/forkel-r/palmstuff/work/trunk20190305/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    434438! Equation file        : chem_gasphase_mod.kpp
    435439! Output root filename : chem_gasphase_mod
    … …  
    488492!
    489493! File                 : chem_gasphase_mod_LinearAlgebra.f90
    490 ! Time                 : Fri Nov 30 13:52:21 2018
    491 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20181130/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     494! Time                 : Tue Mar  5 11:50:53 2019
     495! Working directory    : /home/forkel-r/palmstuff/work/trunk20190305/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    492496! Equation file        : chem_gasphase_mod.kpp
    493497! Output root filename : chem_gasphase_mod
    … …  
    515519!
    516520! File                 : chem_gasphase_mod_Jacobian.f90
    517 ! Time                 : Fri Nov 30 13:52:21 2018
    518 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20181130/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     521! Time                 : Tue Mar  5 11:50:53 2019
     522! Working directory    : /home/forkel-r/palmstuff/work/trunk20190305/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    519523! Equation file        : chem_gasphase_mod.kpp
    520524! Output root filename : chem_gasphase_mod
    … …  
    542546!
    543547! File                 : chem_gasphase_mod_Function.f90
    544 ! Time                 : Fri Nov 30 13:52:21 2018
    545 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20181130/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     548! Time                 : Tue Mar  5 11:50:53 2019
     549! Working directory    : /home/forkel-r/palmstuff/work/trunk20190305/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    546550! Equation file        : chem_gasphase_mod.kpp
    547551! Output root filename : chem_gasphase_mod
    … …  
    571575!
    572576! File                 : chem_gasphase_mod_Rates.f90
    573 ! Time                 : Fri Nov 30 13:52:21 2018
    574 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20181130/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     577! Time                 : Tue Mar  5 11:50:53 2019
     578! Working directory    : /home/forkel-r/palmstuff/work/trunk20190305/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    575579! Equation file        : chem_gasphase_mod.kpp
    576580! Output root filename : chem_gasphase_mod
    … …  
    597601!
    598602! File                 : chem_gasphase_mod_Util.f90
    599 ! Time                 : Fri Nov 30 13:52:21 2018
    600 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20181130/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     603! Time                 : Tue Mar  5 11:50:53 2019
     604! Working directory    : /home/forkel-r/palmstuff/work/trunk20190305/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    601605! Equation file        : chem_gasphase_mod.kpp
    602606! Output root filename : chem_gasphase_mod
    … …  
    703707    MODULE PROCEDURE   kppdecomp
    704708  END INTERFACE        kppdecomp
     709 
     710  INTERFACE            get_mechanismname
     711    MODULE PROCEDURE   get_mechanismname
     712  END INTERFACE        get_mechanismname
    705713 
    706714  INTERFACE            chem_gasphase_integrate
    … …  
    25392547  END SUBROUTINE kppdecomp                                           
    25402548 
     2549SUBROUTINE get_mechanismname                                       
     2550                                                                   
     2551  IMPLICIT NONE                                                     
     2552
     2553! Set cs_mech for check with mechanism name from namelist
     2554    cs_mech = 'smog'
     2555                                                                   
     2556  RETURN                                                           
     2557END SUBROUTINE get_mechanismname                                   
     2558                                                                   
     2559 
    25412560SUBROUTINE chem_gasphase_integrate (time_step_len, conc, tempi, qvapi, fakti, photo, ierrf, xnacc, xnrej, istatus, l_debug, pe, &
    25422561                     icntrl_i, rcntrl_i)
    … …  
    26242643                                                                   
    26252644  RETURN                                                           
    2626 END SUBROUTINE chem_gasphase_integrate                                       
     2645END SUBROUTINE chem_gasphase_integrate                             
    26272646
    26282647END MODULE chem_gasphase_mod
Note: See TracChangeset for help on using the changeset viewer.
                                                                                                                                                                                                                                                                                                                                                                               
  | Impressum | ©Leibniz Universität Hannover |