- Timestamp:
- Mar 5, 2019 11:19:45 AM (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/UTIL/chemistry/gasphase_preproc/mechanisms/def_salsa+simple/chem_gasphase_mod.f90
r3698 r3780 65 65 ! ,REQ_MCFCT,IP_MAX,jname 66 66 67 PUBLIC :: cs_mech 67 68 PUBLIC :: eqn_names, phot_names, spc_names 68 69 PUBLIC :: nmaxfixsteps … … 81 82 PUBLIC :: chem_gasphase_integrate 82 83 PUBLIC :: initialize_kpp_ctrl 84 PUBLIC :: get_mechanismname 83 85 84 86 ! END OF MODULE HEADER TEMPLATE … … 113 115 ! 114 116 ! File : chem_gasphase_mod_Parameters.f90 115 ! Time : T hu Dec 20 14:58:04 2018116 ! Working directory : /home/forkel-r/palmstuff/work/trunk201 81220/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm117 ! Time : Tue Mar 5 11:50:51 2019 118 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190305/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 117 119 ! Equation file : chem_gasphase_mod.kpp 118 120 ! Output root filename : chem_gasphase_mod … … 201 203 ! 202 204 ! File : chem_gasphase_mod_Global.f90 203 ! Time : T hu Dec 20 14:58:04 2018204 ! Working directory : /home/forkel-r/palmstuff/work/trunk201 81220/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm205 ! Time : Tue Mar 5 11:50:51 2019 206 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190305/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 205 207 ! Equation file : chem_gasphase_mod.kpp 206 208 ! Output root filename : chem_gasphase_mod … … 254 256 REAL(kind=dp):: fakt 255 257 258 ! CS_MECH for check of mechanism name with namelist 259 CHARACTER(len=30):: cs_mech 256 260 257 261 ! INLINED global variable declarations … … 274 278 ! 275 279 ! File : chem_gasphase_mod_JacobianSP.f90 276 ! Time : T hu Dec 20 14:58:04 2018277 ! Working directory : /home/forkel-r/palmstuff/work/trunk201 81220/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm280 ! Time : Tue Mar 5 11:50:51 2019 281 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190305/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 278 282 ! Equation file : chem_gasphase_mod.kpp 279 283 ! Output root filename : chem_gasphase_mod … … 326 330 ! 327 331 ! File : chem_gasphase_mod_Monitor.f90 328 ! Time : T hu Dec 20 14:58:04 2018329 ! Working directory : /home/forkel-r/palmstuff/work/trunk201 81220/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm332 ! Time : Tue Mar 5 11:50:51 2019 333 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190305/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 330 334 ! Equation file : chem_gasphase_mod.kpp 331 335 ! Output root filename : chem_gasphase_mod … … 400 404 ! 401 405 ! File : chem_gasphase_mod_Initialize.f90 402 ! Time : T hu Dec 20 14:58:04 2018403 ! Working directory : /home/forkel-r/palmstuff/work/trunk201 81220/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm406 ! Time : Tue Mar 5 11:50:51 2019 407 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190305/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 404 408 ! Equation file : chem_gasphase_mod.kpp 405 409 ! Output root filename : chem_gasphase_mod … … 426 430 ! 427 431 ! File : chem_gasphase_mod_Integrator.f90 428 ! Time : T hu Dec 20 14:58:04 2018429 ! Working directory : /home/forkel-r/palmstuff/work/trunk201 81220/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm432 ! Time : Tue Mar 5 11:50:51 2019 433 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190305/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 430 434 ! Equation file : chem_gasphase_mod.kpp 431 435 ! Output root filename : chem_gasphase_mod … … 484 488 ! 485 489 ! File : chem_gasphase_mod_LinearAlgebra.f90 486 ! Time : T hu Dec 20 14:58:04 2018487 ! Working directory : /home/forkel-r/palmstuff/work/trunk201 81220/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm490 ! Time : Tue Mar 5 11:50:51 2019 491 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190305/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 488 492 ! Equation file : chem_gasphase_mod.kpp 489 493 ! Output root filename : chem_gasphase_mod … … 511 515 ! 512 516 ! File : chem_gasphase_mod_Jacobian.f90 513 ! Time : T hu Dec 20 14:58:04 2018514 ! Working directory : /home/forkel-r/palmstuff/work/trunk201 81220/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm517 ! Time : Tue Mar 5 11:50:51 2019 518 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190305/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 515 519 ! Equation file : chem_gasphase_mod.kpp 516 520 ! Output root filename : chem_gasphase_mod … … 538 542 ! 539 543 ! File : chem_gasphase_mod_Function.f90 540 ! Time : T hu Dec 20 14:58:04 2018541 ! Working directory : /home/forkel-r/palmstuff/work/trunk201 81220/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm544 ! Time : Tue Mar 5 11:50:51 2019 545 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190305/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 542 546 ! Equation file : chem_gasphase_mod.kpp 543 547 ! Output root filename : chem_gasphase_mod … … 567 571 ! 568 572 ! File : chem_gasphase_mod_Rates.f90 569 ! Time : T hu Dec 20 14:58:04 2018570 ! Working directory : /home/forkel-r/palmstuff/work/trunk201 81220/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm573 ! Time : Tue Mar 5 11:50:51 2019 574 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190305/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 571 575 ! Equation file : chem_gasphase_mod.kpp 572 576 ! Output root filename : chem_gasphase_mod … … 593 597 ! 594 598 ! File : chem_gasphase_mod_Util.f90 595 ! Time : T hu Dec 20 14:58:04 2018596 ! Working directory : /home/forkel-r/palmstuff/work/trunk201 81220/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm599 ! Time : Tue Mar 5 11:50:51 2019 600 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190305/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 597 601 ! Equation file : chem_gasphase_mod.kpp 598 602 ! Output root filename : chem_gasphase_mod … … 699 703 MODULE PROCEDURE kppdecomp 700 704 END INTERFACE kppdecomp 705 706 INTERFACE get_mechanismname 707 MODULE PROCEDURE get_mechanismname 708 END INTERFACE get_mechanismname 701 709 702 710 INTERFACE chem_gasphase_integrate … … 2453 2461 END SUBROUTINE kppdecomp 2454 2462 2463 SUBROUTINE get_mechanismname 2464 2465 IMPLICIT NONE 2466 2467 ! Set cs_mech for check with mechanism name from namelist 2468 cs_mech = 'salsa+simple' 2469 2470 RETURN 2471 END SUBROUTINE get_mechanismname 2472 2473 2455 2474 SUBROUTINE chem_gasphase_integrate (time_step_len, conc, tempi, qvapi, fakti, photo, ierrf, xnacc, xnrej, istatus, l_debug, pe, & 2456 2475 icntrl_i, rcntrl_i) … … 2538 2557 2539 2558 RETURN 2540 END SUBROUTINE chem_gasphase_integrate 2559 END SUBROUTINE chem_gasphase_integrate 2541 2560 2542 2561 END MODULE chem_gasphase_mod
Note: See TracChangeset
for help on using the changeset viewer.