Changeset 3833 for palm/trunk/UTIL/chemistry/gasphase_preproc/mechanisms/def_smog/chem_gasphase_mod.f90
- 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_smog/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:402019119 ! 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 … … 206 209 ! 207 210 ! File : chem_gasphase_mod_Global.f90 208 ! Time : Wed Mar 27 09:51:402019211 ! Time : Thu Mar 28 15:59:29 2019 209 212 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190327/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 210 213 ! Equation file : chem_gasphase_mod.kpp … … 271 274 ! 272 275 ! File : chem_gasphase_mod_JacobianSP.f90 273 ! Time : Wed Mar 27 09:51:402019276 ! Time : Thu Mar 28 15:59:29 2019 274 277 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190327/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 275 278 ! Equation file : chem_gasphase_mod.kpp … … 327 330 ! 328 331 ! File : chem_gasphase_mod_Monitor.f90 329 ! Time : Wed Mar 27 09:51:402019332 ! Time : Thu Mar 28 15:59:29 2019 330 333 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190327/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 331 334 ! Equation file : chem_gasphase_mod.kpp … … 403 406 ! 404 407 ! File : chem_gasphase_mod_Initialize.f90 405 ! Time : Wed Mar 27 09:51:402019408 ! Time : Thu Mar 28 15:59:29 2019 406 409 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190327/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 407 410 ! Equation file : chem_gasphase_mod.kpp … … 429 432 ! 430 433 ! File : chem_gasphase_mod_Integrator.f90 431 ! Time : Wed Mar 27 09:51:402019434 ! Time : Thu Mar 28 15:59:29 2019 432 435 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190327/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 433 436 ! Equation file : chem_gasphase_mod.kpp … … 487 490 ! 488 491 ! File : chem_gasphase_mod_LinearAlgebra.f90 489 ! Time : Wed Mar 27 09:51:402019492 ! Time : Thu Mar 28 15:59:29 2019 490 493 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190327/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 491 494 ! Equation file : chem_gasphase_mod.kpp … … 514 517 ! 515 518 ! File : chem_gasphase_mod_Jacobian.f90 516 ! Time : Wed Mar 27 09:51:402019519 ! Time : Thu Mar 28 15:59:29 2019 517 520 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190327/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 518 521 ! Equation file : chem_gasphase_mod.kpp … … 541 544 ! 542 545 ! File : chem_gasphase_mod_Function.f90 543 ! Time : Wed Mar 27 09:51:402019546 ! Time : Thu Mar 28 15:59:29 2019 544 547 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190327/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 545 548 ! Equation file : chem_gasphase_mod.kpp … … 570 573 ! 571 574 ! File : chem_gasphase_mod_Rates.f90 572 ! Time : Wed Mar 27 09:51:402019575 ! Time : Thu Mar 28 15:59:29 2019 573 576 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190327/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 574 577 ! Equation file : chem_gasphase_mod.kpp … … 596 599 ! 597 600 ! File : chem_gasphase_mod_Util.f90 598 ! Time : Wed Mar 27 09:51:402019601 ! Time : Thu Mar 28 15:59:29 2019 599 602 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190327/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 600 603 ! Equation file : chem_gasphase_mod.kpp … … 630 633 INTEGER, PARAMETER, PUBLIC :: nkppctrl = 20 631 634 ! 632 INTEGER, DIMENSION(nkppctrl), PUBLIC :: icntrl = 0 635 ! steering PARAMETERs for chemistry solver (see kpp domumentation) 636 INTEGER, DIMENSION(nkppctrl), PUBLIC :: icntrl = 0 633 637 REAL(dp), DIMENSION(nkppctrl), PUBLIC :: rcntrl = 0.0_dp 638 ! t_steps: fixed time steps in vector mode 634 639 REAL(dp), DIMENSION(nmaxfixsteps), PUBLIC :: t_steps = 0.0_dp 635 640
Note: See TracChangeset
for help on using the changeset viewer.