Changeset 3799 for palm/trunk/SOURCE


Ignore:
Timestamp:
Mar 15, 2019 3:36:25 PM (3 years ago)
Author:
forkel
Message:

editing in kpp4palm: add statements for avoiding unused variables, remove $Id

File:
1 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/SOURCE/chem_gasphase_mod.f90

    r3797 r3799  
    114114!
    115115! File                 : chem_gasphase_mod_Parameters.f90
    116 ! Time                 : Fri Mar 15 12:08:06 2019
     116! Time                 : Fri Mar 15 16:28:29 2019
    117117! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    118118! Equation file        : chem_gasphase_mod.kpp
     
    191191!
    192192! File                 : chem_gasphase_mod_Global.f90
    193 ! Time                 : Fri Mar 15 12:08:06 2019
     193! Time                 : Fri Mar 15 16:28:29 2019
    194194! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    195195! Equation file        : chem_gasphase_mod.kpp
     
    256256!
    257257! File                 : chem_gasphase_mod_JacobianSP.f90
    258 ! Time                 : Fri Mar 15 12:08:06 2019
     258! Time                 : Fri Mar 15 16:28:29 2019
    259259! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    260260! Equation file        : chem_gasphase_mod.kpp
     
    300300!
    301301! File                 : chem_gasphase_mod_Monitor.f90
    302 ! Time                 : Fri Mar 15 12:08:06 2019
     302! Time                 : Fri Mar 15 16:28:29 2019
    303303! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    304304! Equation file        : chem_gasphase_mod.kpp
     
    362362!
    363363! File                 : chem_gasphase_mod_Initialize.f90
    364 ! Time                 : Fri Mar 15 12:08:06 2019
     364! Time                 : Fri Mar 15 16:28:29 2019
    365365! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    366366! Equation file        : chem_gasphase_mod.kpp
     
    388388!
    389389! File                 : chem_gasphase_mod_Integrator.f90
    390 ! Time                 : Fri Mar 15 12:08:06 2019
     390! Time                 : Fri Mar 15 16:28:29 2019
    391391! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    392392! Equation file        : chem_gasphase_mod.kpp
     
    446446!
    447447! File                 : chem_gasphase_mod_LinearAlgebra.f90
    448 ! Time                 : Fri Mar 15 12:08:06 2019
     448! Time                 : Fri Mar 15 16:28:29 2019
    449449! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    450450! Equation file        : chem_gasphase_mod.kpp
     
    473473!
    474474! File                 : chem_gasphase_mod_Jacobian.f90
    475 ! Time                 : Fri Mar 15 12:08:06 2019
     475! Time                 : Fri Mar 15 16:28:29 2019
    476476! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    477477! Equation file        : chem_gasphase_mod.kpp
     
    500500!
    501501! File                 : chem_gasphase_mod_Function.f90
    502 ! Time                 : Fri Mar 15 12:08:06 2019
     502! Time                 : Fri Mar 15 16:28:29 2019
    503503! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    504504! Equation file        : chem_gasphase_mod.kpp
     
    529529!
    530530! File                 : chem_gasphase_mod_Rates.f90
    531 ! Time                 : Fri Mar 15 12:08:06 2019
     531! Time                 : Fri Mar 15 16:28:29 2019
    532532! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    533533! Equation file        : chem_gasphase_mod.kpp
     
    555555!
    556556! File                 : chem_gasphase_mod_Util.f90
    557 ! Time                 : Fri Mar 15 12:08:06 2019
     557! Time                 : Fri Mar 15 16:28:29 2019
    558558! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    559559! Equation file        : chem_gasphase_mod.kpp
     
    688688  k = is
    689689  cfactor = 1.000000e+00_dp
     690
     691! Following line is just to avoid compiler message about unused variables
     692IF ( lu_crow(1) == 1  .OR.  lu_icol(1) == 1  .OR.  lu_irow(1) == 1 )  CONTINUE
     693
    690694
    691695  x = (0.) * cfactor
     
    773777
    774778
     779! Following line is just to avoid compiler message about unused variables
     780IF ( f(nfix) > 0.0_dp )  CONTINUE
     781
    775782! Computation of equation rates
    776783  a(1) = rct(1) * v(3)
     
    816823! B - Temporary array
    817824  REAL(kind=dp):: b(4)
     825!
     826! Following line is just to avoid compiler message about unused variables
     827IF ( f(nfix) > 0.0_dp )  CONTINUE
    818828
    819829! B(1) = dA(1)/dV(3)
     
    960970      REAL(kind=dp) :: x(n), alpha
    961971      REAL(kind=dp), PARAMETER  :: zero=0.0_dp, one=1.0_dp
     972
     973! Following line is just to avoid compiler message about unused variables
     974IF ( incx == 0 )  CONTINUE
    962975
    963976      IF (alpha .eq. one)RETURN
     
    10231036      REAL(kind=dp), PARAMETER :: zero = 0.0_dp
    10241037
     1038
     1039! Following line is just to avoid compiler message about unused variables
     1040IF ( incx == 0  .OR.  incy == 0 )  CONTINUE
    10251041      IF (alpha .eq. zero)RETURN
    10261042      IF (n .le. 0)RETURN
     
    17551771!~~~> inout variables
    17561772   REAL(kind=dp), INTENT(INOUT):: b(n)
     1773
     1774! Following line is just to avoid compiler message about unused variables
     1775IF ( pivot(1) == 0 )  CONTINUE
    17571776
    17581777#ifdef full_algebra   
Note: See TracChangeset for help on using the changeset viewer.