Ignore:
Timestamp:
Mar 8, 2019 6:04:30 PM (3 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_cbm4/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:49 2019
    118 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190305/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     115! Time                 : Fri Mar  8 19:00:59 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
     
    222220!
    223221! File                 : chem_gasphase_mod_Global.f90
    224 ! Time                 : Tue Mar  5 11:50:49 2019
    225 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190305/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     222! Time                 : Fri Mar  8 19:00:59 2019
     223! Working directory    : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    226224! Equation file        : chem_gasphase_mod.kpp
    227225! Output root filename : chem_gasphase_mod
     
    251249! TEMP - Temperature
    252250  REAL(kind=dp):: temp
    253 ! TSTART - Integration start time
    254   REAL(kind=dp):: tstart
    255251! ATOL - Absolute tolerance
    256252  REAL(kind=dp):: atol(nvar)
     
    291287!
    292288! File                 : chem_gasphase_mod_JacobianSP.f90
    293 ! Time                 : Tue Mar  5 11:50:49 2019
    294 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190305/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     289! Time                 : Fri Mar  8 19:00:59 2019
     290! Working directory    : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    295291! Equation file        : chem_gasphase_mod.kpp
    296292! Output root filename : chem_gasphase_mod
     
    387383!
    388384! File                 : chem_gasphase_mod_Monitor.f90
    389 ! Time                 : Tue Mar  5 11:50:49 2019
    390 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190305/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     385! Time                 : Fri Mar  8 19:00:59 2019
     386! Working directory    : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    391387! Equation file        : chem_gasphase_mod.kpp
    392388! Output root filename : chem_gasphase_mod
     
    550546!
    551547! File                 : chem_gasphase_mod_Initialize.f90
    552 ! Time                 : Tue Mar  5 11:50:49 2019
    553 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190305/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     548! Time                 : Fri Mar  8 19:00:59 2019
     549! Working directory    : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    554550! Equation file        : chem_gasphase_mod.kpp
    555551! Output root filename : chem_gasphase_mod
     
    576572!
    577573! File                 : chem_gasphase_mod_Integrator.f90
    578 ! Time                 : Tue Mar  5 11:50:49 2019
    579 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190305/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     574! Time                 : Fri Mar  8 19:00:59 2019
     575! Working directory    : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    580576! Equation file        : chem_gasphase_mod.kpp
    581577! Output root filename : chem_gasphase_mod
     
    634630!
    635631! File                 : chem_gasphase_mod_LinearAlgebra.f90
    636 ! Time                 : Tue Mar  5 11:50:49 2019
    637 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190305/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     632! Time                 : Fri Mar  8 19:00:59 2019
     633! Working directory    : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    638634! Equation file        : chem_gasphase_mod.kpp
    639635! Output root filename : chem_gasphase_mod
     
    661657!
    662658! File                 : chem_gasphase_mod_Jacobian.f90
    663 ! Time                 : Tue Mar  5 11:50:49 2019
    664 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190305/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     659! Time                 : Fri Mar  8 19:00:59 2019
     660! Working directory    : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    665661! Equation file        : chem_gasphase_mod.kpp
    666662! Output root filename : chem_gasphase_mod
     
    688684!
    689685! File                 : chem_gasphase_mod_Function.f90
    690 ! Time                 : Tue Mar  5 11:50:49 2019
    691 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190305/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     686! Time                 : Fri Mar  8 19:00:59 2019
     687! Working directory    : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    692688! Equation file        : chem_gasphase_mod.kpp
    693689! Output root filename : chem_gasphase_mod
     
    717713!
    718714! File                 : chem_gasphase_mod_Rates.f90
    719 ! Time                 : Tue Mar  5 11:50:49 2019
    720 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190305/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     715! Time                 : Fri Mar  8 19:00:59 2019
     716! Working directory    : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    721717! Equation file        : chem_gasphase_mod.kpp
    722718! Output root filename : chem_gasphase_mod
     
    743739!
    744740! File                 : chem_gasphase_mod_Util.f90
    745 ! Time                 : Tue Mar  5 11:50:49 2019
    746 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190305/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     741! Time                 : Fri Mar  8 19:00:59 2019
     742! Working directory    : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    747743! Equation file        : chem_gasphase_mod.kpp
    748744! Output root filename : chem_gasphase_mod
     
    864860
    865861
    866   INTEGER         :: j, k
     862 INTEGER         :: k
    867863
    868864  INTEGER :: i
     
    908904   INTEGER       :: icntrl(20), istatus(20), ierr
    909905
    910    INTEGER, SAVE :: ntotal = 0
    911906
    912907   icntrl(:) = 0
     
    22612256  REAL(dp), DIMENSION(:), INTENT(IN):: c
    22622257
    2263   write(6,*) 'ERROR in chem_gasphase_mod ',ierr,C(1)
     2258  write(6,*) 'ERROR in chem_gasphase_mod ',ierr,C(1),PE
    22642259
    22652260
     
    35703565                                                                     
    35713566    INTEGER  :: ier                                                   
    3572     REAL(kind=dp):: jvs(lu_nonzero), w(nvar), a             
    3573     INTEGER  :: k, kk, j, jj                                         
     3567    REAL(kind=dp):: jvs(lu_nonzero), a                         
    35743568                                                                     
    35753569    a = 0.                                                           
     
    39863980  INTEGER, DIMENSION(20)                :: istatus_u               
    39873981  INTEGER                                :: ierr_u                 
    3988   INTEGER                                :: istatf                 
    39893982  INTEGER                                :: vl_dim_lo               
    39903983                                                                   
     
    40234016                                                                   
    40244017   IF (PRESENT(l_debug) .AND. PRESENT(pe)) THEN                       
    4025       IF (l_debug) CALL error_output(conc(is, :), ierr_u, pe)         
     4018      IF (l_debug) CALL error_output(conc(is, :), ierr_u, pe)           
    40264019   ENDIF                                                             
    40274020                                                                     
Note: See TracChangeset for help on using the changeset viewer.