Changeset 3780 for palm/trunk/UTIL/chemistry/gasphase_preproc/mechanisms/def_salsa+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_salsa+phstat/chem_gasphase_mod.f90
r3709 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:20 2018116 ! Working directory : /home/forkel-r/palmstuff/work/trunk201 81130/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 … … 189 191 ! 190 192 ! File : chem_gasphase_mod_Global.f90 191 ! Time : Fri Nov 30 13:52:20 2018192 ! Working directory : /home/forkel-r/palmstuff/work/trunk201 81130/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm193 ! Time : Tue Mar 5 11:50:51 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 … … 244 246 REAL(kind=dp):: fakt 245 247 248 ! CS_MECH for check of mechanism name with namelist 249 CHARACTER(len=30):: cs_mech 246 250 247 251 ! INLINED global variable declarations … … 264 268 ! 265 269 ! File : chem_gasphase_mod_JacobianSP.f90 266 ! Time : Fri Nov 30 13:52:20 2018267 ! Working directory : /home/forkel-r/palmstuff/work/trunk201 81130/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm270 ! Time : Tue Mar 5 11:50:51 2019 271 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190305/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 268 272 ! Equation file : chem_gasphase_mod.kpp 269 273 ! Output root filename : chem_gasphase_mod … … 308 312 ! 309 313 ! File : chem_gasphase_mod_Monitor.f90 310 ! Time : Fri Nov 30 13:52:20 2018311 ! Working directory : /home/forkel-r/palmstuff/work/trunk201 81130/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm314 ! Time : Tue Mar 5 11:50:51 2019 315 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190305/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 312 316 ! Equation file : chem_gasphase_mod.kpp 313 317 ! Output root filename : chem_gasphase_mod … … 368 372 ! 369 373 ! File : chem_gasphase_mod_Initialize.f90 370 ! Time : Fri Nov 30 13:52:20 2018371 ! Working directory : /home/forkel-r/palmstuff/work/trunk201 81130/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm374 ! Time : Tue Mar 5 11:50:51 2019 375 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190305/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 372 376 ! Equation file : chem_gasphase_mod.kpp 373 377 ! Output root filename : chem_gasphase_mod … … 394 398 ! 395 399 ! File : chem_gasphase_mod_Integrator.f90 396 ! Time : Fri Nov 30 13:52:20 2018397 ! Working directory : /home/forkel-r/palmstuff/work/trunk201 81130/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm400 ! Time : Tue Mar 5 11:50:51 2019 401 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190305/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 398 402 ! Equation file : chem_gasphase_mod.kpp 399 403 ! Output root filename : chem_gasphase_mod … … 452 456 ! 453 457 ! File : chem_gasphase_mod_LinearAlgebra.f90 454 ! Time : Fri Nov 30 13:52:20 2018455 ! Working directory : /home/forkel-r/palmstuff/work/trunk201 81130/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm458 ! Time : Tue Mar 5 11:50:51 2019 459 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190305/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 456 460 ! Equation file : chem_gasphase_mod.kpp 457 461 ! Output root filename : chem_gasphase_mod … … 479 483 ! 480 484 ! File : chem_gasphase_mod_Jacobian.f90 481 ! Time : Fri Nov 30 13:52:20 2018482 ! Working directory : /home/forkel-r/palmstuff/work/trunk201 81130/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm485 ! Time : Tue Mar 5 11:50:51 2019 486 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190305/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 483 487 ! Equation file : chem_gasphase_mod.kpp 484 488 ! Output root filename : chem_gasphase_mod … … 506 510 ! 507 511 ! File : chem_gasphase_mod_Function.f90 508 ! Time : Fri Nov 30 13:52:20 2018509 ! Working directory : /home/forkel-r/palmstuff/work/trunk201 81130/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm512 ! Time : Tue Mar 5 11:50:51 2019 513 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190305/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 510 514 ! Equation file : chem_gasphase_mod.kpp 511 515 ! Output root filename : chem_gasphase_mod … … 535 539 ! 536 540 ! File : chem_gasphase_mod_Rates.f90 537 ! Time : Fri Nov 30 13:52:20 2018538 ! Working directory : /home/forkel-r/palmstuff/work/trunk201 81130/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm541 ! Time : Tue Mar 5 11:50:51 2019 542 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190305/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 539 543 ! Equation file : chem_gasphase_mod.kpp 540 544 ! Output root filename : chem_gasphase_mod … … 561 565 ! 562 566 ! File : chem_gasphase_mod_Util.f90 563 ! Time : Fri Nov 30 13:52:20 2018564 ! Working directory : /home/forkel-r/palmstuff/work/trunk201 81130/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm567 ! Time : Tue Mar 5 11:50:51 2019 568 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190305/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 565 569 ! Equation file : chem_gasphase_mod.kpp 566 570 ! Output root filename : chem_gasphase_mod … … 667 671 MODULE PROCEDURE kppdecomp 668 672 END INTERFACE kppdecomp 673 674 INTERFACE get_mechanismname 675 MODULE PROCEDURE get_mechanismname 676 END INTERFACE get_mechanismname 669 677 670 678 INTERFACE chem_gasphase_integrate … … 2262 2270 END SUBROUTINE kppdecomp 2263 2271 2272 SUBROUTINE get_mechanismname 2273 2274 IMPLICIT NONE 2275 2276 ! Set cs_mech for check with mechanism name from namelist 2277 cs_mech = 'salsa+phstat' 2278 2279 RETURN 2280 END SUBROUTINE get_mechanismname 2281 2282 2264 2283 SUBROUTINE chem_gasphase_integrate (time_step_len, conc, tempi, qvapi, fakti, photo, ierrf, xnacc, xnrej, istatus, l_debug, pe, & 2265 2284 icntrl_i, rcntrl_i) … … 2347 2366 2348 2367 RETURN 2349 END SUBROUTINE chem_gasphase_integrate 2368 END SUBROUTINE chem_gasphase_integrate 2350 2369 2351 2370 END MODULE chem_gasphase_mod
Note: See TracChangeset
for help on using the changeset viewer.