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/kpp4palm/src/create_kpp_module.C

    r3780 r3789  
    1717//-----------------
    1818//$Id: create_kpp_module.C 3453 2018-10-30 13:21:51Z forkel $
     19// Added vector switch Kacc,Krej,IERRV, Commented add_line for istatf,    (05.03.2019, forkel)
     20//      added ,pe after ierr_u,         
     21//
    1922// Added create_set_cs and cs_mech and get_mechanismname in module_header (05.03.2019, forkel)
    2023//
     
    436439   mz_kpp.add_line("                                                                 ");
    437440   mz_kpp.add_line("                                                                 ");
    438    mz_kpp.add_line("  integer, dimension(VL_dim)   :: Kacc,Krej                       ");
    439    mz_kpp.add_line("  integer, dimension(VL_dim)   :: IERRV                           ");
     441   if(kpp_switches.is_vector()) {
     442      mz_kpp.add_line("  integer, dimension(VL_dim)   :: Kacc,Krej                       ");
     443      mz_kpp.add_line("  integer, dimension(VL_dim)   :: IERRV                           ");
     444   }
    440445   mz_kpp.add_line("  logical                     :: data_loaded = .false.             ");
    441 
    442446   in.close();
    443447
     
    535539   kppi.add_line("  integer, dimension(20)                 :: istatus_u               ");
    536540   kppi.add_line("  integer                                :: ierr_u                  ");
    537   kppi.add_line("  integer                                :: istatf                  ");
     541// kppi.add_line("  integer                                :: istatf                  ");
    538542   kppi.add_line("  integer                                :: vl_dim_lo               ");
    539543   kppi.add_line("                                                                    ");
     
    599603   } else {
    600604     kppi.add_line("   IF (PRESENT(l_debug) .AND. PRESENT(PE)) THEN                       ");
    601      kppi.add_line("      IF (l_debug) CALL error_output(Conc(is,:),ierr_u, PE)           ");
     605     kppi.add_line("      IF (l_debug) CALL error_output(Conc(is,:),ierr_u,pe)            ");
    602606     kppi.add_line("   ENDIF                                                              ");
    603607     kppi.add_line("                                                                      ");
Note: See TracChangeset for help on using the changeset viewer.