Ignore:
Timestamp:
Mar 28, 2019 3:04:04 PM (3 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

Location:
palm/trunk/UTIL/chemistry/gasphase_preproc
Files:
14 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/UTIL/chemistry/gasphase_preproc/kpp4palm/src/create_kpp_module.C

    r3820 r3833  
    1313//Former revisions:
    1414//-----------------
    15 // renamed get_mechanismname to get_mechanism_name                        (26.03.2019, forkel):w
     15// alphabetic ordering of PUBLIC statments in templates/module_header     (28.03.2019, forkel)
     16//
     17// renamed get_mechanismname to get_mechanism_name                        (26.03.2019, forkel)
    1618//
    1719//
  • palm/trunk/UTIL/chemistry/gasphase_preproc/kpp4palm/templates/initialize_kpp_ctrl_template.f90

    r3789 r3833  
    2424  INTEGER, PARAMETER, PUBLIC :: NKPPCTRL = 20
    2525  !
    26   INTEGER,  DIMENSION(NKPPCTRL), PUBLIC     :: icntrl = 0
     26  ! Steering parameters for chemistry solver (see KPP domumentation)
     27  INTEGER, DIMENSION(NKPPCTRL), PUBLIC      :: icntrl = 0
    2728  REAL(DP), DIMENSION(NKPPCTRL), PUBLIC     :: rcntrl = 0.0_dp
     29  ! t_steps: fixed time steps in vector mode
    2830  REAL(DP), DIMENSION(NMAXFIXSTEPS), PUBLIC :: t_steps = 0.0_dp
    2931
  • palm/trunk/UTIL/chemistry/gasphase_preproc/kpp4palm/templates/module_header

    r3820 r3833  
    5656  !SAVE  ! NOTE: OCCURS AGAIN IN AUTOMATICALLY GENERATED CODE ...
    5757
    58 !  PUBLIC :: IERR_NAMES
     58! Public variables
     59  PUBLIC :: atol
     60  PUBLIC :: cs_mech
     61  PUBLIC :: eqn_names
     62  PUBLIC :: fakt
     63  PUBLIC :: nmaxfixsteps
     64  PUBLIC :: nphot
     65  PUBLIC :: nreact
     66  PUBLIC :: nspec
     67  PUBLIC :: nvar
     68  PUBLIC :: qvap
     69  PUBLIC :: phot
     70  PUBLIC :: phot_names
     71  PUBLIC :: rconst
     72  PUBLIC :: rtol
     73  PUBLIC :: spc_names
     74  PUBLIC :: temp
     75  PUBLIC :: vl_dim                     !< PUBLIC to enable other modules to distiguish between scalar and vec
    5976 
    60 ! PUBLIC :: SPC_NAMES, EQN_NAMES, EQN_TAGS, REQ_HET, REQ_AEROSOL, REQ_PHOTRAT &
    61 !         , REQ_MCFCT, IP_MAX, jname
    62 
    63   PUBLIC :: cs_mech
    64   PUBLIC :: eqn_names,  phot_names, spc_names
    65   PUBLIC :: nmaxfixsteps
    66   PUBLIC :: atol, rtol
    67   PUBLIC :: nspec, nreact
    68   PUBLIC :: temp
    69   PUBLIC :: qvap
    70   PUBLIC :: fakt
    71   PUBLIC :: phot
    72   PUBLIC :: rconst
    73   PUBLIC :: nvar
    74   PUBLIC :: nphot
    75   PUBLIC :: vl_dim                     ! Public to ebable other modules to distiguish between scalar and vec
    76  
    77   PUBLIC :: Initialize, Integrate, Update_rconst
     77! Public routines
    7878  PUBLIC :: chem_gasphase_integrate
     79  PUBLIC :: get_mechanism_name
     80  PUBLIC :: Initialize
    7981  PUBLIC :: initialize_kpp_ctrl
    80   PUBLIC :: get_mechanism_name
     82  PUBLIC :: Integrate
     83  PUBLIC :: Update_rconst
    8184
    8285! END OF MODULE HEADER TEMPLATE
  • palm/trunk/UTIL/chemistry/gasphase_preproc/mechanisms/def_cbm4/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:33 2019
     119! Time                 : Thu Mar 28 15:59:22 2019
    117120! Working directory    : /home/forkel-r/palmstuff/work/trunk20190327/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    118121! Equation file        : chem_gasphase_mod.kpp
     
    221224!
    222225! File                 : chem_gasphase_mod_Global.f90
    223 ! Time                 : Wed Mar 27 09:51:33 2019
     226! Time                 : Thu Mar 28 15:59:22 2019
    224227! Working directory    : /home/forkel-r/palmstuff/work/trunk20190327/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    225228! Equation file        : chem_gasphase_mod.kpp
     
    286289!
    287290! File                 : chem_gasphase_mod_JacobianSP.f90
    288 ! Time                 : Wed Mar 27 09:51:33 2019
     291! Time                 : Thu Mar 28 15:59:22 2019
    289292! Working directory    : /home/forkel-r/palmstuff/work/trunk20190327/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    290293! Equation file        : chem_gasphase_mod.kpp
     
    382385!
    383386! File                 : chem_gasphase_mod_Monitor.f90
    384 ! Time                 : Wed Mar 27 09:51:33 2019
     387! Time                 : Thu Mar 28 15:59:22 2019
    385388! Working directory    : /home/forkel-r/palmstuff/work/trunk20190327/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    386389! Equation file        : chem_gasphase_mod.kpp
     
    545548!
    546549! File                 : chem_gasphase_mod_Initialize.f90
    547 ! Time                 : Wed Mar 27 09:51:33 2019
     550! Time                 : Thu Mar 28 15:59:22 2019
    548551! Working directory    : /home/forkel-r/palmstuff/work/trunk20190327/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    549552! Equation file        : chem_gasphase_mod.kpp
     
    571574!
    572575! File                 : chem_gasphase_mod_Integrator.f90
    573 ! Time                 : Wed Mar 27 09:51:33 2019
     576! Time                 : Thu Mar 28 15:59:22 2019
    574577! Working directory    : /home/forkel-r/palmstuff/work/trunk20190327/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    575578! Equation file        : chem_gasphase_mod.kpp
     
    629632!
    630633! File                 : chem_gasphase_mod_LinearAlgebra.f90
    631 ! Time                 : Wed Mar 27 09:51:33 2019
     634! Time                 : Thu Mar 28 15:59:22 2019
    632635! Working directory    : /home/forkel-r/palmstuff/work/trunk20190327/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    633636! Equation file        : chem_gasphase_mod.kpp
     
    656659!
    657660! File                 : chem_gasphase_mod_Jacobian.f90
    658 ! Time                 : Wed Mar 27 09:51:33 2019
     661! Time                 : Thu Mar 28 15:59:22 2019
    659662! Working directory    : /home/forkel-r/palmstuff/work/trunk20190327/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    660663! Equation file        : chem_gasphase_mod.kpp
     
    683686!
    684687! File                 : chem_gasphase_mod_Function.f90
    685 ! Time                 : Wed Mar 27 09:51:33 2019
     688! Time                 : Thu Mar 28 15:59:22 2019
    686689! Working directory    : /home/forkel-r/palmstuff/work/trunk20190327/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    687690! Equation file        : chem_gasphase_mod.kpp
     
    712715!
    713716! File                 : chem_gasphase_mod_Rates.f90
    714 ! Time                 : Wed Mar 27 09:51:33 2019
     717! Time                 : Thu Mar 28 15:59:22 2019
    715718! Working directory    : /home/forkel-r/palmstuff/work/trunk20190327/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    716719! Equation file        : chem_gasphase_mod.kpp
     
    738741!
    739742! File                 : chem_gasphase_mod_Util.f90
    740 ! Time                 : Wed Mar 27 09:51:33 2019
     743! Time                 : Thu Mar 28 15:59:22 2019
    741744! Working directory    : /home/forkel-r/palmstuff/work/trunk20190327/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    742745! Equation file        : chem_gasphase_mod.kpp
     
    772775  INTEGER, PARAMETER, PUBLIC :: nkppctrl = 20
    773776  !
    774   INTEGER, DIMENSION(nkppctrl), PUBLIC     :: icntrl = 0
     777  ! steering PARAMETERs for chemistry solver (see kpp domumentation)
     778  INTEGER, DIMENSION(nkppctrl), PUBLIC      :: icntrl = 0
    775779  REAL(dp), DIMENSION(nkppctrl), PUBLIC     :: rcntrl = 0.0_dp
     780  ! t_steps: fixed time steps in vector mode
    776781  REAL(dp), DIMENSION(nmaxfixsteps), PUBLIC :: t_steps = 0.0_dp
    777782
  • palm/trunk/UTIL/chemistry/gasphase_preproc/mechanisms/def_passive/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:34 2019
     119! Time                 : Thu Mar 28 15:59:23 2019
    117120! Working directory    : /home/forkel-r/palmstuff/work/trunk20190327/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    118121! Equation file        : chem_gasphase_mod.kpp
     
    189192!
    190193! File                 : chem_gasphase_mod_Global.f90
    191 ! Time                 : Wed Mar 27 09:51:34 2019
     194! Time                 : Thu Mar 28 15:59:23 2019
    192195! Working directory    : /home/forkel-r/palmstuff/work/trunk20190327/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    193196! Equation file        : chem_gasphase_mod.kpp
     
    254257!
    255258! File                 : chem_gasphase_mod_JacobianSP.f90
    256 ! Time                 : Wed Mar 27 09:51:34 2019
     259! Time                 : Thu Mar 28 15:59:23 2019
    257260! Working directory    : /home/forkel-r/palmstuff/work/trunk20190327/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    258261! Equation file        : chem_gasphase_mod.kpp
     
    298301!
    299302! File                 : chem_gasphase_mod_Monitor.f90
    300 ! Time                 : Wed Mar 27 09:51:34 2019
     303! Time                 : Thu Mar 28 15:59:23 2019
    301304! Working directory    : /home/forkel-r/palmstuff/work/trunk20190327/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    302305! Equation file        : chem_gasphase_mod.kpp
     
    358361!
    359362! File                 : chem_gasphase_mod_Initialize.f90
    360 ! Time                 : Wed Mar 27 09:51:34 2019
     363! Time                 : Thu Mar 28 15:59:23 2019
    361364! Working directory    : /home/forkel-r/palmstuff/work/trunk20190327/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    362365! Equation file        : chem_gasphase_mod.kpp
     
    384387!
    385388! File                 : chem_gasphase_mod_Integrator.f90
    386 ! Time                 : Wed Mar 27 09:51:34 2019
     389! Time                 : Thu Mar 28 15:59:23 2019
    387390! Working directory    : /home/forkel-r/palmstuff/work/trunk20190327/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    388391! Equation file        : chem_gasphase_mod.kpp
     
    442445!
    443446! File                 : chem_gasphase_mod_LinearAlgebra.f90
    444 ! Time                 : Wed Mar 27 09:51:34 2019
     447! Time                 : Thu Mar 28 15:59:23 2019
    445448! Working directory    : /home/forkel-r/palmstuff/work/trunk20190327/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    446449! Equation file        : chem_gasphase_mod.kpp
     
    469472!
    470473! File                 : chem_gasphase_mod_Jacobian.f90
    471 ! Time                 : Wed Mar 27 09:51:34 2019
     474! Time                 : Thu Mar 28 15:59:23 2019
    472475! Working directory    : /home/forkel-r/palmstuff/work/trunk20190327/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    473476! Equation file        : chem_gasphase_mod.kpp
     
    496499!
    497500! File                 : chem_gasphase_mod_Function.f90
    498 ! Time                 : Wed Mar 27 09:51:34 2019
     501! Time                 : Thu Mar 28 15:59:23 2019
    499502! Working directory    : /home/forkel-r/palmstuff/work/trunk20190327/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    500503! Equation file        : chem_gasphase_mod.kpp
     
    525528!
    526529! File                 : chem_gasphase_mod_Rates.f90
    527 ! Time                 : Wed Mar 27 09:51:34 2019
     530! Time                 : Thu Mar 28 15:59:23 2019
    528531! Working directory    : /home/forkel-r/palmstuff/work/trunk20190327/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    529532! Equation file        : chem_gasphase_mod.kpp
     
    551554!
    552555! File                 : chem_gasphase_mod_Util.f90
    553 ! Time                 : Wed Mar 27 09:51:34 2019
     556! Time                 : Thu Mar 28 15:59:23 2019
    554557! Working directory    : /home/forkel-r/palmstuff/work/trunk20190327/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    555558! Equation file        : chem_gasphase_mod.kpp
     
    585588  INTEGER, PARAMETER, PUBLIC :: nkppctrl = 20
    586589  !
    587   INTEGER, DIMENSION(nkppctrl), PUBLIC     :: icntrl = 0
     590  ! steering PARAMETERs for chemistry solver (see kpp domumentation)
     591  INTEGER, DIMENSION(nkppctrl), PUBLIC      :: icntrl = 0
    588592  REAL(dp), DIMENSION(nkppctrl), PUBLIC     :: rcntrl = 0.0_dp
     593  ! t_steps: fixed time steps in vector mode
    589594  REAL(dp), DIMENSION(nmaxfixsteps), PUBLIC :: t_steps = 0.0_dp
    590595
  • palm/trunk/UTIL/chemistry/gasphase_preproc/mechanisms/def_passive1/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:34 2019
     119! Time                 : Thu Mar 28 15:59:24 2019
    117120! Working directory    : /home/forkel-r/palmstuff/work/trunk20190327/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    118121! Equation file        : chem_gasphase_mod.kpp
     
    188191!
    189192! File                 : chem_gasphase_mod_Global.f90
    190 ! Time                 : Wed Mar 27 09:51:34 2019
     193! Time                 : Thu Mar 28 15:59:24 2019
    191194! Working directory    : /home/forkel-r/palmstuff/work/trunk20190327/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    192195! Equation file        : chem_gasphase_mod.kpp
     
    253256!
    254257! File                 : chem_gasphase_mod_JacobianSP.f90
    255 ! Time                 : Wed Mar 27 09:51:34 2019
     258! Time                 : Thu Mar 28 15:59:24 2019
    256259! Working directory    : /home/forkel-r/palmstuff/work/trunk20190327/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    257260! Equation file        : chem_gasphase_mod.kpp
     
    297300!
    298301! File                 : chem_gasphase_mod_Monitor.f90
    299 ! Time                 : Wed Mar 27 09:51:34 2019
     302! Time                 : Thu Mar 28 15:59:24 2019
    300303! Working directory    : /home/forkel-r/palmstuff/work/trunk20190327/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    301304! Equation file        : chem_gasphase_mod.kpp
     
    356359!
    357360! File                 : chem_gasphase_mod_Initialize.f90
    358 ! Time                 : Wed Mar 27 09:51:34 2019
     361! Time                 : Thu Mar 28 15:59:24 2019
    359362! Working directory    : /home/forkel-r/palmstuff/work/trunk20190327/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    360363! Equation file        : chem_gasphase_mod.kpp
     
    382385!
    383386! File                 : chem_gasphase_mod_Integrator.f90
    384 ! Time                 : Wed Mar 27 09:51:34 2019
     387! Time                 : Thu Mar 28 15:59:24 2019
    385388! Working directory    : /home/forkel-r/palmstuff/work/trunk20190327/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    386389! Equation file        : chem_gasphase_mod.kpp
     
    440443!
    441444! File                 : chem_gasphase_mod_LinearAlgebra.f90
    442 ! Time                 : Wed Mar 27 09:51:34 2019
     445! Time                 : Thu Mar 28 15:59:24 2019
    443446! Working directory    : /home/forkel-r/palmstuff/work/trunk20190327/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    444447! Equation file        : chem_gasphase_mod.kpp
     
    467470!
    468471! File                 : chem_gasphase_mod_Jacobian.f90
    469 ! Time                 : Wed Mar 27 09:51:34 2019
     472! Time                 : Thu Mar 28 15:59:24 2019
    470473! Working directory    : /home/forkel-r/palmstuff/work/trunk20190327/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    471474! Equation file        : chem_gasphase_mod.kpp
     
    494497!
    495498! File                 : chem_gasphase_mod_Function.f90
    496 ! Time                 : Wed Mar 27 09:51:34 2019
     499! Time                 : Thu Mar 28 15:59:24 2019
    497500! Working directory    : /home/forkel-r/palmstuff/work/trunk20190327/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    498501! Equation file        : chem_gasphase_mod.kpp
     
    523526!
    524527! File                 : chem_gasphase_mod_Rates.f90
    525 ! Time                 : Wed Mar 27 09:51:34 2019
     528! Time                 : Thu Mar 28 15:59:24 2019
    526529! Working directory    : /home/forkel-r/palmstuff/work/trunk20190327/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    527530! Equation file        : chem_gasphase_mod.kpp
     
    549552!
    550553! File                 : chem_gasphase_mod_Util.f90
    551 ! Time                 : Wed Mar 27 09:51:34 2019
     554! Time                 : Thu Mar 28 15:59:24 2019
    552555! Working directory    : /home/forkel-r/palmstuff/work/trunk20190327/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    553556! Equation file        : chem_gasphase_mod.kpp
     
    583586  INTEGER, PARAMETER, PUBLIC :: nkppctrl = 20
    584587  !
    585   INTEGER, DIMENSION(nkppctrl), PUBLIC     :: icntrl = 0
     588  ! steering PARAMETERs for chemistry solver (see kpp domumentation)
     589  INTEGER, DIMENSION(nkppctrl), PUBLIC      :: icntrl = 0
    586590  REAL(dp), DIMENSION(nkppctrl), PUBLIC     :: rcntrl = 0.0_dp
     591  ! t_steps: fixed time steps in vector mode
    587592  REAL(dp), DIMENSION(nmaxfixsteps), PUBLIC :: t_steps = 0.0_dp
    588593
  • palm/trunk/UTIL/chemistry/gasphase_preproc/mechanisms/def_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:35 2019
     119! Time                 : Thu Mar 28 15:59:25 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:35 2019
     195! Time                 : Thu Mar 28 15:59:25 2019
    193196! Working directory    : /home/forkel-r/palmstuff/work/trunk20190327/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    194197! Equation file        : chem_gasphase_mod.kpp
     
    255258!
    256259! File                 : chem_gasphase_mod_JacobianSP.f90
    257 ! Time                 : Wed Mar 27 09:51:35 2019
     260! Time                 : Thu Mar 28 15:59:25 2019
    258261! Working directory    : /home/forkel-r/palmstuff/work/trunk20190327/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    259262! Equation file        : chem_gasphase_mod.kpp
     
    299302!
    300303! File                 : chem_gasphase_mod_Monitor.f90
    301 ! Time                 : Wed Mar 27 09:51:35 2019
     304! Time                 : Thu Mar 28 15:59:25 2019
    302305! Working directory    : /home/forkel-r/palmstuff/work/trunk20190327/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    303306! Equation file        : chem_gasphase_mod.kpp
     
    359362!
    360363! File                 : chem_gasphase_mod_Initialize.f90
    361 ! Time                 : Wed Mar 27 09:51:35 2019
     364! Time                 : Thu Mar 28 15:59:25 2019
    362365! Working directory    : /home/forkel-r/palmstuff/work/trunk20190327/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    363366! Equation file        : chem_gasphase_mod.kpp
     
    385388!
    386389! File                 : chem_gasphase_mod_Integrator.f90
    387 ! Time                 : Wed Mar 27 09:51:35 2019
     390! Time                 : Thu Mar 28 15:59:25 2019
    388391! Working directory    : /home/forkel-r/palmstuff/work/trunk20190327/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    389392! Equation file        : chem_gasphase_mod.kpp
     
    443446!
    444447! File                 : chem_gasphase_mod_LinearAlgebra.f90
    445 ! Time                 : Wed Mar 27 09:51:35 2019
     448! Time                 : Thu Mar 28 15:59:25 2019
    446449! Working directory    : /home/forkel-r/palmstuff/work/trunk20190327/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    447450! Equation file        : chem_gasphase_mod.kpp
     
    470473!
    471474! File                 : chem_gasphase_mod_Jacobian.f90
    472 ! Time                 : Wed Mar 27 09:51:35 2019
     475! Time                 : Thu Mar 28 15:59:25 2019
    473476! Working directory    : /home/forkel-r/palmstuff/work/trunk20190327/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    474477! Equation file        : chem_gasphase_mod.kpp
     
    497500!
    498501! File                 : chem_gasphase_mod_Function.f90
    499 ! Time                 : Wed Mar 27 09:51:35 2019
     502! Time                 : Thu Mar 28 15:59:25 2019
    500503! Working directory    : /home/forkel-r/palmstuff/work/trunk20190327/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    501504! Equation file        : chem_gasphase_mod.kpp
     
    526529!
    527530! File                 : chem_gasphase_mod_Rates.f90
    528 ! Time                 : Wed Mar 27 09:51:35 2019
     531! Time                 : Thu Mar 28 15:59:25 2019
    529532! Working directory    : /home/forkel-r/palmstuff/work/trunk20190327/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    530533! Equation file        : chem_gasphase_mod.kpp
     
    552555!
    553556! File                 : chem_gasphase_mod_Util.f90
    554 ! Time                 : Wed Mar 27 09:51:35 2019
     557! Time                 : Thu Mar 28 15:59:25 2019
    555558! Working directory    : /home/forkel-r/palmstuff/work/trunk20190327/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    556559! Equation file        : chem_gasphase_mod.kpp
     
    586589  INTEGER, PARAMETER, PUBLIC :: nkppctrl = 20
    587590  !
    588   INTEGER, DIMENSION(nkppctrl), PUBLIC     :: icntrl = 0
     591  ! steering PARAMETERs for chemistry solver (see kpp domumentation)
     592  INTEGER, DIMENSION(nkppctrl), PUBLIC      :: icntrl = 0
    589593  REAL(dp), DIMENSION(nkppctrl), PUBLIC     :: rcntrl = 0.0_dp
     594  ! t_steps: fixed time steps in vector mode
    590595  REAL(dp), DIMENSION(nmaxfixsteps), PUBLIC :: t_steps = 0.0_dp
    591596
  • palm/trunk/UTIL/chemistry/gasphase_preproc/mechanisms/def_phstatp/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:40 2019
     119! Time                 : Thu Mar 28 15:59:30 2019
    117120! Working directory    : /home/forkel-r/palmstuff/work/trunk20190327/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    118121! Equation file        : chem_gasphase_mod.kpp
     
    191194!
    192195! File                 : chem_gasphase_mod_Global.f90
    193 ! Time                 : Wed Mar 27 09:51:40 2019
     196! Time                 : Thu Mar 28 15:59:30 2019
    194197! Working directory    : /home/forkel-r/palmstuff/work/trunk20190327/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    195198! Equation file        : chem_gasphase_mod.kpp
     
    256259!
    257260! File                 : chem_gasphase_mod_JacobianSP.f90
    258 ! Time                 : Wed Mar 27 09:51:40 2019
     261! Time                 : Thu Mar 28 15:59:30 2019
    259262! Working directory    : /home/forkel-r/palmstuff/work/trunk20190327/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    260263! Equation file        : chem_gasphase_mod.kpp
     
    300303!
    301304! File                 : chem_gasphase_mod_Monitor.f90
    302 ! Time                 : Wed Mar 27 09:51:40 2019
     305! Time                 : Thu Mar 28 15:59:30 2019
    303306! Working directory    : /home/forkel-r/palmstuff/work/trunk20190327/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    304307! Equation file        : chem_gasphase_mod.kpp
     
    362365!
    363366! File                 : chem_gasphase_mod_Initialize.f90
    364 ! Time                 : Wed Mar 27 09:51:40 2019
     367! Time                 : Thu Mar 28 15:59:30 2019
    365368! Working directory    : /home/forkel-r/palmstuff/work/trunk20190327/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    366369! Equation file        : chem_gasphase_mod.kpp
     
    388391!
    389392! File                 : chem_gasphase_mod_Integrator.f90
    390 ! Time                 : Wed Mar 27 09:51:40 2019
     393! Time                 : Thu Mar 28 15:59:30 2019
    391394! Working directory    : /home/forkel-r/palmstuff/work/trunk20190327/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    392395! Equation file        : chem_gasphase_mod.kpp
     
    446449!
    447450! File                 : chem_gasphase_mod_LinearAlgebra.f90
    448 ! Time                 : Wed Mar 27 09:51:40 2019
     451! Time                 : Thu Mar 28 15:59:30 2019
    449452! Working directory    : /home/forkel-r/palmstuff/work/trunk20190327/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    450453! Equation file        : chem_gasphase_mod.kpp
     
    473476!
    474477! File                 : chem_gasphase_mod_Jacobian.f90
    475 ! Time                 : Wed Mar 27 09:51:40 2019
     478! Time                 : Thu Mar 28 15:59:30 2019
    476479! Working directory    : /home/forkel-r/palmstuff/work/trunk20190327/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    477480! Equation file        : chem_gasphase_mod.kpp
     
    500503!
    501504! File                 : chem_gasphase_mod_Function.f90
    502 ! Time                 : Wed Mar 27 09:51:40 2019
     505! Time                 : Thu Mar 28 15:59:30 2019
    503506! Working directory    : /home/forkel-r/palmstuff/work/trunk20190327/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    504507! Equation file        : chem_gasphase_mod.kpp
     
    529532!
    530533! File                 : chem_gasphase_mod_Rates.f90
    531 ! Time                 : Wed Mar 27 09:51:40 2019
     534! Time                 : Thu Mar 28 15:59:30 2019
    532535! Working directory    : /home/forkel-r/palmstuff/work/trunk20190327/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    533536! Equation file        : chem_gasphase_mod.kpp
     
    555558!
    556559! File                 : chem_gasphase_mod_Util.f90
    557 ! Time                 : Wed Mar 27 09:51:40 2019
     560! Time                 : Thu Mar 28 15:59:30 2019
    558561! Working directory    : /home/forkel-r/palmstuff/work/trunk20190327/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    559562! Equation file        : chem_gasphase_mod.kpp
     
    589592  INTEGER, PARAMETER, PUBLIC :: nkppctrl = 20
    590593  !
    591   INTEGER, DIMENSION(nkppctrl), PUBLIC     :: icntrl = 0
     594  ! steering PARAMETERs for chemistry solver (see kpp domumentation)
     595  INTEGER, DIMENSION(nkppctrl), PUBLIC      :: icntrl = 0
    592596  REAL(dp), DIMENSION(nkppctrl), PUBLIC     :: rcntrl = 0.0_dp
     597  ! t_steps: fixed time steps in vector mode
    593598  REAL(dp), DIMENSION(nmaxfixsteps), PUBLIC :: t_steps = 0.0_dp
    594599
  • 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
  • palm/trunk/UTIL/chemistry/gasphase_preproc/mechanisms/def_salsa+simple/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:38 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
     
    202205!
    203206! File                 : chem_gasphase_mod_Global.f90
    204 ! Time                 : Wed Mar 27 09:51:38 2019
     207! Time                 : Thu Mar 28 15:59:27 2019
    205208! Working directory    : /home/forkel-r/palmstuff/work/trunk20190327/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    206209! Equation file        : chem_gasphase_mod.kpp
     
    273276!
    274277! File                 : chem_gasphase_mod_JacobianSP.f90
    275 ! Time                 : Wed Mar 27 09:51:38 2019
     278! Time                 : Thu Mar 28 15:59:27 2019
    276279! Working directory    : /home/forkel-r/palmstuff/work/trunk20190327/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    277280! Equation file        : chem_gasphase_mod.kpp
     
    325328!
    326329! File                 : chem_gasphase_mod_Monitor.f90
    327 ! Time                 : Wed Mar 27 09:51:38 2019
     330! Time                 : Thu Mar 28 15:59:27 2019
    328331! Working directory    : /home/forkel-r/palmstuff/work/trunk20190327/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    329332! Equation file        : chem_gasphase_mod.kpp
     
    399402!
    400403! File                 : chem_gasphase_mod_Initialize.f90
    401 ! Time                 : Wed Mar 27 09:51:38 2019
     404! Time                 : Thu Mar 28 15:59:27 2019
    402405! Working directory    : /home/forkel-r/palmstuff/work/trunk20190327/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    403406! Equation file        : chem_gasphase_mod.kpp
     
    425428!
    426429! File                 : chem_gasphase_mod_Integrator.f90
    427 ! Time                 : Wed Mar 27 09:51:38 2019
     430! Time                 : Thu Mar 28 15:59:27 2019
    428431! Working directory    : /home/forkel-r/palmstuff/work/trunk20190327/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    429432! Equation file        : chem_gasphase_mod.kpp
     
    483486!
    484487! File                 : chem_gasphase_mod_LinearAlgebra.f90
    485 ! Time                 : Wed Mar 27 09:51:38 2019
     488! Time                 : Thu Mar 28 15:59:27 2019
    486489! Working directory    : /home/forkel-r/palmstuff/work/trunk20190327/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    487490! Equation file        : chem_gasphase_mod.kpp
     
    510513!
    511514! File                 : chem_gasphase_mod_Jacobian.f90
    512 ! Time                 : Wed Mar 27 09:51:38 2019
     515! Time                 : Thu Mar 28 15:59:27 2019
    513516! Working directory    : /home/forkel-r/palmstuff/work/trunk20190327/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    514517! Equation file        : chem_gasphase_mod.kpp
     
    537540!
    538541! File                 : chem_gasphase_mod_Function.f90
    539 ! Time                 : Wed Mar 27 09:51:38 2019
     542! Time                 : Thu Mar 28 15:59:27 2019
    540543! Working directory    : /home/forkel-r/palmstuff/work/trunk20190327/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    541544! Equation file        : chem_gasphase_mod.kpp
     
    566569!
    567570! File                 : chem_gasphase_mod_Rates.f90
    568 ! Time                 : Wed Mar 27 09:51:38 2019
     571! Time                 : Thu Mar 28 15:59:27 2019
    569572! Working directory    : /home/forkel-r/palmstuff/work/trunk20190327/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    570573! Equation file        : chem_gasphase_mod.kpp
     
    592595!
    593596! File                 : chem_gasphase_mod_Util.f90
    594 ! Time                 : Wed Mar 27 09:51:38 2019
     597! Time                 : Thu Mar 28 15:59:27 2019
    595598! Working directory    : /home/forkel-r/palmstuff/work/trunk20190327/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    596599! Equation file        : chem_gasphase_mod.kpp
     
    626629  INTEGER, PARAMETER, PUBLIC :: nkppctrl = 20
    627630  !
    628   INTEGER, DIMENSION(nkppctrl), PUBLIC     :: icntrl = 0
     631  ! steering PARAMETERs for chemistry solver (see kpp domumentation)
     632  INTEGER, DIMENSION(nkppctrl), PUBLIC      :: icntrl = 0
    629633  REAL(dp), DIMENSION(nkppctrl), PUBLIC     :: rcntrl = 0.0_dp
     634  ! t_steps: fixed time steps in vector mode
    630635  REAL(dp), DIMENSION(nmaxfixsteps), PUBLIC :: t_steps = 0.0_dp
    631636
  • palm/trunk/UTIL/chemistry/gasphase_preproc/mechanisms/def_salsagas/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:36 2019
     119! Time                 : Thu Mar 28 15:59:26 2019
    117120! Working directory    : /home/forkel-r/palmstuff/work/trunk20190327/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    118121! Equation file        : chem_gasphase_mod.kpp
     
    192195!
    193196! File                 : chem_gasphase_mod_Global.f90
    194 ! Time                 : Wed Mar 27 09:51:36 2019
     197! Time                 : Thu Mar 28 15:59:26 2019
    195198! Working directory    : /home/forkel-r/palmstuff/work/trunk20190327/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    196199! Equation file        : chem_gasphase_mod.kpp
     
    259262!
    260263! File                 : chem_gasphase_mod_JacobianSP.f90
    261 ! Time                 : Wed Mar 27 09:51:36 2019
     264! Time                 : Thu Mar 28 15:59:26 2019
    262265! Working directory    : /home/forkel-r/palmstuff/work/trunk20190327/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    263266! Equation file        : chem_gasphase_mod.kpp
     
    303306!
    304307! File                 : chem_gasphase_mod_Monitor.f90
    305 ! Time                 : Wed Mar 27 09:51:36 2019
     308! Time                 : Thu Mar 28 15:59:26 2019
    306309! Working directory    : /home/forkel-r/palmstuff/work/trunk20190327/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    307310! Equation file        : chem_gasphase_mod.kpp
     
    367370!
    368371! File                 : chem_gasphase_mod_Initialize.f90
    369 ! Time                 : Wed Mar 27 09:51:36 2019
     372! Time                 : Thu Mar 28 15:59:26 2019
    370373! Working directory    : /home/forkel-r/palmstuff/work/trunk20190327/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    371374! Equation file        : chem_gasphase_mod.kpp
     
    393396!
    394397! File                 : chem_gasphase_mod_Integrator.f90
    395 ! Time                 : Wed Mar 27 09:51:36 2019
     398! Time                 : Thu Mar 28 15:59:26 2019
    396399! Working directory    : /home/forkel-r/palmstuff/work/trunk20190327/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    397400! Equation file        : chem_gasphase_mod.kpp
     
    451454!
    452455! File                 : chem_gasphase_mod_LinearAlgebra.f90
    453 ! Time                 : Wed Mar 27 09:51:36 2019
     456! Time                 : Thu Mar 28 15:59:26 2019
    454457! Working directory    : /home/forkel-r/palmstuff/work/trunk20190327/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    455458! Equation file        : chem_gasphase_mod.kpp
     
    478481!
    479482! File                 : chem_gasphase_mod_Jacobian.f90
    480 ! Time                 : Wed Mar 27 09:51:36 2019
     483! Time                 : Thu Mar 28 15:59:26 2019
    481484! Working directory    : /home/forkel-r/palmstuff/work/trunk20190327/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    482485! Equation file        : chem_gasphase_mod.kpp
     
    505508!
    506509! File                 : chem_gasphase_mod_Function.f90
    507 ! Time                 : Wed Mar 27 09:51:36 2019
     510! Time                 : Thu Mar 28 15:59:26 2019
    508511! Working directory    : /home/forkel-r/palmstuff/work/trunk20190327/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    509512! Equation file        : chem_gasphase_mod.kpp
     
    534537!
    535538! File                 : chem_gasphase_mod_Rates.f90
    536 ! Time                 : Wed Mar 27 09:51:36 2019
     539! Time                 : Thu Mar 28 15:59:26 2019
    537540! Working directory    : /home/forkel-r/palmstuff/work/trunk20190327/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    538541! Equation file        : chem_gasphase_mod.kpp
     
    560563!
    561564! File                 : chem_gasphase_mod_Util.f90
    562 ! Time                 : Wed Mar 27 09:51:36 2019
     565! Time                 : Thu Mar 28 15:59:26 2019
    563566! Working directory    : /home/forkel-r/palmstuff/work/trunk20190327/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    564567! Equation file        : chem_gasphase_mod.kpp
     
    594597  INTEGER, PARAMETER, PUBLIC :: nkppctrl = 20
    595598  !
    596   INTEGER, DIMENSION(nkppctrl), PUBLIC     :: icntrl = 0
     599  ! steering PARAMETERs for chemistry solver (see kpp domumentation)
     600  INTEGER, DIMENSION(nkppctrl), PUBLIC      :: icntrl = 0
    597601  REAL(dp), DIMENSION(nkppctrl), PUBLIC     :: rcntrl = 0.0_dp
     602  ! t_steps: fixed time steps in vector mode
    598603  REAL(dp), DIMENSION(nmaxfixsteps), PUBLIC :: t_steps = 0.0_dp
    599604
  • palm/trunk/UTIL/chemistry/gasphase_preproc/mechanisms/def_simple/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:38 2019
     119! Time                 : Thu Mar 28 15:59:28 2019
    117120! Working directory    : /home/forkel-r/palmstuff/work/trunk20190327/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    118121! Equation file        : chem_gasphase_mod.kpp
     
    198201!
    199202! File                 : chem_gasphase_mod_Global.f90
    200 ! Time                 : Wed Mar 27 09:51:38 2019
     203! Time                 : Thu Mar 28 15:59:28 2019
    201204! Working directory    : /home/forkel-r/palmstuff/work/trunk20190327/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    202205! Equation file        : chem_gasphase_mod.kpp
     
    263266!
    264267! File                 : chem_gasphase_mod_JacobianSP.f90
    265 ! Time                 : Wed Mar 27 09:51:38 2019
     268! Time                 : Thu Mar 28 15:59:28 2019
    266269! Working directory    : /home/forkel-r/palmstuff/work/trunk20190327/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    267270! Equation file        : chem_gasphase_mod.kpp
     
    313316!
    314317! File                 : chem_gasphase_mod_Monitor.f90
    315 ! Time                 : Wed Mar 27 09:51:38 2019
     318! Time                 : Thu Mar 28 15:59:28 2019
    316319! Working directory    : /home/forkel-r/palmstuff/work/trunk20190327/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    317320! Equation file        : chem_gasphase_mod.kpp
     
    382385!
    383386! File                 : chem_gasphase_mod_Initialize.f90
    384 ! Time                 : Wed Mar 27 09:51:38 2019
     387! Time                 : Thu Mar 28 15:59:28 2019
    385388! Working directory    : /home/forkel-r/palmstuff/work/trunk20190327/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    386389! Equation file        : chem_gasphase_mod.kpp
     
    408411!
    409412! File                 : chem_gasphase_mod_Integrator.f90
    410 ! Time                 : Wed Mar 27 09:51:38 2019
     413! Time                 : Thu Mar 28 15:59:28 2019
    411414! Working directory    : /home/forkel-r/palmstuff/work/trunk20190327/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    412415! Equation file        : chem_gasphase_mod.kpp
     
    466469!
    467470! File                 : chem_gasphase_mod_LinearAlgebra.f90
    468 ! Time                 : Wed Mar 27 09:51:38 2019
     471! Time                 : Thu Mar 28 15:59:28 2019
    469472! Working directory    : /home/forkel-r/palmstuff/work/trunk20190327/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    470473! Equation file        : chem_gasphase_mod.kpp
     
    493496!
    494497! File                 : chem_gasphase_mod_Jacobian.f90
    495 ! Time                 : Wed Mar 27 09:51:38 2019
     498! Time                 : Thu Mar 28 15:59:28 2019
    496499! Working directory    : /home/forkel-r/palmstuff/work/trunk20190327/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    497500! Equation file        : chem_gasphase_mod.kpp
     
    520523!
    521524! File                 : chem_gasphase_mod_Function.f90
    522 ! Time                 : Wed Mar 27 09:51:38 2019
     525! Time                 : Thu Mar 28 15:59:28 2019
    523526! Working directory    : /home/forkel-r/palmstuff/work/trunk20190327/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    524527! Equation file        : chem_gasphase_mod.kpp
     
    549552!
    550553! File                 : chem_gasphase_mod_Rates.f90
    551 ! Time                 : Wed Mar 27 09:51:38 2019
     554! Time                 : Thu Mar 28 15:59:28 2019
    552555! Working directory    : /home/forkel-r/palmstuff/work/trunk20190327/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    553556! Equation file        : chem_gasphase_mod.kpp
     
    575578!
    576579! File                 : chem_gasphase_mod_Util.f90
    577 ! Time                 : Wed Mar 27 09:51:38 2019
     580! Time                 : Thu Mar 28 15:59:28 2019
    578581! Working directory    : /home/forkel-r/palmstuff/work/trunk20190327/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    579582! Equation file        : chem_gasphase_mod.kpp
     
    609612  INTEGER, PARAMETER, PUBLIC :: nkppctrl = 20
    610613  !
    611   INTEGER, DIMENSION(nkppctrl), PUBLIC     :: icntrl = 0
     614  ! steering PARAMETERs for chemistry solver (see kpp domumentation)
     615  INTEGER, DIMENSION(nkppctrl), PUBLIC      :: icntrl = 0
    612616  REAL(dp), DIMENSION(nkppctrl), PUBLIC     :: rcntrl = 0.0_dp
     617  ! t_steps: fixed time steps in vector mode
    613618  REAL(dp), DIMENSION(nmaxfixsteps), PUBLIC :: t_steps = 0.0_dp
    614619
  • palm/trunk/UTIL/chemistry/gasphase_preproc/mechanisms/def_simplep/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:39 2019
     119! Time                 : Thu Mar 28 15:59:29 2019
    117120! Working directory    : /home/forkel-r/palmstuff/work/trunk20190327/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    118121! Equation file        : chem_gasphase_mod.kpp
     
    199202!
    200203! File                 : chem_gasphase_mod_Global.f90
    201 ! Time                 : Wed Mar 27 09:51:39 2019
     204! Time                 : Thu Mar 28 15:59:29 2019
    202205! Working directory    : /home/forkel-r/palmstuff/work/trunk20190327/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    203206! Equation file        : chem_gasphase_mod.kpp
     
    264267!
    265268! File                 : chem_gasphase_mod_JacobianSP.f90
    266 ! Time                 : Wed Mar 27 09:51:39 2019
     269! Time                 : Thu Mar 28 15:59:29 2019
    267270! Working directory    : /home/forkel-r/palmstuff/work/trunk20190327/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    268271! Equation file        : chem_gasphase_mod.kpp
     
    314317!
    315318! File                 : chem_gasphase_mod_Monitor.f90
    316 ! Time                 : Wed Mar 27 09:51:39 2019
     319! Time                 : Thu Mar 28 15:59:29 2019
    317320! Working directory    : /home/forkel-r/palmstuff/work/trunk20190327/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    318321! Equation file        : chem_gasphase_mod.kpp
     
    384387!
    385388! File                 : chem_gasphase_mod_Initialize.f90
    386 ! Time                 : Wed Mar 27 09:51:39 2019
     389! Time                 : Thu Mar 28 15:59:29 2019
    387390! Working directory    : /home/forkel-r/palmstuff/work/trunk20190327/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    388391! Equation file        : chem_gasphase_mod.kpp
     
    410413!
    411414! File                 : chem_gasphase_mod_Integrator.f90
    412 ! Time                 : Wed Mar 27 09:51:39 2019
     415! Time                 : Thu Mar 28 15:59:29 2019
    413416! Working directory    : /home/forkel-r/palmstuff/work/trunk20190327/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    414417! Equation file        : chem_gasphase_mod.kpp
     
    468471!
    469472! File                 : chem_gasphase_mod_LinearAlgebra.f90
    470 ! Time                 : Wed Mar 27 09:51:39 2019
     473! Time                 : Thu Mar 28 15:59:29 2019
    471474! Working directory    : /home/forkel-r/palmstuff/work/trunk20190327/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    472475! Equation file        : chem_gasphase_mod.kpp
     
    495498!
    496499! File                 : chem_gasphase_mod_Jacobian.f90
    497 ! Time                 : Wed Mar 27 09:51:39 2019
     500! Time                 : Thu Mar 28 15:59:29 2019
    498501! Working directory    : /home/forkel-r/palmstuff/work/trunk20190327/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    499502! Equation file        : chem_gasphase_mod.kpp
     
    522525!
    523526! File                 : chem_gasphase_mod_Function.f90
    524 ! Time                 : Wed Mar 27 09:51:39 2019
     527! Time                 : Thu Mar 28 15:59:29 2019
    525528! Working directory    : /home/forkel-r/palmstuff/work/trunk20190327/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    526529! Equation file        : chem_gasphase_mod.kpp
     
    551554!
    552555! File                 : chem_gasphase_mod_Rates.f90
    553 ! Time                 : Wed Mar 27 09:51:39 2019
     556! Time                 : Thu Mar 28 15:59:29 2019
    554557! Working directory    : /home/forkel-r/palmstuff/work/trunk20190327/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    555558! Equation file        : chem_gasphase_mod.kpp
     
    577580!
    578581! File                 : chem_gasphase_mod_Util.f90
    579 ! Time                 : Wed Mar 27 09:51:39 2019
     582! Time                 : Thu Mar 28 15:59:29 2019
    580583! Working directory    : /home/forkel-r/palmstuff/work/trunk20190327/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    581584! Equation file        : chem_gasphase_mod.kpp
     
    611614  INTEGER, PARAMETER, PUBLIC :: nkppctrl = 20
    612615  !
    613   INTEGER, DIMENSION(nkppctrl), PUBLIC     :: icntrl = 0
     616  ! steering PARAMETERs for chemistry solver (see kpp domumentation)
     617  INTEGER, DIMENSION(nkppctrl), PUBLIC      :: icntrl = 0
    614618  REAL(dp), DIMENSION(nkppctrl), PUBLIC     :: rcntrl = 0.0_dp
     619  ! t_steps: fixed time steps in vector mode
    615620  REAL(dp), DIMENSION(nmaxfixsteps), PUBLIC :: t_steps = 0.0_dp
    616621
  • palm/trunk/UTIL/chemistry/gasphase_preproc/mechanisms/def_smog/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:40 2019
     119! Time                 : Thu Mar 28 15:59:29 2019
    117120! Working directory    : /home/forkel-r/palmstuff/work/trunk20190327/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    118121! Equation file        : chem_gasphase_mod.kpp
     
    206209!
    207210! File                 : chem_gasphase_mod_Global.f90
    208 ! Time                 : Wed Mar 27 09:51:40 2019
     211! Time                 : Thu Mar 28 15:59:29 2019
    209212! Working directory    : /home/forkel-r/palmstuff/work/trunk20190327/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    210213! Equation file        : chem_gasphase_mod.kpp
     
    271274!
    272275! File                 : chem_gasphase_mod_JacobianSP.f90
    273 ! Time                 : Wed Mar 27 09:51:40 2019
     276! Time                 : Thu Mar 28 15:59:29 2019
    274277! Working directory    : /home/forkel-r/palmstuff/work/trunk20190327/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    275278! Equation file        : chem_gasphase_mod.kpp
     
    327330!
    328331! File                 : chem_gasphase_mod_Monitor.f90
    329 ! Time                 : Wed Mar 27 09:51:40 2019
     332! Time                 : Thu Mar 28 15:59:29 2019
    330333! Working directory    : /home/forkel-r/palmstuff/work/trunk20190327/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    331334! Equation file        : chem_gasphase_mod.kpp
     
    403406!
    404407! File                 : chem_gasphase_mod_Initialize.f90
    405 ! Time                 : Wed Mar 27 09:51:40 2019
     408! Time                 : Thu Mar 28 15:59:29 2019
    406409! Working directory    : /home/forkel-r/palmstuff/work/trunk20190327/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    407410! Equation file        : chem_gasphase_mod.kpp
     
    429432!
    430433! File                 : chem_gasphase_mod_Integrator.f90
    431 ! Time                 : Wed Mar 27 09:51:40 2019
     434! Time                 : Thu Mar 28 15:59:29 2019
    432435! Working directory    : /home/forkel-r/palmstuff/work/trunk20190327/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    433436! Equation file        : chem_gasphase_mod.kpp
     
    487490!
    488491! File                 : chem_gasphase_mod_LinearAlgebra.f90
    489 ! Time                 : Wed Mar 27 09:51:40 2019
     492! Time                 : Thu Mar 28 15:59:29 2019
    490493! Working directory    : /home/forkel-r/palmstuff/work/trunk20190327/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    491494! Equation file        : chem_gasphase_mod.kpp
     
    514517!
    515518! File                 : chem_gasphase_mod_Jacobian.f90
    516 ! Time                 : Wed Mar 27 09:51:40 2019
     519! Time                 : Thu Mar 28 15:59:29 2019
    517520! Working directory    : /home/forkel-r/palmstuff/work/trunk20190327/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    518521! Equation file        : chem_gasphase_mod.kpp
     
    541544!
    542545! File                 : chem_gasphase_mod_Function.f90
    543 ! Time                 : Wed Mar 27 09:51:40 2019
     546! Time                 : Thu Mar 28 15:59:29 2019
    544547! Working directory    : /home/forkel-r/palmstuff/work/trunk20190327/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    545548! Equation file        : chem_gasphase_mod.kpp
     
    570573!
    571574! File                 : chem_gasphase_mod_Rates.f90
    572 ! Time                 : Wed Mar 27 09:51:40 2019
     575! Time                 : Thu Mar 28 15:59:29 2019
    573576! Working directory    : /home/forkel-r/palmstuff/work/trunk20190327/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    574577! Equation file        : chem_gasphase_mod.kpp
     
    596599!
    597600! File                 : chem_gasphase_mod_Util.f90
    598 ! Time                 : Wed Mar 27 09:51:40 2019
     601! Time                 : Thu Mar 28 15:59:29 2019
    599602! Working directory    : /home/forkel-r/palmstuff/work/trunk20190327/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    600603! Equation file        : chem_gasphase_mod.kpp
     
    630633  INTEGER, PARAMETER, PUBLIC :: nkppctrl = 20
    631634  !
    632   INTEGER, DIMENSION(nkppctrl), PUBLIC     :: icntrl = 0
     635  ! steering PARAMETERs for chemistry solver (see kpp domumentation)
     636  INTEGER, DIMENSION(nkppctrl), PUBLIC      :: icntrl = 0
    633637  REAL(dp), DIMENSION(nkppctrl), PUBLIC     :: rcntrl = 0.0_dp
     638  ! t_steps: fixed time steps in vector mode
    634639  REAL(dp), DIMENSION(nmaxfixsteps), PUBLIC :: t_steps = 0.0_dp
    635640
Note: See TracChangeset for help on using the changeset viewer.