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_phstat/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:50 2019
    118 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190305/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     115! Time                 : Fri Mar  8 19:01:00 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
     
    191189!
    192190! File                 : chem_gasphase_mod_Global.f90
    193 ! Time                 : Tue Mar  5 11:50:50 2019
    194 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190305/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     191! Time                 : Fri Mar  8 19:01:00 2019
     192! Working directory    : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    195193! Equation file        : chem_gasphase_mod.kpp
    196194! Output root filename : chem_gasphase_mod
     
    219217! TEMP - Temperature
    220218  REAL(kind=dp):: temp
    221 ! TSTART - Integration start time
    222   REAL(kind=dp):: tstart
    223219! ATOL - Absolute tolerance
    224220  REAL(kind=dp):: atol(nvar)
     
    259255!
    260256! File                 : chem_gasphase_mod_JacobianSP.f90
    261 ! Time                 : Tue Mar  5 11:50:50 2019
    262 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190305/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     257! Time                 : Fri Mar  8 19:01:00 2019
     258! Working directory    : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    263259! Equation file        : chem_gasphase_mod.kpp
    264260! Output root filename : chem_gasphase_mod
     
    303299!
    304300! File                 : chem_gasphase_mod_Monitor.f90
    305 ! Time                 : Tue Mar  5 11:50:50 2019
    306 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190305/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     301! Time                 : Fri Mar  8 19:01:00 2019
     302! Working directory    : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    307303! Equation file        : chem_gasphase_mod.kpp
    308304! Output root filename : chem_gasphase_mod
     
    363359!
    364360! File                 : chem_gasphase_mod_Initialize.f90
    365 ! Time                 : Tue Mar  5 11:50:50 2019
    366 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190305/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     361! Time                 : Fri Mar  8 19:01:00 2019
     362! Working directory    : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    367363! Equation file        : chem_gasphase_mod.kpp
    368364! Output root filename : chem_gasphase_mod
     
    389385!
    390386! File                 : chem_gasphase_mod_Integrator.f90
    391 ! Time                 : Tue Mar  5 11:50:50 2019
    392 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190305/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     387! Time                 : Fri Mar  8 19:01:00 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
     
    447443!
    448444! File                 : chem_gasphase_mod_LinearAlgebra.f90
    449 ! Time                 : Tue Mar  5 11:50:50 2019
    450 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190305/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     445! Time                 : Fri Mar  8 19:01:00 2019
     446! Working directory    : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    451447! Equation file        : chem_gasphase_mod.kpp
    452448! Output root filename : chem_gasphase_mod
     
    474470!
    475471! File                 : chem_gasphase_mod_Jacobian.f90
    476 ! Time                 : Tue Mar  5 11:50:50 2019
    477 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190305/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     472! Time                 : Fri Mar  8 19:01:00 2019
     473! Working directory    : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    478474! Equation file        : chem_gasphase_mod.kpp
    479475! Output root filename : chem_gasphase_mod
     
    501497!
    502498! File                 : chem_gasphase_mod_Function.f90
    503 ! Time                 : Tue Mar  5 11:50:50 2019
    504 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190305/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     499! Time                 : Fri Mar  8 19:01:00 2019
     500! Working directory    : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    505501! Equation file        : chem_gasphase_mod.kpp
    506502! Output root filename : chem_gasphase_mod
     
    530526!
    531527! File                 : chem_gasphase_mod_Rates.f90
    532 ! Time                 : Tue Mar  5 11:50:50 2019
    533 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190305/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     528! Time                 : Fri Mar  8 19:01:00 2019
     529! Working directory    : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    534530! Equation file        : chem_gasphase_mod.kpp
    535531! Output root filename : chem_gasphase_mod
     
    556552!
    557553! File                 : chem_gasphase_mod_Util.f90
    558 ! Time                 : Tue Mar  5 11:50:50 2019
    559 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190305/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     554! Time                 : Fri Mar  8 19:01:00 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
     
    677673
    678674
    679   INTEGER         :: j, k
     675 INTEGER         :: k
    680676
    681677  INTEGER :: i
     
    719715   INTEGER       :: icntrl(20), istatus(20), ierr
    720716
    721    INTEGER, SAVE :: ntotal = 0
    722717
    723718   icntrl(:) = 0
     
    932927  REAL(dp), DIMENSION(:), INTENT(IN):: c
    933928
    934   write(6,*) 'ERROR in chem_gasphase_mod ',ierr,C(1)
     929  write(6,*) 'ERROR in chem_gasphase_mod ',ierr,C(1),PE
    935930
    936931
     
    22412236                                                                     
    22422237    INTEGER  :: ier                                                   
    2243     REAL(kind=dp):: jvs(lu_nonzero), w(nvar), a             
    2244     INTEGER  :: k, kk, j, jj                                         
     2238    REAL(kind=dp):: jvs(lu_nonzero), a                         
    22452239                                                                     
    22462240    a = 0.                                                           
     
    22962290  INTEGER, DIMENSION(20)                :: istatus_u               
    22972291  INTEGER                                :: ierr_u                 
    2298   INTEGER                                :: istatf                 
    22992292  INTEGER                                :: vl_dim_lo               
    23002293                                                                   
     
    23332326                                                                   
    23342327   IF (PRESENT(l_debug) .AND. PRESENT(pe)) THEN                       
    2335       IF (l_debug) CALL error_output(conc(is, :), ierr_u, pe)         
     2328      IF (l_debug) CALL error_output(conc(is, :), ierr_u, pe)           
    23362329   ENDIF                                                             
    23372330                                                                     
Note: See TracChangeset for help on using the changeset viewer.