- 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_phstat/chem_gasphase_mod.f90
r3799 r3800 114 114 ! 115 115 ! File : chem_gasphase_mod_Parameters.f90 116 ! Time : Fri Mar 15 1 6:28:242019116 ! Time : Fri Mar 15 17:37:41 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 … … 190 190 ! 191 191 ! File : chem_gasphase_mod_Global.f90 192 ! Time : Fri Mar 15 1 6:28:242019192 ! Time : Fri Mar 15 17:37:41 2019 193 193 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 194 194 ! Equation file : chem_gasphase_mod.kpp … … 255 255 ! 256 256 ! File : chem_gasphase_mod_JacobianSP.f90 257 ! Time : Fri Mar 15 1 6:28:242019257 ! Time : Fri Mar 15 17:37:41 2019 258 258 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 259 259 ! Equation file : chem_gasphase_mod.kpp … … 299 299 ! 300 300 ! File : chem_gasphase_mod_Monitor.f90 301 ! Time : Fri Mar 15 1 6:28:242019301 ! Time : Fri Mar 15 17:37:41 2019 302 302 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 303 303 ! Equation file : chem_gasphase_mod.kpp … … 359 359 ! 360 360 ! File : chem_gasphase_mod_Initialize.f90 361 ! Time : Fri Mar 15 1 6:28:242019361 ! Time : Fri Mar 15 17:37:41 2019 362 362 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 363 363 ! Equation file : chem_gasphase_mod.kpp … … 385 385 ! 386 386 ! File : chem_gasphase_mod_Integrator.f90 387 ! Time : Fri Mar 15 1 6:28:242019387 ! Time : Fri Mar 15 17:37:41 2019 388 388 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 389 389 ! Equation file : chem_gasphase_mod.kpp … … 443 443 ! 444 444 ! File : chem_gasphase_mod_LinearAlgebra.f90 445 ! Time : Fri Mar 15 1 6:28:242019445 ! Time : Fri Mar 15 17:37:41 2019 446 446 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 447 447 ! Equation file : chem_gasphase_mod.kpp … … 470 470 ! 471 471 ! File : chem_gasphase_mod_Jacobian.f90 472 ! Time : Fri Mar 15 1 6:28:242019472 ! Time : Fri Mar 15 17:37:41 2019 473 473 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 474 474 ! Equation file : chem_gasphase_mod.kpp … … 497 497 ! 498 498 ! File : chem_gasphase_mod_Function.f90 499 ! Time : Fri Mar 15 1 6:28:242019499 ! Time : Fri Mar 15 17:37:41 2019 500 500 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 501 501 ! Equation file : chem_gasphase_mod.kpp … … 526 526 ! 527 527 ! File : chem_gasphase_mod_Rates.f90 528 ! Time : Fri Mar 15 1 6:28:242019528 ! Time : Fri Mar 15 17:37:41 2019 529 529 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 530 530 ! Equation file : chem_gasphase_mod.kpp … … 552 552 ! 553 553 ! File : chem_gasphase_mod_Util.f90 554 ! Time : Fri Mar 15 1 6:28:242019554 ! Time : Fri Mar 15 17:37:41 2019 555 555 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 556 556 ! Equation file : chem_gasphase_mod.kpp … … 687 687 ! 688 688 ! Following line is just to avoid compiler message about unused variables 689 IF ( lu_crow(1) == 1 .OR. lu_icol(1) == 1 .OR. lu_irow(1) == 1 ) CONTINUE689 IF ( lu_crow(1) == 1 .OR. lu_icol(1) == 1 .OR. lu_irow(1) == 1 ) CONTINUE 690 690 ! 691 691 … … 775 775 776 776 ! Following line is just to avoid compiler message about unused variables 777 IF ( f(nfix) > 0.0_dp ) CONTINUE777 IF ( f(nfix) > 0.0_dp ) CONTINUE 778 778 ! 779 779 ! Computation of equation rates … … 820 820 ! 821 821 ! Following line is just to avoid compiler message about unused variables 822 IF ( f(nfix) > 0.0_dp ) CONTINUE822 IF ( f(nfix) > 0.0_dp ) CONTINUE 823 823 824 824 ! B(1) = dA(1)/dV(3) … … 962 962 ! 963 963 ! Following line is just to avoid compiler message about unused variables 964 IF ( incx == 0 ) CONTINUE964 IF ( incx == 0 ) CONTINUE 965 965 966 966 IF (alpha .eq. one)RETURN … … 1028 1028 ! 1029 1029 ! Following line is just to avoid compiler message about unused variables 1030 IF ( incx == 0 .OR. incy == 0 ) CONTINUE1030 IF ( incx == 0 .OR. incy == 0 ) CONTINUE 1031 1031 IF (alpha .eq. zero)RETURN 1032 1032 IF (n .le. 0)RETURN … … 1763 1763 ! 1764 1764 ! Following line is just to avoid compiler message about unused variables 1765 IF ( pivot(1) == 0 ) CONTINUE1765 IF ( pivot(1) == 0 ) CONTINUE 1766 1766 1767 1767 #ifdef full_algebra
Note: See TracChangeset
for help on using the changeset viewer.