Ignore:
Timestamp:
Mar 5, 2019 11:19:45 AM (5 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_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
Note: See TracChangeset for help on using the changeset viewer.