Ignore:
Timestamp:
Mar 28, 2019 3:04:04 PM (5 years ago)
Author:
forkel
Message:

removed USE chem_gasphase_mod from chem_modules, apply USE chem_gasphase for nvar, nspec, cs_mech and spc_names instead

File:
1 edited

Legend:

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

    r3820 r3833  
    6060  !SAVE  ! note: occurs again in automatically generated code ...
    6161
    62 !  PUBLIC :: IERR_NAMES
    63  
    64 ! PUBLIC :: SPC_NAMES,EQN_NAMES,EQN_TAGS,REQ_HET,REQ_AEROSOL,REQ_PHOTRAT &
    65 !         ,REQ_MCFCT,IP_MAX,jname
    66 
     62! Public variables
     63  PUBLIC :: atol
    6764  PUBLIC :: cs_mech
    68   PUBLIC :: eqn_names, phot_names, spc_names
     65  PUBLIC :: eqn_names
     66  PUBLIC :: fakt
    6967  PUBLIC :: nmaxfixsteps
    70   PUBLIC :: atol, rtol
    71   PUBLIC :: nspec, nreact
     68  PUBLIC :: nphot
     69  PUBLIC :: nreact
     70  PUBLIC :: nspec
     71  PUBLIC :: nvar
     72  PUBLIC :: qvap
     73  PUBLIC :: phot
     74  PUBLIC :: phot_names
     75  PUBLIC :: rconst
     76  PUBLIC :: rtol
     77  PUBLIC :: spc_names
    7278  PUBLIC :: temp
    73   PUBLIC :: qvap
    74   PUBLIC :: fakt
    75   PUBLIC :: phot
    76   PUBLIC :: rconst
    77   PUBLIC :: nvar
    78   PUBLIC :: nphot
    79   PUBLIC :: vl_dim                     ! PUBLIC to ebable other MODULEs to distiguish between scalar and vec
    80  
    81   PUBLIC :: initialize, integrate, update_rconst
     79  PUBLIC :: vl_dim                     !< PUBLIC to enable other MODULEs to distiguish between scalar and vec
     80 
     81! Public routines
    8282  PUBLIC :: chem_gasphase_integrate
     83  PUBLIC :: get_mechanism_name
     84  PUBLIC :: initialize
    8385  PUBLIC :: initialize_kpp_ctrl
    84   PUBLIC :: get_mechanism_name
     86  PUBLIC :: integrate
     87  PUBLIC :: update_rconst
    8588
    8689! END OF MODULE HEADER TEMPLATE
     
    114117!
    115118! File                 : chem_gasphase_mod_Parameters.f90
    116 ! Time                 : Wed Mar 27 09:51:37 2019
     119! Time                 : Thu Mar 28 15:59:27 2019
    117120! Working directory    : /home/forkel-r/palmstuff/work/trunk20190327/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    118121! Equation file        : chem_gasphase_mod.kpp
     
    190193!
    191194! File                 : chem_gasphase_mod_Global.f90
    192 ! Time                 : Wed Mar 27 09:51:37 2019
     195! Time                 : Thu Mar 28 15:59:27 2019
    193196! Working directory    : /home/forkel-r/palmstuff/work/trunk20190327/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    194197! Equation file        : chem_gasphase_mod.kpp
     
    264267!
    265268! File                 : chem_gasphase_mod_JacobianSP.f90
    266 ! Time                 : Wed Mar 27 09:51:37 2019
     269! Time                 : Thu Mar 28 15:59:27 2019
    267270! Working directory    : /home/forkel-r/palmstuff/work/trunk20190327/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    268271! Equation file        : chem_gasphase_mod.kpp
     
    308311!
    309312! File                 : chem_gasphase_mod_Monitor.f90
    310 ! Time                 : Wed Mar 27 09:51:37 2019
     313! Time                 : Thu Mar 28 15:59:27 2019
    311314! Working directory    : /home/forkel-r/palmstuff/work/trunk20190327/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    312315! Equation file        : chem_gasphase_mod.kpp
     
    368371!
    369372! File                 : chem_gasphase_mod_Initialize.f90
    370 ! Time                 : Wed Mar 27 09:51:37 2019
     373! Time                 : Thu Mar 28 15:59:27 2019
    371374! Working directory    : /home/forkel-r/palmstuff/work/trunk20190327/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    372375! Equation file        : chem_gasphase_mod.kpp
     
    394397!
    395398! File                 : chem_gasphase_mod_Integrator.f90
    396 ! Time                 : Wed Mar 27 09:51:37 2019
     399! Time                 : Thu Mar 28 15:59:27 2019
    397400! Working directory    : /home/forkel-r/palmstuff/work/trunk20190327/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    398401! Equation file        : chem_gasphase_mod.kpp
     
    452455!
    453456! File                 : chem_gasphase_mod_LinearAlgebra.f90
    454 ! Time                 : Wed Mar 27 09:51:37 2019
     457! Time                 : Thu Mar 28 15:59:27 2019
    455458! Working directory    : /home/forkel-r/palmstuff/work/trunk20190327/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    456459! Equation file        : chem_gasphase_mod.kpp
     
    479482!
    480483! File                 : chem_gasphase_mod_Jacobian.f90
    481 ! Time                 : Wed Mar 27 09:51:37 2019
     484! Time                 : Thu Mar 28 15:59:27 2019
    482485! Working directory    : /home/forkel-r/palmstuff/work/trunk20190327/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    483486! Equation file        : chem_gasphase_mod.kpp
     
    506509!
    507510! File                 : chem_gasphase_mod_Function.f90
    508 ! Time                 : Wed Mar 27 09:51:37 2019
     511! Time                 : Thu Mar 28 15:59:27 2019
    509512! Working directory    : /home/forkel-r/palmstuff/work/trunk20190327/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    510513! Equation file        : chem_gasphase_mod.kpp
     
    535538!
    536539! File                 : chem_gasphase_mod_Rates.f90
    537 ! Time                 : Wed Mar 27 09:51:37 2019
     540! Time                 : Thu Mar 28 15:59:27 2019
    538541! Working directory    : /home/forkel-r/palmstuff/work/trunk20190327/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    539542! Equation file        : chem_gasphase_mod.kpp
     
    561564!
    562565! File                 : chem_gasphase_mod_Util.f90
    563 ! Time                 : Wed Mar 27 09:51:37 2019
     566! Time                 : Thu Mar 28 15:59:27 2019
    564567! Working directory    : /home/forkel-r/palmstuff/work/trunk20190327/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    565568! Equation file        : chem_gasphase_mod.kpp
     
    595598  INTEGER, PARAMETER, PUBLIC :: nkppctrl = 20
    596599  !
    597   INTEGER, DIMENSION(nkppctrl), PUBLIC     :: icntrl = 0
     600  ! steering PARAMETERs for chemistry solver (see kpp domumentation)
     601  INTEGER, DIMENSION(nkppctrl), PUBLIC      :: icntrl = 0
    598602  REAL(dp), DIMENSION(nkppctrl), PUBLIC     :: rcntrl = 0.0_dp
     603  ! t_steps: fixed time steps in vector mode
    599604  REAL(dp), DIMENSION(nmaxfixsteps), PUBLIC :: t_steps = 0.0_dp
    600605
Note: See TracChangeset for help on using the changeset viewer.