- 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_phstatp/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 : Fri Nov 30 13:52:19 2018116 ! Working directory : /home/forkel-r/palmstuff/work/trunk201 81130/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm117 ! Time : Tue Mar 5 11:50:53 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 … … 190 192 ! 191 193 ! File : chem_gasphase_mod_Global.f90 192 ! Time : Fri Nov 30 13:52:19 2018193 ! Working directory : /home/forkel-r/palmstuff/work/trunk201 81130/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm194 ! Time : Tue Mar 5 11:50:53 2019 195 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190305/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 194 196 ! Equation file : chem_gasphase_mod.kpp 195 197 ! Output root filename : chem_gasphase_mod … … 236 238 REAL(kind=dp):: fakt 237 239 240 ! CS_MECH for check of mechanism name with namelist 241 CHARACTER(len=30):: cs_mech 238 242 239 243 ! INLINED global variable declarations … … 256 260 ! 257 261 ! File : chem_gasphase_mod_JacobianSP.f90 258 ! Time : Fri Nov 30 13:52:19 2018259 ! Working directory : /home/forkel-r/palmstuff/work/trunk201 81130/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm262 ! Time : Tue Mar 5 11:50:53 2019 263 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190305/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 260 264 ! Equation file : chem_gasphase_mod.kpp 261 265 ! Output root filename : chem_gasphase_mod … … 300 304 ! 301 305 ! File : chem_gasphase_mod_Monitor.f90 302 ! Time : Fri Nov 30 13:52:19 2018303 ! Working directory : /home/forkel-r/palmstuff/work/trunk201 81130/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm306 ! Time : Tue Mar 5 11:50:53 2019 307 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190305/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 304 308 ! Equation file : chem_gasphase_mod.kpp 305 309 ! Output root filename : chem_gasphase_mod … … 362 366 ! 363 367 ! File : chem_gasphase_mod_Initialize.f90 364 ! Time : Fri Nov 30 13:52:19 2018365 ! Working directory : /home/forkel-r/palmstuff/work/trunk201 81130/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm368 ! Time : Tue Mar 5 11:50:53 2019 369 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190305/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 366 370 ! Equation file : chem_gasphase_mod.kpp 367 371 ! Output root filename : chem_gasphase_mod … … 388 392 ! 389 393 ! File : chem_gasphase_mod_Integrator.f90 390 ! Time : Fri Nov 30 13:52:19 2018391 ! Working directory : /home/forkel-r/palmstuff/work/trunk201 81130/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm394 ! Time : Tue Mar 5 11:50:53 2019 395 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190305/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 392 396 ! Equation file : chem_gasphase_mod.kpp 393 397 ! Output root filename : chem_gasphase_mod … … 446 450 ! 447 451 ! File : chem_gasphase_mod_LinearAlgebra.f90 448 ! Time : Fri Nov 30 13:52:19 2018449 ! Working directory : /home/forkel-r/palmstuff/work/trunk201 81130/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm452 ! Time : Tue Mar 5 11:50:53 2019 453 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190305/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 450 454 ! Equation file : chem_gasphase_mod.kpp 451 455 ! Output root filename : chem_gasphase_mod … … 473 477 ! 474 478 ! File : chem_gasphase_mod_Jacobian.f90 475 ! Time : Fri Nov 30 13:52:19 2018476 ! Working directory : /home/forkel-r/palmstuff/work/trunk201 81130/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm479 ! Time : Tue Mar 5 11:50:53 2019 480 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190305/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 477 481 ! Equation file : chem_gasphase_mod.kpp 478 482 ! Output root filename : chem_gasphase_mod … … 500 504 ! 501 505 ! File : chem_gasphase_mod_Function.f90 502 ! Time : Fri Nov 30 13:52:19 2018503 ! Working directory : /home/forkel-r/palmstuff/work/trunk201 81130/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm506 ! Time : Tue Mar 5 11:50:53 2019 507 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190305/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 504 508 ! Equation file : chem_gasphase_mod.kpp 505 509 ! Output root filename : chem_gasphase_mod … … 529 533 ! 530 534 ! File : chem_gasphase_mod_Rates.f90 531 ! Time : Fri Nov 30 13:52:19 2018532 ! Working directory : /home/forkel-r/palmstuff/work/trunk201 81130/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm535 ! Time : Tue Mar 5 11:50:53 2019 536 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190305/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 533 537 ! Equation file : chem_gasphase_mod.kpp 534 538 ! Output root filename : chem_gasphase_mod … … 555 559 ! 556 560 ! File : chem_gasphase_mod_Util.f90 557 ! Time : Fri Nov 30 13:52:19 2018558 ! Working directory : /home/forkel-r/palmstuff/work/trunk201 81130/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm561 ! Time : Tue Mar 5 11:50:53 2019 562 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190305/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 559 563 ! Equation file : chem_gasphase_mod.kpp 560 564 ! Output root filename : chem_gasphase_mod … … 661 665 MODULE PROCEDURE kppdecomp 662 666 END INTERFACE kppdecomp 667 668 INTERFACE get_mechanismname 669 MODULE PROCEDURE get_mechanismname 670 END INTERFACE get_mechanismname 663 671 664 672 INTERFACE chem_gasphase_integrate … … 2264 2272 END SUBROUTINE kppdecomp 2265 2273 2274 SUBROUTINE get_mechanismname 2275 2276 IMPLICIT NONE 2277 2278 ! Set cs_mech for check with mechanism name from namelist 2279 cs_mech = 'phstatp' 2280 2281 RETURN 2282 END SUBROUTINE get_mechanismname 2283 2284 2266 2285 SUBROUTINE chem_gasphase_integrate (time_step_len, conc, tempi, qvapi, fakti, photo, ierrf, xnacc, xnrej, istatus, l_debug, pe, & 2267 2286 icntrl_i, rcntrl_i) … … 2349 2368 2350 2369 RETURN 2351 END SUBROUTINE chem_gasphase_integrate 2370 END SUBROUTINE chem_gasphase_integrate 2352 2371 2353 2372 END MODULE chem_gasphase_mod
Note: See TracChangeset
for help on using the changeset viewer.