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_salsa+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:51 2019
    118 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190305/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     115! Time                 : Fri Mar  8 19:01:01 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:51 2019
    194 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190305/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     191! Time                 : Fri Mar  8 19:01:01 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)
     
    268264!
    269265! File                 : chem_gasphase_mod_JacobianSP.f90
    270 ! Time                 : Tue Mar  5 11:50:51 2019
    271 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190305/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     266! Time                 : Fri Mar  8 19:01:01 2019
     267! Working directory    : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    272268! Equation file        : chem_gasphase_mod.kpp
    273269! Output root filename : chem_gasphase_mod
     
    312308!
    313309! File                 : chem_gasphase_mod_Monitor.f90
    314 ! Time                 : Tue Mar  5 11:50:51 2019
    315 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190305/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     310! Time                 : Fri Mar  8 19:01:01 2019
     311! Working directory    : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    316312! Equation file        : chem_gasphase_mod.kpp
    317313! Output root filename : chem_gasphase_mod
     
    372368!
    373369! File                 : chem_gasphase_mod_Initialize.f90
    374 ! Time                 : Tue Mar  5 11:50:51 2019
    375 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190305/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     370! Time                 : Fri Mar  8 19:01:01 2019
     371! Working directory    : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    376372! Equation file        : chem_gasphase_mod.kpp
    377373! Output root filename : chem_gasphase_mod
     
    398394!
    399395! File                 : chem_gasphase_mod_Integrator.f90
    400 ! Time                 : Tue Mar  5 11:50:51 2019
    401 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190305/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     396! Time                 : Fri Mar  8 19:01:01 2019
     397! Working directory    : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    402398! Equation file        : chem_gasphase_mod.kpp
    403399! Output root filename : chem_gasphase_mod
     
    456452!
    457453! File                 : chem_gasphase_mod_LinearAlgebra.f90
    458 ! Time                 : Tue Mar  5 11:50:51 2019
    459 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190305/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     454! Time                 : Fri Mar  8 19:01:01 2019
     455! Working directory    : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    460456! Equation file        : chem_gasphase_mod.kpp
    461457! Output root filename : chem_gasphase_mod
     
    483479!
    484480! File                 : chem_gasphase_mod_Jacobian.f90
    485 ! Time                 : Tue Mar  5 11:50:51 2019
    486 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190305/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     481! Time                 : Fri Mar  8 19:01:01 2019
     482! Working directory    : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    487483! Equation file        : chem_gasphase_mod.kpp
    488484! Output root filename : chem_gasphase_mod
     
    510506!
    511507! File                 : chem_gasphase_mod_Function.f90
    512 ! Time                 : Tue Mar  5 11:50:51 2019
    513 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190305/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     508! Time                 : Fri Mar  8 19:01:01 2019
     509! Working directory    : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    514510! Equation file        : chem_gasphase_mod.kpp
    515511! Output root filename : chem_gasphase_mod
     
    539535!
    540536! File                 : chem_gasphase_mod_Rates.f90
    541 ! Time                 : Tue Mar  5 11:50:51 2019
    542 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190305/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     537! Time                 : Fri Mar  8 19:01:01 2019
     538! Working directory    : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    543539! Equation file        : chem_gasphase_mod.kpp
    544540! Output root filename : chem_gasphase_mod
     
    565561!
    566562! File                 : chem_gasphase_mod_Util.f90
    567 ! Time                 : Tue Mar  5 11:50:51 2019
    568 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190305/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     563! Time                 : Fri Mar  8 19:01:01 2019
     564! Working directory    : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    569565! Equation file        : chem_gasphase_mod.kpp
    570566! Output root filename : chem_gasphase_mod
     
    686682
    687683
    688   INTEGER         :: j, k
     684 INTEGER         :: k
    689685
    690686  INTEGER :: i
     
    728724   INTEGER       :: icntrl(20), istatus(20), ierr
    729725
    730    INTEGER, SAVE :: ntotal = 0
    731726
    732727   icntrl(:) = 0
     
    941936  REAL(dp), DIMENSION(:), INTENT(IN):: c
    942937
    943   write(6,*) 'ERROR in chem_gasphase_mod ',ierr,C(1)
     938  write(6,*) 'ERROR in chem_gasphase_mod ',ierr,C(1),PE
    944939
    945940
     
    22502245                                                                     
    22512246    INTEGER  :: ier                                                   
    2252     REAL(kind=dp):: jvs(lu_nonzero), w(nvar), a             
    2253     INTEGER  :: k, kk, j, jj                                         
     2247    REAL(kind=dp):: jvs(lu_nonzero), a                         
    22542248                                                                     
    22552249    a = 0.                                                           
     
    23052299  INTEGER, DIMENSION(20)                :: istatus_u               
    23062300  INTEGER                                :: ierr_u                 
    2307   INTEGER                                :: istatf                 
    23082301  INTEGER                                :: vl_dim_lo               
    23092302                                                                   
     
    23422335                                                                   
    23432336   IF (PRESENT(l_debug) .AND. PRESENT(pe)) THEN                       
    2344       IF (l_debug) CALL error_output(conc(is, :), ierr_u, pe)         
     2337      IF (l_debug) CALL error_output(conc(is, :), ierr_u, pe)           
    23452338   ENDIF                                                             
    23462339                                                                     
Note: See TracChangeset for help on using the changeset viewer.