Ignore:
Timestamp:
Mar 5, 2019 11:19:45 AM (3 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_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.