Changeset 3780 for palm/trunk/UTIL/chemistry/gasphase_preproc/mechanisms/def_phstat/chem_gasphase_mod.f90
- 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_phstat/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:50 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 … … 189 191 ! 190 192 ! File : chem_gasphase_mod_Global.f90 191 ! Time : Fri Nov 30 13:52:19 2018192 ! Working directory : /home/forkel-r/palmstuff/work/trunk201 81130/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm193 ! Time : Tue Mar 5 11:50:50 2019 194 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190305/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 193 195 ! Equation file : chem_gasphase_mod.kpp 194 196 ! Output root filename : chem_gasphase_mod … … 235 237 REAL(kind=dp):: fakt 236 238 239 ! CS_MECH for check of mechanism name with namelist 240 CHARACTER(len=30):: cs_mech 237 241 238 242 ! INLINED global variable declarations … … 255 259 ! 256 260 ! File : chem_gasphase_mod_JacobianSP.f90 257 ! Time : Fri Nov 30 13:52:19 2018258 ! Working directory : /home/forkel-r/palmstuff/work/trunk201 81130/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm261 ! Time : Tue Mar 5 11:50:50 2019 262 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190305/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 259 263 ! Equation file : chem_gasphase_mod.kpp 260 264 ! Output root filename : chem_gasphase_mod … … 299 303 ! 300 304 ! File : chem_gasphase_mod_Monitor.f90 301 ! Time : Fri Nov 30 13:52:19 2018302 ! Working directory : /home/forkel-r/palmstuff/work/trunk201 81130/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm305 ! Time : Tue Mar 5 11:50:50 2019 306 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190305/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 303 307 ! Equation file : chem_gasphase_mod.kpp 304 308 ! Output root filename : chem_gasphase_mod … … 359 363 ! 360 364 ! File : chem_gasphase_mod_Initialize.f90 361 ! Time : Fri Nov 30 13:52:19 2018362 ! Working directory : /home/forkel-r/palmstuff/work/trunk201 81130/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm365 ! Time : Tue Mar 5 11:50:50 2019 366 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190305/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 363 367 ! Equation file : chem_gasphase_mod.kpp 364 368 ! Output root filename : chem_gasphase_mod … … 385 389 ! 386 390 ! File : chem_gasphase_mod_Integrator.f90 387 ! Time : Fri Nov 30 13:52:19 2018388 ! Working directory : /home/forkel-r/palmstuff/work/trunk201 81130/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm391 ! Time : Tue Mar 5 11:50:50 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 … … 443 447 ! 444 448 ! File : chem_gasphase_mod_LinearAlgebra.f90 445 ! Time : Fri Nov 30 13:52:19 2018446 ! Working directory : /home/forkel-r/palmstuff/work/trunk201 81130/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm449 ! Time : Tue Mar 5 11:50:50 2019 450 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190305/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 447 451 ! Equation file : chem_gasphase_mod.kpp 448 452 ! Output root filename : chem_gasphase_mod … … 470 474 ! 471 475 ! File : chem_gasphase_mod_Jacobian.f90 472 ! Time : Fri Nov 30 13:52:19 2018473 ! Working directory : /home/forkel-r/palmstuff/work/trunk201 81130/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm476 ! Time : Tue Mar 5 11:50:50 2019 477 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190305/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 474 478 ! Equation file : chem_gasphase_mod.kpp 475 479 ! Output root filename : chem_gasphase_mod … … 497 501 ! 498 502 ! File : chem_gasphase_mod_Function.f90 499 ! Time : Fri Nov 30 13:52:19 2018500 ! Working directory : /home/forkel-r/palmstuff/work/trunk201 81130/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm503 ! Time : Tue Mar 5 11:50:50 2019 504 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190305/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 501 505 ! Equation file : chem_gasphase_mod.kpp 502 506 ! Output root filename : chem_gasphase_mod … … 526 530 ! 527 531 ! File : chem_gasphase_mod_Rates.f90 528 ! Time : Fri Nov 30 13:52:19 2018529 ! Working directory : /home/forkel-r/palmstuff/work/trunk201 81130/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm532 ! Time : Tue Mar 5 11:50:50 2019 533 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190305/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 530 534 ! Equation file : chem_gasphase_mod.kpp 531 535 ! Output root filename : chem_gasphase_mod … … 552 556 ! 553 557 ! File : chem_gasphase_mod_Util.f90 554 ! Time : Fri Nov 30 13:52:19 2018555 ! Working directory : /home/forkel-r/palmstuff/work/trunk201 81130/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm558 ! Time : Tue Mar 5 11:50:50 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 … … 658 662 MODULE PROCEDURE kppdecomp 659 663 END INTERFACE kppdecomp 664 665 INTERFACE get_mechanismname 666 MODULE PROCEDURE get_mechanismname 667 END INTERFACE get_mechanismname 660 668 661 669 INTERFACE chem_gasphase_integrate … … 2253 2261 END SUBROUTINE kppdecomp 2254 2262 2263 SUBROUTINE get_mechanismname 2264 2265 IMPLICIT NONE 2266 2267 ! Set cs_mech for check with mechanism name from namelist 2268 cs_mech = 'phstat' 2269 2270 RETURN 2271 END SUBROUTINE get_mechanismname 2272 2273 2255 2274 SUBROUTINE chem_gasphase_integrate (time_step_len, conc, tempi, qvapi, fakti, photo, ierrf, xnacc, xnrej, istatus, l_debug, pe, & 2256 2275 icntrl_i, rcntrl_i) … … 2338 2357 2339 2358 RETURN 2340 END SUBROUTINE chem_gasphase_integrate 2359 END SUBROUTINE chem_gasphase_integrate 2341 2360 2342 2361 END MODULE chem_gasphase_mod
Note: See TracChangeset
for help on using the changeset viewer.