- Timestamp:
- Mar 28, 2019 3:04:04 PM (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/UTIL/chemistry/gasphase_preproc/mechanisms/def_simplep/chem_gasphase_mod.f90
r3820 r3833 60 60 !SAVE ! note: occurs again in automatically generated code ... 61 61 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 67 64 PUBLIC :: cs_mech 68 PUBLIC :: eqn_names, phot_names, spc_names 65 PUBLIC :: eqn_names 66 PUBLIC :: fakt 69 67 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 72 78 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 82 82 PUBLIC :: chem_gasphase_integrate 83 PUBLIC :: get_mechanism_name 84 PUBLIC :: initialize 83 85 PUBLIC :: initialize_kpp_ctrl 84 PUBLIC :: get_mechanism_name 86 PUBLIC :: integrate 87 PUBLIC :: update_rconst 85 88 86 89 ! END OF MODULE HEADER TEMPLATE … … 114 117 ! 115 118 ! File : chem_gasphase_mod_Parameters.f90 116 ! Time : Wed Mar 27 09:51:39 2019119 ! Time : Thu Mar 28 15:59:29 2019 117 120 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190327/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 118 121 ! Equation file : chem_gasphase_mod.kpp … … 199 202 ! 200 203 ! File : chem_gasphase_mod_Global.f90 201 ! Time : Wed Mar 27 09:51:39 2019204 ! Time : Thu Mar 28 15:59:29 2019 202 205 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190327/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 203 206 ! Equation file : chem_gasphase_mod.kpp … … 264 267 ! 265 268 ! File : chem_gasphase_mod_JacobianSP.f90 266 ! Time : Wed Mar 27 09:51:39 2019269 ! Time : Thu Mar 28 15:59:29 2019 267 270 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190327/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 268 271 ! Equation file : chem_gasphase_mod.kpp … … 314 317 ! 315 318 ! File : chem_gasphase_mod_Monitor.f90 316 ! Time : Wed Mar 27 09:51:39 2019319 ! Time : Thu Mar 28 15:59:29 2019 317 320 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190327/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 318 321 ! Equation file : chem_gasphase_mod.kpp … … 384 387 ! 385 388 ! File : chem_gasphase_mod_Initialize.f90 386 ! Time : Wed Mar 27 09:51:39 2019389 ! Time : Thu Mar 28 15:59:29 2019 387 390 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190327/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 388 391 ! Equation file : chem_gasphase_mod.kpp … … 410 413 ! 411 414 ! File : chem_gasphase_mod_Integrator.f90 412 ! Time : Wed Mar 27 09:51:39 2019415 ! Time : Thu Mar 28 15:59:29 2019 413 416 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190327/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 414 417 ! Equation file : chem_gasphase_mod.kpp … … 468 471 ! 469 472 ! File : chem_gasphase_mod_LinearAlgebra.f90 470 ! Time : Wed Mar 27 09:51:39 2019473 ! Time : Thu Mar 28 15:59:29 2019 471 474 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190327/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 472 475 ! Equation file : chem_gasphase_mod.kpp … … 495 498 ! 496 499 ! File : chem_gasphase_mod_Jacobian.f90 497 ! Time : Wed Mar 27 09:51:39 2019500 ! Time : Thu Mar 28 15:59:29 2019 498 501 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190327/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 499 502 ! Equation file : chem_gasphase_mod.kpp … … 522 525 ! 523 526 ! File : chem_gasphase_mod_Function.f90 524 ! Time : Wed Mar 27 09:51:39 2019527 ! Time : Thu Mar 28 15:59:29 2019 525 528 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190327/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 526 529 ! Equation file : chem_gasphase_mod.kpp … … 551 554 ! 552 555 ! File : chem_gasphase_mod_Rates.f90 553 ! Time : Wed Mar 27 09:51:39 2019556 ! Time : Thu Mar 28 15:59:29 2019 554 557 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190327/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 555 558 ! Equation file : chem_gasphase_mod.kpp … … 577 580 ! 578 581 ! File : chem_gasphase_mod_Util.f90 579 ! Time : Wed Mar 27 09:51:39 2019582 ! Time : Thu Mar 28 15:59:29 2019 580 583 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190327/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 581 584 ! Equation file : chem_gasphase_mod.kpp … … 611 614 INTEGER, PARAMETER, PUBLIC :: nkppctrl = 20 612 615 ! 613 INTEGER, DIMENSION(nkppctrl), PUBLIC :: icntrl = 0 616 ! steering PARAMETERs for chemistry solver (see kpp domumentation) 617 INTEGER, DIMENSION(nkppctrl), PUBLIC :: icntrl = 0 614 618 REAL(dp), DIMENSION(nkppctrl), PUBLIC :: rcntrl = 0.0_dp 619 ! t_steps: fixed time steps in vector mode 615 620 REAL(dp), DIMENSION(nmaxfixsteps), PUBLIC :: t_steps = 0.0_dp 616 621
Note: See TracChangeset
for help on using the changeset viewer.