Ignore:
Timestamp:
Mar 8, 2019 6:04:30 PM (6 years ago)
Author:
forkel
Message:

Removed unused variables from chem_gasphase_mod.f90

File:
1 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/UTIL/chemistry/gasphase_preproc/mechanisms/def_simplep/chem_gasphase_mod.f90

    r3780 r3789  
    9797                                                                 
    9898                                                                 
    99   INTEGER, DIMENSION(vl_dim)  :: kacc, krej                       
    100   INTEGER, DIMENSION(vl_dim)  :: ierrv                           
    10199  LOGICAL                     :: data_loaded = .FALSE.             
    102100! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
     
    115113!
    116114! File                 : chem_gasphase_mod_Parameters.f90
    117 ! Time                 : Tue Mar  5 11:50:52 2019
    118 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190305/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     115! Time                 : Fri Mar  8 19:01:02 2019
     116! Working directory    : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    119117! Equation file        : chem_gasphase_mod.kpp
    120118! Output root filename : chem_gasphase_mod
     
    200198!
    201199! File                 : chem_gasphase_mod_Global.f90
    202 ! Time                 : Tue Mar  5 11:50:52 2019
    203 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190305/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     200! Time                 : Fri Mar  8 19:01:02 2019
     201! Working directory    : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    204202! Equation file        : chem_gasphase_mod.kpp
    205203! Output root filename : chem_gasphase_mod
     
    229227! TEMP - Temperature
    230228  REAL(kind=dp):: temp
    231 ! TSTART - Integration start time
    232   REAL(kind=dp):: tstart
    233229! ATOL - Absolute tolerance
    234230  REAL(kind=dp):: atol(nvar)
     
    269265!
    270266! File                 : chem_gasphase_mod_JacobianSP.f90
    271 ! Time                 : Tue Mar  5 11:50:52 2019
    272 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190305/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     267! Time                 : Fri Mar  8 19:01:02 2019
     268! Working directory    : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    273269! Equation file        : chem_gasphase_mod.kpp
    274270! Output root filename : chem_gasphase_mod
     
    319315!
    320316! File                 : chem_gasphase_mod_Monitor.f90
    321 ! Time                 : Tue Mar  5 11:50:52 2019
    322 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190305/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     317! Time                 : Fri Mar  8 19:01:02 2019
     318! Working directory    : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    323319! Equation file        : chem_gasphase_mod.kpp
    324320! Output root filename : chem_gasphase_mod
     
    389385!
    390386! File                 : chem_gasphase_mod_Initialize.f90
    391 ! Time                 : Tue Mar  5 11:50:52 2019
    392 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190305/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     387! Time                 : Fri Mar  8 19:01:02 2019
     388! Working directory    : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    393389! Equation file        : chem_gasphase_mod.kpp
    394390! Output root filename : chem_gasphase_mod
     
    415411!
    416412! File                 : chem_gasphase_mod_Integrator.f90
    417 ! Time                 : Tue Mar  5 11:50:52 2019
    418 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190305/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     413! Time                 : Fri Mar  8 19:01:02 2019
     414! Working directory    : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    419415! Equation file        : chem_gasphase_mod.kpp
    420416! Output root filename : chem_gasphase_mod
     
    473469!
    474470! File                 : chem_gasphase_mod_LinearAlgebra.f90
    475 ! Time                 : Tue Mar  5 11:50:52 2019
    476 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190305/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     471! Time                 : Fri Mar  8 19:01:02 2019
     472! Working directory    : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    477473! Equation file        : chem_gasphase_mod.kpp
    478474! Output root filename : chem_gasphase_mod
     
    500496!
    501497! File                 : chem_gasphase_mod_Jacobian.f90
    502 ! Time                 : Tue Mar  5 11:50:52 2019
    503 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190305/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     498! Time                 : Fri Mar  8 19:01:02 2019
     499! Working directory    : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    504500! Equation file        : chem_gasphase_mod.kpp
    505501! Output root filename : chem_gasphase_mod
     
    527523!
    528524! File                 : chem_gasphase_mod_Function.f90
    529 ! Time                 : Tue Mar  5 11:50:52 2019
    530 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190305/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     525! Time                 : Fri Mar  8 19:01:02 2019
     526! Working directory    : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    531527! Equation file        : chem_gasphase_mod.kpp
    532528! Output root filename : chem_gasphase_mod
     
    556552!
    557553! File                 : chem_gasphase_mod_Rates.f90
    558 ! Time                 : Tue Mar  5 11:50:52 2019
    559 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190305/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     554! Time                 : Fri Mar  8 19:01:02 2019
     555! Working directory    : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    560556! Equation file        : chem_gasphase_mod.kpp
    561557! Output root filename : chem_gasphase_mod
     
    582578!
    583579! File                 : chem_gasphase_mod_Util.f90
    584 ! Time                 : Tue Mar  5 11:50:52 2019
    585 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190305/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     580! Time                 : Fri Mar  8 19:01:02 2019
     581! Working directory    : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    586582! Equation file        : chem_gasphase_mod.kpp
    587583! Output root filename : chem_gasphase_mod
     
    703699
    704700
    705   INTEGER         :: j, k
     701 INTEGER         :: k
    706702
    707703  INTEGER :: i
     
    745741   INTEGER       :: icntrl(20), istatus(20), ierr
    746742
    747    INTEGER, SAVE :: ntotal = 0
    748743
    749744   icntrl(:) = 0
     
    10631058  REAL(dp), DIMENSION(:), INTENT(IN):: c
    10641059
    1065   write(6,*) 'ERROR in chem_gasphase_mod ',ierr,C(1)
     1060  write(6,*) 'ERROR in chem_gasphase_mod ',ierr,C(1),PE
    10661061
    10671062
     
    23722367                                                                     
    23732368    INTEGER  :: ier                                                   
    2374     REAL(kind=dp):: jvs(lu_nonzero), w(nvar), a             
    2375     INTEGER  :: k, kk, j, jj                                         
     2369    REAL(kind=dp):: jvs(lu_nonzero), a                         
    23762370                                                                     
    23772371    a = 0.                                                           
     
    24542448  INTEGER, DIMENSION(20)                :: istatus_u               
    24552449  INTEGER                                :: ierr_u                 
    2456   INTEGER                                :: istatf                 
    24572450  INTEGER                                :: vl_dim_lo               
    24582451                                                                   
     
    24912484                                                                   
    24922485   IF (PRESENT(l_debug) .AND. PRESENT(pe)) THEN                       
    2493       IF (l_debug) CALL error_output(conc(is, :), ierr_u, pe)         
     2486      IF (l_debug) CALL error_output(conc(is, :), ierr_u, pe)           
    24942487   ENDIF                                                             
    24952488                                                                     
Note: See TracChangeset for help on using the changeset viewer.