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