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

File:
1 edited

Legend:

Unmodified
Added
Removed
  • 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
Note: See TracChangeset for help on using the changeset viewer.