- 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_simplep/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:57:53 2018116 ! Working directory : /home/forkel-r/palmstuff/work/trunk201 81220/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm117 ! Time : Tue Mar 5 11:50:52 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 … … 198 200 ! 199 201 ! File : chem_gasphase_mod_Global.f90 200 ! Time : T hu Dec 20 14:57:53 2018201 ! Working directory : /home/forkel-r/palmstuff/work/trunk201 81220/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm202 ! Time : Tue Mar 5 11:50:52 2019 203 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190305/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 202 204 ! Equation file : chem_gasphase_mod.kpp 203 205 ! Output root filename : chem_gasphase_mod … … 245 247 REAL(kind=dp):: fakt 246 248 249 ! CS_MECH for check of mechanism name with namelist 250 CHARACTER(len=30):: cs_mech 247 251 248 252 ! INLINED global variable declarations … … 265 269 ! 266 270 ! File : chem_gasphase_mod_JacobianSP.f90 267 ! Time : T hu Dec 20 14:57:53 2018268 ! Working directory : /home/forkel-r/palmstuff/work/trunk201 81220/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm271 ! Time : Tue Mar 5 11:50:52 2019 272 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190305/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 269 273 ! Equation file : chem_gasphase_mod.kpp 270 274 ! Output root filename : chem_gasphase_mod … … 315 319 ! 316 320 ! File : chem_gasphase_mod_Monitor.f90 317 ! Time : T hu Dec 20 14:57:53 2018318 ! Working directory : /home/forkel-r/palmstuff/work/trunk201 81220/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm321 ! Time : Tue Mar 5 11:50:52 2019 322 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190305/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 319 323 ! Equation file : chem_gasphase_mod.kpp 320 324 ! Output root filename : chem_gasphase_mod … … 385 389 ! 386 390 ! File : chem_gasphase_mod_Initialize.f90 387 ! Time : T hu Dec 20 14:57:53 2018388 ! Working directory : /home/forkel-r/palmstuff/work/trunk201 81220/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm391 ! Time : Tue Mar 5 11:50:52 2019 392 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190305/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 389 393 ! Equation file : chem_gasphase_mod.kpp 390 394 ! Output root filename : chem_gasphase_mod … … 411 415 ! 412 416 ! File : chem_gasphase_mod_Integrator.f90 413 ! Time : T hu Dec 20 14:57:53 2018414 ! Working directory : /home/forkel-r/palmstuff/work/trunk201 81220/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm417 ! Time : Tue Mar 5 11:50:52 2019 418 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190305/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 415 419 ! Equation file : chem_gasphase_mod.kpp 416 420 ! Output root filename : chem_gasphase_mod … … 469 473 ! 470 474 ! File : chem_gasphase_mod_LinearAlgebra.f90 471 ! Time : T hu Dec 20 14:57:53 2018472 ! Working directory : /home/forkel-r/palmstuff/work/trunk201 81220/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm475 ! Time : Tue Mar 5 11:50:52 2019 476 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190305/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 473 477 ! Equation file : chem_gasphase_mod.kpp 474 478 ! Output root filename : chem_gasphase_mod … … 496 500 ! 497 501 ! File : chem_gasphase_mod_Jacobian.f90 498 ! Time : T hu Dec 20 14:57:53 2018499 ! Working directory : /home/forkel-r/palmstuff/work/trunk201 81220/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm502 ! Time : Tue Mar 5 11:50:52 2019 503 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190305/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 500 504 ! Equation file : chem_gasphase_mod.kpp 501 505 ! Output root filename : chem_gasphase_mod … … 523 527 ! 524 528 ! File : chem_gasphase_mod_Function.f90 525 ! Time : T hu Dec 20 14:57:53 2018526 ! Working directory : /home/forkel-r/palmstuff/work/trunk201 81220/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm529 ! Time : Tue Mar 5 11:50:52 2019 530 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190305/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 527 531 ! Equation file : chem_gasphase_mod.kpp 528 532 ! Output root filename : chem_gasphase_mod … … 552 556 ! 553 557 ! File : chem_gasphase_mod_Rates.f90 554 ! Time : T hu Dec 20 14:57:53 2018555 ! Working directory : /home/forkel-r/palmstuff/work/trunk201 81220/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm558 ! Time : Tue Mar 5 11:50:52 2019 559 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190305/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 556 560 ! Equation file : chem_gasphase_mod.kpp 557 561 ! Output root filename : chem_gasphase_mod … … 578 582 ! 579 583 ! File : chem_gasphase_mod_Util.f90 580 ! Time : T hu Dec 20 14:57:53 2018581 ! Working directory : /home/forkel-r/palmstuff/work/trunk201 81220/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm584 ! Time : Tue Mar 5 11:50:52 2019 585 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190305/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 582 586 ! Equation file : chem_gasphase_mod.kpp 583 587 ! Output root filename : chem_gasphase_mod … … 684 688 MODULE PROCEDURE kppdecomp 685 689 END INTERFACE kppdecomp 690 691 INTERFACE get_mechanismname 692 MODULE PROCEDURE get_mechanismname 693 END INTERFACE get_mechanismname 686 694 687 695 INTERFACE chem_gasphase_integrate … … 2411 2419 END SUBROUTINE kppdecomp 2412 2420 2421 SUBROUTINE get_mechanismname 2422 2423 IMPLICIT NONE 2424 2425 ! Set cs_mech for check with mechanism name from namelist 2426 cs_mech = 'simplep' 2427 2428 RETURN 2429 END SUBROUTINE get_mechanismname 2430 2431 2413 2432 SUBROUTINE chem_gasphase_integrate (time_step_len, conc, tempi, qvapi, fakti, photo, ierrf, xnacc, xnrej, istatus, l_debug, pe, & 2414 2433 icntrl_i, rcntrl_i) … … 2496 2515 2497 2516 RETURN 2498 END SUBROUTINE chem_gasphase_integrate 2517 END SUBROUTINE chem_gasphase_integrate 2499 2518 2500 2519 END MODULE chem_gasphase_mod
Note: See TracChangeset
for help on using the changeset viewer.