Changeset 3800
- Timestamp:
- Mar 15, 2019 4:40:25 PM (6 years ago)
- Location:
- palm/trunk/UTIL/chemistry/gasphase_preproc
- Files:
-
- 12 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/UTIL/chemistry/gasphase_preproc/kpp4palm/bin/kpp4palm.ksh
r3799 r3800 41 41 # $Id$ 42 42 # Removed edit of phot(nphot) for version edit phot(nphot), now done in fortran_file.C (15.03.2019, forkel) 43 # Editing with sed to add dummy statements toavoud unused variables 43 # Editing with sed to add dummy statements toavoud unused variables (15.03.2019, forkel) 44 44 # 45 45 # 3780 2019-03-05 11:19:45Z forkel … … 344 344 # 345 345 sed -i -e '/cfactor =/a ! ' kk_kpp.f90 346 sed -i -e '/cfactor =/a 346 sed -i -e '/cfactor =/a BLANKS IF ( lu_crow(1) == 1 .OR. lu_icol(1) == 1 .OR. lu_irow(1) == 1 ) CONTINUE ' kk_kpp.f90 347 347 sed -i -e '/cfactor =/a ! Following line is just to avoid compiler message about unused variables' kk_kpp.f90 348 348 sed -i -e '/cfactor =/a ! ' kk_kpp.f90 … … 351 351 then 352 352 sed -i -e '/! Computation of equation rates/i ! Following line is just to avoid compiler message about unused variables' kk_kpp.f90 353 sed -i -e '/! Computation of equation rates/i IF ( f(vl,nfix) > 0.0_dp ) CONTINUE' kk_kpp.f90353 sed -i -e '/! Computation of equation rates/i BLANKS IF ( f(vl,nfix) > 0.0_dp ) CONTINUE' kk_kpp.f90 354 354 sed -i -e '/! Computation of equation rates/i ! ' kk_kpp.f90 355 355 else 356 356 sed -i -e '/! Computation of equation rates/i ! Following line is just to avoid compiler message about unused variables' kk_kpp.f90 357 sed -i -e '/! Computation of equation rates/i IF ( f(nfix) > 0.0_dp ) CONTINUE' kk_kpp.f90357 sed -i -e '/! Computation of equation rates/i BLANKS IF ( f(nfix) > 0.0_dp ) CONTINUE' kk_kpp.f90 358 358 sed -i -e '/! Computation of equation rates/i ! ' kk_kpp.f90 359 359 fi … … 361 361 if [[ $MODE = "vector" ]] 362 362 then 363 sed -i -e '/REAL(kind=dp) :: b/a IF ( f(vl,nfix) > 0.0_dp ) CONTINUE' kk_kpp.f90363 sed -i -e '/REAL(kind=dp) :: b/a BLANKS IF ( f(vl,nfix) > 0.0_dp ) CONTINUE' kk_kpp.f90 364 364 sed -i -e '/REAL(kind=dp) :: b/a ! Following line is just to avoid compiler message about unused variables' kk_kpp.f90 365 365 sed -i -e '/REAL(kind=dp):: b/a !' kk_kpp.f90 366 366 else 367 sed -i -e '/REAL(kind=dp):: b/a IF ( f(nfix) > 0.0_dp ) CONTINUE' kk_kpp.f90367 sed -i -e '/REAL(kind=dp):: b/a BLANKS IF ( f(nfix) > 0.0_dp ) CONTINUE' kk_kpp.f90 368 368 sed -i -e '/REAL(kind=dp):: b/a ! Following line is just to avoid compiler message about unused variables' kk_kpp.f90 369 369 sed -i -e '/REAL(kind=dp):: b/a !' kk_kpp.f90 370 370 fi 371 371 372 sed -i -e '/one=1.0_dp/a 372 sed -i -e '/one=1.0_dp/a BLANKS IF ( incx == 0 ) CONTINUE' kk_kpp.f90 373 373 sed -i -e '/one=1.0_dp/a ! Following line is just to avoid compiler message about unused variables' kk_kpp.f90 374 374 sed -i -e '/one=1.0_dp/a ! ' kk_kpp.f90 … … 376 376 sed -i -e '/IF (alpha .eq. zero)RETURN/i ! ' kk_kpp.f90 377 377 sed -i -e '/IF (alpha .eq. zero)RETURN/i ! Following line is just to avoid compiler message about unused variables' kk_kpp.f90 378 sed -i -e '/IF (alpha .eq. zero)RETURN/i 379 380 sed -i -e '/INTENT(INOUT):: b(n)/a 378 sed -i -e '/IF (alpha .eq. zero)RETURN/i BLANKS IF ( incx == 0 .OR. incy == 0 ) CONTINUE' kk_kpp.f90 379 380 sed -i -e '/INTENT(INOUT):: b(n)/a BLANKS IF ( pivot(1) == 0 ) CONTINUE' kk_kpp.f90 381 381 sed -i -e '/INTENT(INOUT):: b(n)/a ! Following line is just to avoid compiler message about unused variables' kk_kpp.f90 382 382 sed -i -e '/INTENT(INOUT):: b(n)/a ! ' kk_kpp.f90 383 384 sed -i -e '1,$s/BLANKS / / ' kk_kpp.f90 383 385 384 386 if [[ -e $OUTDIR/${OUTFILE}.f90 ]] -
palm/trunk/UTIL/chemistry/gasphase_preproc/mechanisms/def_cbm4/chem_gasphase_mod.f90
r3799 r3800 114 114 ! 115 115 ! File : chem_gasphase_mod_Parameters.f90 116 ! Time : Fri Mar 15 1 6:28:212019116 ! Time : Fri Mar 15 17:37:39 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 … … 221 221 ! 222 222 ! File : chem_gasphase_mod_Global.f90 223 ! Time : Fri Mar 15 1 6:28:212019223 ! Time : Fri Mar 15 17:37:39 2019 224 224 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 225 225 ! Equation file : chem_gasphase_mod.kpp … … 286 286 ! 287 287 ! File : chem_gasphase_mod_JacobianSP.f90 288 ! Time : Fri Mar 15 1 6:28:212019288 ! Time : Fri Mar 15 17:37:39 2019 289 289 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 290 290 ! Equation file : chem_gasphase_mod.kpp … … 382 382 ! 383 383 ! File : chem_gasphase_mod_Monitor.f90 384 ! Time : Fri Mar 15 1 6:28:212019384 ! Time : Fri Mar 15 17:37:39 2019 385 385 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 386 386 ! Equation file : chem_gasphase_mod.kpp … … 545 545 ! 546 546 ! File : chem_gasphase_mod_Initialize.f90 547 ! Time : Fri Mar 15 1 6:28:212019547 ! Time : Fri Mar 15 17:37:39 2019 548 548 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 549 549 ! Equation file : chem_gasphase_mod.kpp … … 571 571 ! 572 572 ! File : chem_gasphase_mod_Integrator.f90 573 ! Time : Fri Mar 15 1 6:28:212019573 ! Time : Fri Mar 15 17:37:39 2019 574 574 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 575 575 ! Equation file : chem_gasphase_mod.kpp … … 629 629 ! 630 630 ! File : chem_gasphase_mod_LinearAlgebra.f90 631 ! Time : Fri Mar 15 1 6:28:212019631 ! Time : Fri Mar 15 17:37:39 2019 632 632 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 633 633 ! Equation file : chem_gasphase_mod.kpp … … 656 656 ! 657 657 ! File : chem_gasphase_mod_Jacobian.f90 658 ! Time : Fri Mar 15 1 6:28:212019658 ! Time : Fri Mar 15 17:37:39 2019 659 659 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 660 660 ! Equation file : chem_gasphase_mod.kpp … … 683 683 ! 684 684 ! File : chem_gasphase_mod_Function.f90 685 ! Time : Fri Mar 15 1 6:28:212019685 ! Time : Fri Mar 15 17:37:39 2019 686 686 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 687 687 ! Equation file : chem_gasphase_mod.kpp … … 712 712 ! 713 713 ! File : chem_gasphase_mod_Rates.f90 714 ! Time : Fri Mar 15 1 6:28:212019714 ! Time : Fri Mar 15 17:37:39 2019 715 715 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 716 716 ! Equation file : chem_gasphase_mod.kpp … … 738 738 ! 739 739 ! File : chem_gasphase_mod_Util.f90 740 ! Time : Fri Mar 15 1 6:28:212019740 ! Time : Fri Mar 15 17:37:39 2019 741 741 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 742 742 ! Equation file : chem_gasphase_mod.kpp … … 873 873 ! 874 874 ! Following line is just to avoid compiler message about unused variables 875 IF ( lu_crow(1) == 1 .OR. lu_icol(1) == 1 .OR. lu_irow(1) == 1 ) CONTINUE875 IF ( lu_crow(1) == 1 .OR. lu_icol(1) == 1 .OR. lu_irow(1) == 1 ) CONTINUE 876 876 ! 877 877 … … 963 963 964 964 ! Following line is just to avoid compiler message about unused variables 965 IF ( f(nfix) > 0.0_dp ) CONTINUE965 IF ( f(nfix) > 0.0_dp ) CONTINUE 966 966 ! 967 967 ! Computation of equation rates … … 1221 1221 ! 1222 1222 ! Following line is just to avoid compiler message about unused variables 1223 IF ( f(nfix) > 0.0_dp ) CONTINUE1223 IF ( f(nfix) > 0.0_dp ) CONTINUE 1224 1224 1225 1225 ! B(1) = dA(1)/dV(26) … … 2290 2290 ! 2291 2291 ! Following line is just to avoid compiler message about unused variables 2292 IF ( incx == 0 ) CONTINUE2292 IF ( incx == 0 ) CONTINUE 2293 2293 2294 2294 IF (alpha .eq. one)RETURN … … 2356 2356 ! 2357 2357 ! Following line is just to avoid compiler message about unused variables 2358 IF ( incx == 0 .OR. incy == 0 ) CONTINUE2358 IF ( incx == 0 .OR. incy == 0 ) CONTINUE 2359 2359 IF (alpha .eq. zero)RETURN 2360 2360 IF (n .le. 0)RETURN … … 3091 3091 ! 3092 3092 ! Following line is just to avoid compiler message about unused variables 3093 IF ( pivot(1) == 0 ) CONTINUE3093 IF ( pivot(1) == 0 ) CONTINUE 3094 3094 3095 3095 #ifdef full_algebra -
palm/trunk/UTIL/chemistry/gasphase_preproc/mechanisms/def_passive/chem_gasphase_mod.f90
r3799 r3800 114 114 ! 115 115 ! File : chem_gasphase_mod_Parameters.f90 116 ! Time : Fri Mar 15 1 6:28:222019116 ! Time : Fri Mar 15 17:37:40 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 … … 189 189 ! 190 190 ! File : chem_gasphase_mod_Global.f90 191 ! Time : Fri Mar 15 1 6:28:222019191 ! Time : Fri Mar 15 17:37:40 2019 192 192 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 193 193 ! Equation file : chem_gasphase_mod.kpp … … 254 254 ! 255 255 ! File : chem_gasphase_mod_JacobianSP.f90 256 ! Time : Fri Mar 15 1 6:28:222019256 ! Time : Fri Mar 15 17:37:40 2019 257 257 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 258 258 ! Equation file : chem_gasphase_mod.kpp … … 298 298 ! 299 299 ! File : chem_gasphase_mod_Monitor.f90 300 ! Time : Fri Mar 15 1 6:28:222019300 ! Time : Fri Mar 15 17:37:40 2019 301 301 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 302 302 ! Equation file : chem_gasphase_mod.kpp … … 358 358 ! 359 359 ! File : chem_gasphase_mod_Initialize.f90 360 ! Time : Fri Mar 15 1 6:28:222019360 ! Time : Fri Mar 15 17:37:40 2019 361 361 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 362 362 ! Equation file : chem_gasphase_mod.kpp … … 384 384 ! 385 385 ! File : chem_gasphase_mod_Integrator.f90 386 ! Time : Fri Mar 15 1 6:28:222019386 ! Time : Fri Mar 15 17:37:40 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 … … 442 442 ! 443 443 ! File : chem_gasphase_mod_LinearAlgebra.f90 444 ! Time : Fri Mar 15 1 6:28:222019444 ! Time : Fri Mar 15 17:37:40 2019 445 445 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 446 446 ! Equation file : chem_gasphase_mod.kpp … … 469 469 ! 470 470 ! File : chem_gasphase_mod_Jacobian.f90 471 ! Time : Fri Mar 15 1 6:28:222019471 ! Time : Fri Mar 15 17:37:40 2019 472 472 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 473 473 ! Equation file : chem_gasphase_mod.kpp … … 496 496 ! 497 497 ! File : chem_gasphase_mod_Function.f90 498 ! Time : Fri Mar 15 1 6:28:222019498 ! Time : Fri Mar 15 17:37:40 2019 499 499 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 500 500 ! Equation file : chem_gasphase_mod.kpp … … 525 525 ! 526 526 ! File : chem_gasphase_mod_Rates.f90 527 ! Time : Fri Mar 15 1 6:28:222019527 ! Time : Fri Mar 15 17:37:40 2019 528 528 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 529 529 ! Equation file : chem_gasphase_mod.kpp … … 551 551 ! 552 552 ! File : chem_gasphase_mod_Util.f90 553 ! Time : Fri Mar 15 1 6:28:222019553 ! Time : Fri Mar 15 17:37:40 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 … … 686 686 ! 687 687 ! Following line is just to avoid compiler message about unused variables 688 IF ( lu_crow(1) == 1 .OR. lu_icol(1) == 1 .OR. lu_irow(1) == 1 ) CONTINUE688 IF ( lu_crow(1) == 1 .OR. lu_icol(1) == 1 .OR. lu_irow(1) == 1 ) CONTINUE 689 689 ! 690 690 … … 774 774 775 775 ! Following line is just to avoid compiler message about unused variables 776 IF ( f(nfix) > 0.0_dp ) CONTINUE776 IF ( f(nfix) > 0.0_dp ) CONTINUE 777 777 ! 778 778 ! Computation of equation rates … … 813 813 ! 814 814 ! Following line is just to avoid compiler message about unused variables 815 IF ( f(nfix) > 0.0_dp ) CONTINUE815 IF ( f(nfix) > 0.0_dp ) CONTINUE 816 816 817 817 ! B(1) = dA(1)/dV(1) … … 939 939 ! 940 940 ! Following line is just to avoid compiler message about unused variables 941 IF ( incx == 0 ) CONTINUE941 IF ( incx == 0 ) CONTINUE 942 942 943 943 IF (alpha .eq. one)RETURN … … 1005 1005 ! 1006 1006 ! Following line is just to avoid compiler message about unused variables 1007 IF ( incx == 0 .OR. incy == 0 ) CONTINUE1007 IF ( incx == 0 .OR. incy == 0 ) CONTINUE 1008 1008 IF (alpha .eq. zero)RETURN 1009 1009 IF (n .le. 0)RETURN … … 1740 1740 ! 1741 1741 ! Following line is just to avoid compiler message about unused variables 1742 IF ( pivot(1) == 0 ) CONTINUE1742 IF ( pivot(1) == 0 ) CONTINUE 1743 1743 1744 1744 #ifdef full_algebra -
palm/trunk/UTIL/chemistry/gasphase_preproc/mechanisms/def_passive1/chem_gasphase_mod.f90
r3799 r3800 114 114 ! 115 115 ! File : chem_gasphase_mod_Parameters.f90 116 ! Time : Fri Mar 15 1 6:28:232019116 ! 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 … … 188 188 ! 189 189 ! File : chem_gasphase_mod_Global.f90 190 ! Time : Fri Mar 15 1 6:28:232019190 ! Time : Fri Mar 15 17:37:41 2019 191 191 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 192 192 ! Equation file : chem_gasphase_mod.kpp … … 253 253 ! 254 254 ! File : chem_gasphase_mod_JacobianSP.f90 255 ! Time : Fri Mar 15 1 6:28:232019255 ! Time : Fri Mar 15 17:37:41 2019 256 256 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 257 257 ! Equation file : chem_gasphase_mod.kpp … … 297 297 ! 298 298 ! File : chem_gasphase_mod_Monitor.f90 299 ! Time : Fri Mar 15 1 6:28:232019299 ! Time : Fri Mar 15 17:37:41 2019 300 300 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 301 301 ! Equation file : chem_gasphase_mod.kpp … … 356 356 ! 357 357 ! File : chem_gasphase_mod_Initialize.f90 358 ! Time : Fri Mar 15 1 6:28:232019358 ! Time : Fri Mar 15 17:37:41 2019 359 359 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 360 360 ! Equation file : chem_gasphase_mod.kpp … … 382 382 ! 383 383 ! File : chem_gasphase_mod_Integrator.f90 384 ! Time : Fri Mar 15 1 6:28:232019384 ! Time : Fri Mar 15 17:37:41 2019 385 385 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 386 386 ! Equation file : chem_gasphase_mod.kpp … … 440 440 ! 441 441 ! File : chem_gasphase_mod_LinearAlgebra.f90 442 ! Time : Fri Mar 15 1 6:28:232019442 ! Time : Fri Mar 15 17:37:41 2019 443 443 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 444 444 ! Equation file : chem_gasphase_mod.kpp … … 467 467 ! 468 468 ! File : chem_gasphase_mod_Jacobian.f90 469 ! Time : Fri Mar 15 1 6:28:232019469 ! Time : Fri Mar 15 17:37:41 2019 470 470 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 471 471 ! Equation file : chem_gasphase_mod.kpp … … 494 494 ! 495 495 ! File : chem_gasphase_mod_Function.f90 496 ! Time : Fri Mar 15 1 6:28:232019496 ! Time : Fri Mar 15 17:37:41 2019 497 497 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 498 498 ! Equation file : chem_gasphase_mod.kpp … … 523 523 ! 524 524 ! File : chem_gasphase_mod_Rates.f90 525 ! Time : Fri Mar 15 1 6:28:232019525 ! Time : Fri Mar 15 17:37:41 2019 526 526 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 527 527 ! Equation file : chem_gasphase_mod.kpp … … 549 549 ! 550 550 ! File : chem_gasphase_mod_Util.f90 551 ! Time : Fri Mar 15 1 6:28:232019551 ! Time : Fri Mar 15 17:37:41 2019 552 552 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 553 553 ! Equation file : chem_gasphase_mod.kpp … … 684 684 ! 685 685 ! Following line is just to avoid compiler message about unused variables 686 IF ( lu_crow(1) == 1 .OR. lu_icol(1) == 1 .OR. lu_irow(1) == 1 ) CONTINUE686 IF ( lu_crow(1) == 1 .OR. lu_icol(1) == 1 .OR. lu_irow(1) == 1 ) CONTINUE 687 687 ! 688 688 … … 772 772 773 773 ! Following line is just to avoid compiler message about unused variables 774 IF ( f(nfix) > 0.0_dp ) CONTINUE774 IF ( f(nfix) > 0.0_dp ) CONTINUE 775 775 ! 776 776 ! Computation of equation rates … … 809 809 ! 810 810 ! Following line is just to avoid compiler message about unused variables 811 IF ( f(nfix) > 0.0_dp ) CONTINUE811 IF ( f(nfix) > 0.0_dp ) CONTINUE 812 812 813 813 ! B(1) = dA(1)/dV(1) … … 930 930 ! 931 931 ! Following line is just to avoid compiler message about unused variables 932 IF ( incx == 0 ) CONTINUE932 IF ( incx == 0 ) CONTINUE 933 933 934 934 IF (alpha .eq. one)RETURN … … 996 996 ! 997 997 ! Following line is just to avoid compiler message about unused variables 998 IF ( incx == 0 .OR. incy == 0 ) CONTINUE998 IF ( incx == 0 .OR. incy == 0 ) CONTINUE 999 999 IF (alpha .eq. zero)RETURN 1000 1000 IF (n .le. 0)RETURN … … 1731 1731 ! 1732 1732 ! Following line is just to avoid compiler message about unused variables 1733 IF ( pivot(1) == 0 ) CONTINUE1733 IF ( pivot(1) == 0 ) CONTINUE 1734 1734 1735 1735 #ifdef full_algebra -
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 -
palm/trunk/UTIL/chemistry/gasphase_preproc/mechanisms/def_phstatp/chem_gasphase_mod.f90
r3799 r3800 114 114 ! 115 115 ! File : chem_gasphase_mod_Parameters.f90 116 ! Time : Fri Mar 15 1 6:28:292019116 ! Time : Fri Mar 15 17:37:46 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 … … 191 191 ! 192 192 ! File : chem_gasphase_mod_Global.f90 193 ! Time : Fri Mar 15 1 6:28:292019193 ! Time : Fri Mar 15 17:37:46 2019 194 194 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 195 195 ! Equation file : chem_gasphase_mod.kpp … … 256 256 ! 257 257 ! File : chem_gasphase_mod_JacobianSP.f90 258 ! Time : Fri Mar 15 1 6:28:292019258 ! Time : Fri Mar 15 17:37:46 2019 259 259 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 260 260 ! Equation file : chem_gasphase_mod.kpp … … 300 300 ! 301 301 ! File : chem_gasphase_mod_Monitor.f90 302 ! Time : Fri Mar 15 1 6:28:292019302 ! Time : Fri Mar 15 17:37:46 2019 303 303 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 304 304 ! Equation file : chem_gasphase_mod.kpp … … 362 362 ! 363 363 ! File : chem_gasphase_mod_Initialize.f90 364 ! Time : Fri Mar 15 1 6:28:292019364 ! Time : Fri Mar 15 17:37:46 2019 365 365 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 366 366 ! Equation file : chem_gasphase_mod.kpp … … 388 388 ! 389 389 ! File : chem_gasphase_mod_Integrator.f90 390 ! Time : Fri Mar 15 1 6:28:292019390 ! Time : Fri Mar 15 17:37:46 2019 391 391 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 392 392 ! Equation file : chem_gasphase_mod.kpp … … 446 446 ! 447 447 ! File : chem_gasphase_mod_LinearAlgebra.f90 448 ! Time : Fri Mar 15 1 6:28:292019448 ! Time : Fri Mar 15 17:37:46 2019 449 449 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 450 450 ! Equation file : chem_gasphase_mod.kpp … … 473 473 ! 474 474 ! File : chem_gasphase_mod_Jacobian.f90 475 ! Time : Fri Mar 15 1 6:28:292019475 ! Time : Fri Mar 15 17:37:46 2019 476 476 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 477 477 ! Equation file : chem_gasphase_mod.kpp … … 500 500 ! 501 501 ! File : chem_gasphase_mod_Function.f90 502 ! Time : Fri Mar 15 1 6:28:292019502 ! Time : Fri Mar 15 17:37:46 2019 503 503 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 504 504 ! Equation file : chem_gasphase_mod.kpp … … 529 529 ! 530 530 ! File : chem_gasphase_mod_Rates.f90 531 ! Time : Fri Mar 15 1 6:28:292019531 ! Time : Fri Mar 15 17:37:46 2019 532 532 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 533 533 ! Equation file : chem_gasphase_mod.kpp … … 555 555 ! 556 556 ! File : chem_gasphase_mod_Util.f90 557 ! Time : Fri Mar 15 1 6:28:292019557 ! Time : Fri Mar 15 17:37:46 2019 558 558 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 559 559 ! Equation file : chem_gasphase_mod.kpp … … 690 690 ! 691 691 ! Following line is just to avoid compiler message about unused variables 692 IF ( lu_crow(1) == 1 .OR. lu_icol(1) == 1 .OR. lu_irow(1) == 1 ) CONTINUE692 IF ( lu_crow(1) == 1 .OR. lu_icol(1) == 1 .OR. lu_irow(1) == 1 ) CONTINUE 693 693 ! 694 694 … … 778 778 779 779 ! Following line is just to avoid compiler message about unused variables 780 IF ( f(nfix) > 0.0_dp ) CONTINUE780 IF ( f(nfix) > 0.0_dp ) CONTINUE 781 781 ! 782 782 ! Computation of equation rates … … 825 825 ! 826 826 ! Following line is just to avoid compiler message about unused variables 827 IF ( f(nfix) > 0.0_dp ) CONTINUE827 IF ( f(nfix) > 0.0_dp ) CONTINUE 828 828 829 829 ! B(1) = dA(1)/dV(3) … … 972 972 ! 973 973 ! Following line is just to avoid compiler message about unused variables 974 IF ( incx == 0 ) CONTINUE974 IF ( incx == 0 ) CONTINUE 975 975 976 976 IF (alpha .eq. one)RETURN … … 1038 1038 ! 1039 1039 ! Following line is just to avoid compiler message about unused variables 1040 IF ( incx == 0 .OR. incy == 0 ) CONTINUE1040 IF ( incx == 0 .OR. incy == 0 ) CONTINUE 1041 1041 IF (alpha .eq. zero)RETURN 1042 1042 IF (n .le. 0)RETURN … … 1773 1773 ! 1774 1774 ! Following line is just to avoid compiler message about unused variables 1775 IF ( pivot(1) == 0 ) CONTINUE1775 IF ( pivot(1) == 0 ) CONTINUE 1776 1776 1777 1777 #ifdef full_algebra -
palm/trunk/UTIL/chemistry/gasphase_preproc/mechanisms/def_salsa+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:262019116 ! Time : Fri Mar 15 17:37:43 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:262019192 ! Time : Fri Mar 15 17:37:43 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 … … 264 264 ! 265 265 ! File : chem_gasphase_mod_JacobianSP.f90 266 ! Time : Fri Mar 15 1 6:28:262019266 ! Time : Fri Mar 15 17:37:43 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 … … 308 308 ! 309 309 ! File : chem_gasphase_mod_Monitor.f90 310 ! Time : Fri Mar 15 1 6:28:262019310 ! Time : Fri Mar 15 17:37:43 2019 311 311 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 312 312 ! Equation file : chem_gasphase_mod.kpp … … 368 368 ! 369 369 ! File : chem_gasphase_mod_Initialize.f90 370 ! Time : Fri Mar 15 1 6:28:262019370 ! Time : Fri Mar 15 17:37:43 2019 371 371 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 372 372 ! Equation file : chem_gasphase_mod.kpp … … 394 394 ! 395 395 ! File : chem_gasphase_mod_Integrator.f90 396 ! Time : Fri Mar 15 1 6:28:262019396 ! Time : Fri Mar 15 17:37:43 2019 397 397 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 398 398 ! Equation file : chem_gasphase_mod.kpp … … 452 452 ! 453 453 ! File : chem_gasphase_mod_LinearAlgebra.f90 454 ! Time : Fri Mar 15 1 6:28:262019454 ! Time : Fri Mar 15 17:37:43 2019 455 455 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 456 456 ! Equation file : chem_gasphase_mod.kpp … … 479 479 ! 480 480 ! File : chem_gasphase_mod_Jacobian.f90 481 ! Time : Fri Mar 15 1 6:28:262019481 ! Time : Fri Mar 15 17:37:43 2019 482 482 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 483 483 ! Equation file : chem_gasphase_mod.kpp … … 506 506 ! 507 507 ! File : chem_gasphase_mod_Function.f90 508 ! Time : Fri Mar 15 1 6:28:262019508 ! Time : Fri Mar 15 17:37:43 2019 509 509 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 510 510 ! Equation file : chem_gasphase_mod.kpp … … 535 535 ! 536 536 ! File : chem_gasphase_mod_Rates.f90 537 ! Time : Fri Mar 15 1 6:28:262019537 ! Time : Fri Mar 15 17:37:43 2019 538 538 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 539 539 ! Equation file : chem_gasphase_mod.kpp … … 561 561 ! 562 562 ! File : chem_gasphase_mod_Util.f90 563 ! Time : Fri Mar 15 1 6:28:262019563 ! Time : Fri Mar 15 17:37:43 2019 564 564 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 565 565 ! Equation file : chem_gasphase_mod.kpp … … 696 696 ! 697 697 ! Following line is just to avoid compiler message about unused variables 698 IF ( lu_crow(1) == 1 .OR. lu_icol(1) == 1 .OR. lu_irow(1) == 1 ) CONTINUE698 IF ( lu_crow(1) == 1 .OR. lu_icol(1) == 1 .OR. lu_irow(1) == 1 ) CONTINUE 699 699 ! 700 700 … … 784 784 785 785 ! Following line is just to avoid compiler message about unused variables 786 IF ( f(nfix) > 0.0_dp ) CONTINUE786 IF ( f(nfix) > 0.0_dp ) CONTINUE 787 787 ! 788 788 ! Computation of equation rates … … 829 829 ! 830 830 ! Following line is just to avoid compiler message about unused variables 831 IF ( f(nfix) > 0.0_dp ) CONTINUE831 IF ( f(nfix) > 0.0_dp ) CONTINUE 832 832 833 833 ! B(1) = dA(1)/dV(3) … … 971 971 ! 972 972 ! Following line is just to avoid compiler message about unused variables 973 IF ( incx == 0 ) CONTINUE973 IF ( incx == 0 ) CONTINUE 974 974 975 975 IF (alpha .eq. one)RETURN … … 1037 1037 ! 1038 1038 ! Following line is just to avoid compiler message about unused variables 1039 IF ( incx == 0 .OR. incy == 0 ) CONTINUE1039 IF ( incx == 0 .OR. incy == 0 ) CONTINUE 1040 1040 IF (alpha .eq. zero)RETURN 1041 1041 IF (n .le. 0)RETURN … … 1772 1772 ! 1773 1773 ! Following line is just to avoid compiler message about unused variables 1774 IF ( pivot(1) == 0 ) CONTINUE1774 IF ( pivot(1) == 0 ) CONTINUE 1775 1775 1776 1776 #ifdef full_algebra -
palm/trunk/UTIL/chemistry/gasphase_preproc/mechanisms/def_salsa+simple/chem_gasphase_mod.f90
r3799 r3800 114 114 ! 115 115 ! File : chem_gasphase_mod_Parameters.f90 116 ! Time : Fri Mar 15 1 6:28:262019116 ! Time : Fri Mar 15 17:37:44 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 … … 202 202 ! 203 203 ! File : chem_gasphase_mod_Global.f90 204 ! Time : Fri Mar 15 1 6:28:262019204 ! Time : Fri Mar 15 17:37:44 2019 205 205 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 206 206 ! Equation file : chem_gasphase_mod.kpp … … 273 273 ! 274 274 ! File : chem_gasphase_mod_JacobianSP.f90 275 ! Time : Fri Mar 15 1 6:28:262019275 ! Time : Fri Mar 15 17:37:44 2019 276 276 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 277 277 ! Equation file : chem_gasphase_mod.kpp … … 325 325 ! 326 326 ! File : chem_gasphase_mod_Monitor.f90 327 ! Time : Fri Mar 15 1 6:28:262019327 ! Time : Fri Mar 15 17:37:44 2019 328 328 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 329 329 ! Equation file : chem_gasphase_mod.kpp … … 399 399 ! 400 400 ! File : chem_gasphase_mod_Initialize.f90 401 ! Time : Fri Mar 15 1 6:28:262019401 ! Time : Fri Mar 15 17:37:44 2019 402 402 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 403 403 ! Equation file : chem_gasphase_mod.kpp … … 425 425 ! 426 426 ! File : chem_gasphase_mod_Integrator.f90 427 ! Time : Fri Mar 15 1 6:28:262019427 ! Time : Fri Mar 15 17:37:44 2019 428 428 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 429 429 ! Equation file : chem_gasphase_mod.kpp … … 483 483 ! 484 484 ! File : chem_gasphase_mod_LinearAlgebra.f90 485 ! Time : Fri Mar 15 1 6:28:262019485 ! Time : Fri Mar 15 17:37:44 2019 486 486 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 487 487 ! Equation file : chem_gasphase_mod.kpp … … 510 510 ! 511 511 ! File : chem_gasphase_mod_Jacobian.f90 512 ! Time : Fri Mar 15 1 6:28:262019512 ! Time : Fri Mar 15 17:37:44 2019 513 513 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 514 514 ! Equation file : chem_gasphase_mod.kpp … … 537 537 ! 538 538 ! File : chem_gasphase_mod_Function.f90 539 ! Time : Fri Mar 15 1 6:28:262019539 ! Time : Fri Mar 15 17:37:44 2019 540 540 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 541 541 ! Equation file : chem_gasphase_mod.kpp … … 566 566 ! 567 567 ! File : chem_gasphase_mod_Rates.f90 568 ! Time : Fri Mar 15 1 6:28:262019568 ! Time : Fri Mar 15 17:37:44 2019 569 569 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 570 570 ! Equation file : chem_gasphase_mod.kpp … … 592 592 ! 593 593 ! File : chem_gasphase_mod_Util.f90 594 ! Time : Fri Mar 15 1 6:28:262019594 ! Time : Fri Mar 15 17:37:44 2019 595 595 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 596 596 ! Equation file : chem_gasphase_mod.kpp … … 727 727 ! 728 728 ! Following line is just to avoid compiler message about unused variables 729 IF ( lu_crow(1) == 1 .OR. lu_icol(1) == 1 .OR. lu_irow(1) == 1 ) CONTINUE729 IF ( lu_crow(1) == 1 .OR. lu_icol(1) == 1 .OR. lu_irow(1) == 1 ) CONTINUE 730 730 ! 731 731 … … 815 815 816 816 ! Following line is just to avoid compiler message about unused variables 817 IF ( f(nfix) > 0.0_dp ) CONTINUE817 IF ( f(nfix) > 0.0_dp ) CONTINUE 818 818 ! 819 819 ! Computation of equation rates … … 888 888 ! 889 889 ! Following line is just to avoid compiler message about unused variables 890 IF ( f(nfix) > 0.0_dp ) CONTINUE890 IF ( f(nfix) > 0.0_dp ) CONTINUE 891 891 892 892 ! B(1) = dA(1)/dV(10) … … 1129 1129 ! 1130 1130 ! Following line is just to avoid compiler message about unused variables 1131 IF ( incx == 0 ) CONTINUE1131 IF ( incx == 0 ) CONTINUE 1132 1132 1133 1133 IF (alpha .eq. one)RETURN … … 1195 1195 ! 1196 1196 ! Following line is just to avoid compiler message about unused variables 1197 IF ( incx == 0 .OR. incy == 0 ) CONTINUE1197 IF ( incx == 0 .OR. incy == 0 ) CONTINUE 1198 1198 IF (alpha .eq. zero)RETURN 1199 1199 IF (n .le. 0)RETURN … … 1930 1930 ! 1931 1931 ! Following line is just to avoid compiler message about unused variables 1932 IF ( pivot(1) == 0 ) CONTINUE1932 IF ( pivot(1) == 0 ) CONTINUE 1933 1933 1934 1934 #ifdef full_algebra -
palm/trunk/UTIL/chemistry/gasphase_preproc/mechanisms/def_salsagas/chem_gasphase_mod.f90
r3799 r3800 114 114 ! 115 115 ! File : chem_gasphase_mod_Parameters.f90 116 ! Time : Fri Mar 15 1 6:28:252019116 ! Time : Fri Mar 15 17:37:42 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 … … 192 192 ! 193 193 ! File : chem_gasphase_mod_Global.f90 194 ! Time : Fri Mar 15 1 6:28:252019194 ! Time : Fri Mar 15 17:37:42 2019 195 195 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 196 196 ! Equation file : chem_gasphase_mod.kpp … … 259 259 ! 260 260 ! File : chem_gasphase_mod_JacobianSP.f90 261 ! Time : Fri Mar 15 1 6:28:252019261 ! Time : Fri Mar 15 17:37:42 2019 262 262 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 263 263 ! Equation file : chem_gasphase_mod.kpp … … 303 303 ! 304 304 ! File : chem_gasphase_mod_Monitor.f90 305 ! Time : Fri Mar 15 1 6:28:252019305 ! Time : Fri Mar 15 17:37:42 2019 306 306 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 307 307 ! Equation file : chem_gasphase_mod.kpp … … 367 367 ! 368 368 ! File : chem_gasphase_mod_Initialize.f90 369 ! Time : Fri Mar 15 1 6:28:252019369 ! Time : Fri Mar 15 17:37:42 2019 370 370 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 371 371 ! Equation file : chem_gasphase_mod.kpp … … 393 393 ! 394 394 ! File : chem_gasphase_mod_Integrator.f90 395 ! Time : Fri Mar 15 1 6:28:252019395 ! Time : Fri Mar 15 17:37:42 2019 396 396 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 397 397 ! Equation file : chem_gasphase_mod.kpp … … 451 451 ! 452 452 ! File : chem_gasphase_mod_LinearAlgebra.f90 453 ! Time : Fri Mar 15 1 6:28:252019453 ! Time : Fri Mar 15 17:37:42 2019 454 454 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 455 455 ! Equation file : chem_gasphase_mod.kpp … … 478 478 ! 479 479 ! File : chem_gasphase_mod_Jacobian.f90 480 ! Time : Fri Mar 15 1 6:28:252019480 ! Time : Fri Mar 15 17:37:42 2019 481 481 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 482 482 ! Equation file : chem_gasphase_mod.kpp … … 505 505 ! 506 506 ! File : chem_gasphase_mod_Function.f90 507 ! Time : Fri Mar 15 1 6:28:252019507 ! Time : Fri Mar 15 17:37:42 2019 508 508 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 509 509 ! Equation file : chem_gasphase_mod.kpp … … 534 534 ! 535 535 ! File : chem_gasphase_mod_Rates.f90 536 ! Time : Fri Mar 15 1 6:28:252019536 ! Time : Fri Mar 15 17:37:42 2019 537 537 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 538 538 ! Equation file : chem_gasphase_mod.kpp … … 560 560 ! 561 561 ! File : chem_gasphase_mod_Util.f90 562 ! Time : Fri Mar 15 1 6:28:252019562 ! Time : Fri Mar 15 17:37:42 2019 563 563 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 564 564 ! Equation file : chem_gasphase_mod.kpp … … 695 695 ! 696 696 ! Following line is just to avoid compiler message about unused variables 697 IF ( lu_crow(1) == 1 .OR. lu_icol(1) == 1 .OR. lu_irow(1) == 1 ) CONTINUE697 IF ( lu_crow(1) == 1 .OR. lu_icol(1) == 1 .OR. lu_irow(1) == 1 ) CONTINUE 698 698 ! 699 699 … … 783 783 784 784 ! Following line is just to avoid compiler message about unused variables 785 IF ( f(nfix) > 0.0_dp ) CONTINUE785 IF ( f(nfix) > 0.0_dp ) CONTINUE 786 786 ! 787 787 ! Computation of equation rates … … 828 828 ! 829 829 ! Following line is just to avoid compiler message about unused variables 830 IF ( f(nfix) > 0.0_dp ) CONTINUE830 IF ( f(nfix) > 0.0_dp ) CONTINUE 831 831 832 832 ! B(1) = dA(1)/dV(2) … … 969 969 ! 970 970 ! Following line is just to avoid compiler message about unused variables 971 IF ( incx == 0 ) CONTINUE971 IF ( incx == 0 ) CONTINUE 972 972 973 973 IF (alpha .eq. one)RETURN … … 1035 1035 ! 1036 1036 ! Following line is just to avoid compiler message about unused variables 1037 IF ( incx == 0 .OR. incy == 0 ) CONTINUE1037 IF ( incx == 0 .OR. incy == 0 ) CONTINUE 1038 1038 IF (alpha .eq. zero)RETURN 1039 1039 IF (n .le. 0)RETURN … … 1770 1770 ! 1771 1771 ! Following line is just to avoid compiler message about unused variables 1772 IF ( pivot(1) == 0 ) CONTINUE1772 IF ( pivot(1) == 0 ) CONTINUE 1773 1773 1774 1774 #ifdef full_algebra -
palm/trunk/UTIL/chemistry/gasphase_preproc/mechanisms/def_simple/chem_gasphase_mod.f90
r3799 r3800 114 114 ! 115 115 ! File : chem_gasphase_mod_Parameters.f90 116 ! Time : Fri Mar 15 1 6:28:272019116 ! Time : Fri Mar 15 17:37:44 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 … … 198 198 ! 199 199 ! File : chem_gasphase_mod_Global.f90 200 ! Time : Fri Mar 15 1 6:28:272019200 ! Time : Fri Mar 15 17:37:44 2019 201 201 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 202 202 ! Equation file : chem_gasphase_mod.kpp … … 263 263 ! 264 264 ! File : chem_gasphase_mod_JacobianSP.f90 265 ! Time : Fri Mar 15 1 6:28:272019265 ! Time : Fri Mar 15 17:37:44 2019 266 266 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 267 267 ! Equation file : chem_gasphase_mod.kpp … … 313 313 ! 314 314 ! File : chem_gasphase_mod_Monitor.f90 315 ! Time : Fri Mar 15 1 6:28:272019315 ! Time : Fri Mar 15 17:37:44 2019 316 316 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 317 317 ! Equation file : chem_gasphase_mod.kpp … … 382 382 ! 383 383 ! File : chem_gasphase_mod_Initialize.f90 384 ! Time : Fri Mar 15 1 6:28:272019384 ! Time : Fri Mar 15 17:37:44 2019 385 385 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 386 386 ! Equation file : chem_gasphase_mod.kpp … … 408 408 ! 409 409 ! File : chem_gasphase_mod_Integrator.f90 410 ! Time : Fri Mar 15 1 6:28:272019410 ! Time : Fri Mar 15 17:37:44 2019 411 411 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 412 412 ! Equation file : chem_gasphase_mod.kpp … … 466 466 ! 467 467 ! File : chem_gasphase_mod_LinearAlgebra.f90 468 ! Time : Fri Mar 15 1 6:28:272019468 ! Time : Fri Mar 15 17:37:44 2019 469 469 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 470 470 ! Equation file : chem_gasphase_mod.kpp … … 493 493 ! 494 494 ! File : chem_gasphase_mod_Jacobian.f90 495 ! Time : Fri Mar 15 1 6:28:272019495 ! Time : Fri Mar 15 17:37:44 2019 496 496 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 497 497 ! Equation file : chem_gasphase_mod.kpp … … 520 520 ! 521 521 ! File : chem_gasphase_mod_Function.f90 522 ! Time : Fri Mar 15 1 6:28:272019522 ! Time : Fri Mar 15 17:37:44 2019 523 523 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 524 524 ! Equation file : chem_gasphase_mod.kpp … … 549 549 ! 550 550 ! File : chem_gasphase_mod_Rates.f90 551 ! Time : Fri Mar 15 1 6:28:272019551 ! Time : Fri Mar 15 17:37:44 2019 552 552 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 553 553 ! Equation file : chem_gasphase_mod.kpp … … 575 575 ! 576 576 ! File : chem_gasphase_mod_Util.f90 577 ! Time : Fri Mar 15 1 6:28:272019577 ! Time : Fri Mar 15 17:37:44 2019 578 578 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 579 579 ! Equation file : chem_gasphase_mod.kpp … … 710 710 ! 711 711 ! Following line is just to avoid compiler message about unused variables 712 IF ( lu_crow(1) == 1 .OR. lu_icol(1) == 1 .OR. lu_irow(1) == 1 ) CONTINUE712 IF ( lu_crow(1) == 1 .OR. lu_icol(1) == 1 .OR. lu_irow(1) == 1 ) CONTINUE 713 713 ! 714 714 … … 798 798 799 799 ! Following line is just to avoid compiler message about unused variables 800 IF ( f(nfix) > 0.0_dp ) CONTINUE800 IF ( f(nfix) > 0.0_dp ) CONTINUE 801 801 ! 802 802 ! Computation of equation rates … … 863 863 ! 864 864 ! Following line is just to avoid compiler message about unused variables 865 IF ( f(nfix) > 0.0_dp ) CONTINUE865 IF ( f(nfix) > 0.0_dp ) CONTINUE 866 866 867 867 ! B(1) = dA(1)/dV(7) … … 1084 1084 ! 1085 1085 ! Following line is just to avoid compiler message about unused variables 1086 IF ( incx == 0 ) CONTINUE1086 IF ( incx == 0 ) CONTINUE 1087 1087 1088 1088 IF (alpha .eq. one)RETURN … … 1150 1150 ! 1151 1151 ! Following line is just to avoid compiler message about unused variables 1152 IF ( incx == 0 .OR. incy == 0 ) CONTINUE1152 IF ( incx == 0 .OR. incy == 0 ) CONTINUE 1153 1153 IF (alpha .eq. zero)RETURN 1154 1154 IF (n .le. 0)RETURN … … 1885 1885 ! 1886 1886 ! Following line is just to avoid compiler message about unused variables 1887 IF ( pivot(1) == 0 ) CONTINUE1887 IF ( pivot(1) == 0 ) CONTINUE 1888 1888 1889 1889 #ifdef full_algebra -
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 -
palm/trunk/UTIL/chemistry/gasphase_preproc/mechanisms/def_smog/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:46 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 … … 206 206 ! 207 207 ! File : chem_gasphase_mod_Global.f90 208 ! Time : Fri Mar 15 1 6:28:282019208 ! Time : Fri Mar 15 17:37:46 2019 209 209 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 210 210 ! Equation file : chem_gasphase_mod.kpp … … 271 271 ! 272 272 ! File : chem_gasphase_mod_JacobianSP.f90 273 ! Time : Fri Mar 15 1 6:28:282019273 ! Time : Fri Mar 15 17:37:46 2019 274 274 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 275 275 ! Equation file : chem_gasphase_mod.kpp … … 327 327 ! 328 328 ! File : chem_gasphase_mod_Monitor.f90 329 ! Time : Fri Mar 15 1 6:28:282019329 ! Time : Fri Mar 15 17:37:46 2019 330 330 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 331 331 ! Equation file : chem_gasphase_mod.kpp … … 403 403 ! 404 404 ! File : chem_gasphase_mod_Initialize.f90 405 ! Time : Fri Mar 15 1 6:28:282019405 ! Time : Fri Mar 15 17:37:46 2019 406 406 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 407 407 ! Equation file : chem_gasphase_mod.kpp … … 429 429 ! 430 430 ! File : chem_gasphase_mod_Integrator.f90 431 ! Time : Fri Mar 15 1 6:28:282019431 ! Time : Fri Mar 15 17:37:46 2019 432 432 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 433 433 ! Equation file : chem_gasphase_mod.kpp … … 487 487 ! 488 488 ! File : chem_gasphase_mod_LinearAlgebra.f90 489 ! Time : Fri Mar 15 1 6:28:282019489 ! Time : Fri Mar 15 17:37:46 2019 490 490 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 491 491 ! Equation file : chem_gasphase_mod.kpp … … 514 514 ! 515 515 ! File : chem_gasphase_mod_Jacobian.f90 516 ! Time : Fri Mar 15 1 6:28:282019516 ! Time : Fri Mar 15 17:37:46 2019 517 517 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 518 518 ! Equation file : chem_gasphase_mod.kpp … … 541 541 ! 542 542 ! File : chem_gasphase_mod_Function.f90 543 ! Time : Fri Mar 15 1 6:28:282019543 ! Time : Fri Mar 15 17:37:46 2019 544 544 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 545 545 ! Equation file : chem_gasphase_mod.kpp … … 570 570 ! 571 571 ! File : chem_gasphase_mod_Rates.f90 572 ! Time : Fri Mar 15 1 6:28:282019572 ! Time : Fri Mar 15 17:37:46 2019 573 573 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 574 574 ! Equation file : chem_gasphase_mod.kpp … … 596 596 ! 597 597 ! File : chem_gasphase_mod_Util.f90 598 ! Time : Fri Mar 15 1 6:28:282019598 ! Time : Fri Mar 15 17:37:46 2019 599 599 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 600 600 ! Equation file : chem_gasphase_mod.kpp … … 731 731 ! 732 732 ! Following line is just to avoid compiler message about unused variables 733 IF ( lu_crow(1) == 1 .OR. lu_icol(1) == 1 .OR. lu_irow(1) == 1 ) CONTINUE733 IF ( lu_crow(1) == 1 .OR. lu_icol(1) == 1 .OR. lu_irow(1) == 1 ) CONTINUE 734 734 ! 735 735 … … 823 823 824 824 ! Following line is just to avoid compiler message about unused variables 825 IF ( f(nfix) > 0.0_dp ) CONTINUE825 IF ( f(nfix) > 0.0_dp ) CONTINUE 826 826 ! 827 827 ! Computation of equation rates … … 904 904 ! 905 905 ! Following line is just to avoid compiler message about unused variables 906 IF ( f(nfix) > 0.0_dp ) CONTINUE906 IF ( f(nfix) > 0.0_dp ) CONTINUE 907 907 908 908 ! B(1) = dA(1)/dV(13) … … 1194 1194 ! 1195 1195 ! Following line is just to avoid compiler message about unused variables 1196 IF ( incx == 0 ) CONTINUE1196 IF ( incx == 0 ) CONTINUE 1197 1197 1198 1198 IF (alpha .eq. one)RETURN … … 1260 1260 ! 1261 1261 ! Following line is just to avoid compiler message about unused variables 1262 IF ( incx == 0 .OR. incy == 0 ) CONTINUE1262 IF ( incx == 0 .OR. incy == 0 ) CONTINUE 1263 1263 IF (alpha .eq. zero)RETURN 1264 1264 IF (n .le. 0)RETURN … … 1995 1995 ! 1996 1996 ! Following line is just to avoid compiler message about unused variables 1997 IF ( pivot(1) == 0 ) CONTINUE1997 IF ( pivot(1) == 0 ) CONTINUE 1998 1998 1999 1999 #ifdef full_algebra
Note: See TracChangeset
for help on using the changeset viewer.