- Timestamp:
- Mar 15, 2019 4:40:25 PM (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/UTIL/chemistry/gasphase_preproc/mechanisms/def_simplep/chem_gasphase_mod.f90
r3799 r3800 114 114 ! 115 115 ! File : chem_gasphase_mod_Parameters.f90 116 ! Time : Fri Mar 15 1 6:28:282019116 ! Time : Fri Mar 15 17:37:45 2019 117 117 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 118 118 ! Equation file : chem_gasphase_mod.kpp … … 199 199 ! 200 200 ! File : chem_gasphase_mod_Global.f90 201 ! Time : Fri Mar 15 1 6:28:282019201 ! Time : Fri Mar 15 17:37:45 2019 202 202 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 203 203 ! Equation file : chem_gasphase_mod.kpp … … 264 264 ! 265 265 ! File : chem_gasphase_mod_JacobianSP.f90 266 ! Time : Fri Mar 15 1 6:28:282019266 ! Time : Fri Mar 15 17:37:45 2019 267 267 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 268 268 ! Equation file : chem_gasphase_mod.kpp … … 314 314 ! 315 315 ! File : chem_gasphase_mod_Monitor.f90 316 ! Time : Fri Mar 15 1 6:28:282019316 ! Time : Fri Mar 15 17:37:45 2019 317 317 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 318 318 ! Equation file : chem_gasphase_mod.kpp … … 384 384 ! 385 385 ! File : chem_gasphase_mod_Initialize.f90 386 ! Time : Fri Mar 15 1 6:28:282019386 ! Time : Fri Mar 15 17:37:45 2019 387 387 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 388 388 ! Equation file : chem_gasphase_mod.kpp … … 410 410 ! 411 411 ! File : chem_gasphase_mod_Integrator.f90 412 ! Time : Fri Mar 15 1 6:28:282019412 ! Time : Fri Mar 15 17:37:45 2019 413 413 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 414 414 ! Equation file : chem_gasphase_mod.kpp … … 468 468 ! 469 469 ! File : chem_gasphase_mod_LinearAlgebra.f90 470 ! Time : Fri Mar 15 1 6:28:282019470 ! Time : Fri Mar 15 17:37:45 2019 471 471 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 472 472 ! Equation file : chem_gasphase_mod.kpp … … 495 495 ! 496 496 ! File : chem_gasphase_mod_Jacobian.f90 497 ! Time : Fri Mar 15 1 6:28:282019497 ! Time : Fri Mar 15 17:37:45 2019 498 498 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 499 499 ! Equation file : chem_gasphase_mod.kpp … … 522 522 ! 523 523 ! File : chem_gasphase_mod_Function.f90 524 ! Time : Fri Mar 15 1 6:28:282019524 ! Time : Fri Mar 15 17:37:45 2019 525 525 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 526 526 ! Equation file : chem_gasphase_mod.kpp … … 551 551 ! 552 552 ! File : chem_gasphase_mod_Rates.f90 553 ! Time : Fri Mar 15 1 6:28:282019553 ! Time : Fri Mar 15 17:37:45 2019 554 554 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 555 555 ! Equation file : chem_gasphase_mod.kpp … … 577 577 ! 578 578 ! File : chem_gasphase_mod_Util.f90 579 ! Time : Fri Mar 15 1 6:28:282019579 ! Time : Fri Mar 15 17:37:45 2019 580 580 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 581 581 ! Equation file : chem_gasphase_mod.kpp … … 712 712 ! 713 713 ! Following line is just to avoid compiler message about unused variables 714 IF ( lu_crow(1) == 1 .OR. lu_icol(1) == 1 .OR. lu_irow(1) == 1 ) CONTINUE714 IF ( lu_crow(1) == 1 .OR. lu_icol(1) == 1 .OR. lu_irow(1) == 1 ) CONTINUE 715 715 ! 716 716 … … 800 800 801 801 ! Following line is just to avoid compiler message about unused variables 802 IF ( f(nfix) > 0.0_dp ) CONTINUE802 IF ( f(nfix) > 0.0_dp ) CONTINUE 803 803 ! 804 804 ! Computation of equation rates … … 866 866 ! 867 867 ! Following line is just to avoid compiler message about unused variables 868 IF ( f(nfix) > 0.0_dp ) CONTINUE868 IF ( f(nfix) > 0.0_dp ) CONTINUE 869 869 870 870 ! B(1) = dA(1)/dV(10) … … 1092 1092 ! 1093 1093 ! Following line is just to avoid compiler message about unused variables 1094 IF ( incx == 0 ) CONTINUE1094 IF ( incx == 0 ) CONTINUE 1095 1095 1096 1096 IF (alpha .eq. one)RETURN … … 1158 1158 ! 1159 1159 ! Following line is just to avoid compiler message about unused variables 1160 IF ( incx == 0 .OR. incy == 0 ) CONTINUE1160 IF ( incx == 0 .OR. incy == 0 ) CONTINUE 1161 1161 IF (alpha .eq. zero)RETURN 1162 1162 IF (n .le. 0)RETURN … … 1893 1893 ! 1894 1894 ! Following line is just to avoid compiler message about unused variables 1895 IF ( pivot(1) == 0 ) CONTINUE1895 IF ( pivot(1) == 0 ) CONTINUE 1896 1896 1897 1897 #ifdef full_algebra
Note: See TracChangeset
for help on using the changeset viewer.