Home


About us
PALM
PALM-4U
Installation
Release notes
Documentation
Getting Help
Gallery
Developers area

Changeset 3789 for palm


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

Removed unused variables from chem_gasphase_mod.f90

Location:
palm/trunk
Files:
17 edited

Legend:

Unmodified
Added
Removed

  • palm/trunk/SOURCE/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:53 2019
    118 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190305/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     115! Time                 : Fri Mar  8 19:01:03 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
    … …  
    192190!
    193191! File                 : chem_gasphase_mod_Global.f90
    194 ! Time                 : Tue Mar  5 11:50:53 2019
    195 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190305/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     192! Time                 : Fri Mar  8 19:01:03 2019
     193! Working directory    : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    196194! Equation file        : chem_gasphase_mod.kpp
    197195! Output root filename : chem_gasphase_mod
    … …  
    220218! TEMP - Temperature
    221219  REAL(kind=dp):: temp
    222 ! TSTART - Integration start time
    223   REAL(kind=dp):: tstart
    224220! ATOL - Absolute tolerance
    225221  REAL(kind=dp):: atol(nvar)
    … …  
    260256!
    261257! File                 : chem_gasphase_mod_JacobianSP.f90
    262 ! Time                 : Tue Mar  5 11:50:53 2019
    263 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190305/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     258! Time                 : Fri Mar  8 19:01:03 2019
     259! Working directory    : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    264260! Equation file        : chem_gasphase_mod.kpp
    265261! Output root filename : chem_gasphase_mod
    … …  
    304300!
    305301! File                 : chem_gasphase_mod_Monitor.f90
    306 ! Time                 : Tue Mar  5 11:50:53 2019
    307 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190305/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     302! Time                 : Fri Mar  8 19:01:03 2019
     303! Working directory    : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    308304! Equation file        : chem_gasphase_mod.kpp
    309305! Output root filename : chem_gasphase_mod
    … …  
    366362!
    367363! File                 : chem_gasphase_mod_Initialize.f90
    368 ! Time                 : Tue Mar  5 11:50:53 2019
    369 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190305/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     364! Time                 : Fri Mar  8 19:01:03 2019
     365! Working directory    : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    370366! Equation file        : chem_gasphase_mod.kpp
    371367! Output root filename : chem_gasphase_mod
    … …  
    392388!
    393389! File                 : chem_gasphase_mod_Integrator.f90
    394 ! Time                 : Tue Mar  5 11:50:53 2019
    395 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190305/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     390! Time                 : Fri Mar  8 19:01:03 2019
     391! Working directory    : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    396392! Equation file        : chem_gasphase_mod.kpp
    397393! Output root filename : chem_gasphase_mod
    … …  
    450446!
    451447! File                 : chem_gasphase_mod_LinearAlgebra.f90
    452 ! Time                 : Tue Mar  5 11:50:53 2019
    453 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190305/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     448! Time                 : Fri Mar  8 19:01:03 2019
     449! Working directory    : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    454450! Equation file        : chem_gasphase_mod.kpp
    455451! Output root filename : chem_gasphase_mod
    … …  
    477473!
    478474! File                 : chem_gasphase_mod_Jacobian.f90
    479 ! Time                 : Tue Mar  5 11:50:53 2019
    480 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190305/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     475! Time                 : Fri Mar  8 19:01:03 2019
     476! Working directory    : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    481477! Equation file        : chem_gasphase_mod.kpp
    482478! Output root filename : chem_gasphase_mod
    … …  
    504500!
    505501! File                 : chem_gasphase_mod_Function.f90
    506 ! Time                 : Tue Mar  5 11:50:53 2019
    507 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190305/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     502! Time                 : Fri Mar  8 19:01:03 2019
     503! Working directory    : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    508504! Equation file        : chem_gasphase_mod.kpp
    509505! Output root filename : chem_gasphase_mod
    … …  
    533529!
    534530! File                 : chem_gasphase_mod_Rates.f90
    535 ! Time                 : Tue Mar  5 11:50:53 2019
    536 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190305/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     531! Time                 : Fri Mar  8 19:01:03 2019
     532! Working directory    : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    537533! Equation file        : chem_gasphase_mod.kpp
    538534! Output root filename : chem_gasphase_mod
    … …  
    559555!
    560556! File                 : chem_gasphase_mod_Util.f90
    561 ! Time                 : Tue Mar  5 11:50:53 2019
    562 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190305/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     557! Time                 : Fri Mar  8 19:01:03 2019
     558! Working directory    : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    563559! Equation file        : chem_gasphase_mod.kpp
    564560! Output root filename : chem_gasphase_mod
    … …  
    680676
    681677
    682   INTEGER         :: j, k
     678 INTEGER         :: k
    683679
    684680  INTEGER :: i
    … …  
    722718   INTEGER       :: icntrl(20), istatus(20), ierr
    723719
    724    INTEGER, SAVE :: ntotal = 0
    725720
    726721   icntrl(:) = 0
    … …  
    942937  REAL(dp), DIMENSION(:), INTENT(IN):: c
    943938
    944   write(6,*) 'ERROR in chem_gasphase_mod ',ierr,C(1)
     939  write(6,*) 'ERROR in chem_gasphase_mod ',ierr,C(1),PE
    945940
    946941
    … …  
    22512246                                                                     
    22522247    INTEGER  :: ier                                                   
    2253     REAL(kind=dp):: jvs(lu_nonzero), w(nvar), a             
    2254     INTEGER  :: k, kk, j, jj                                         
     2248    REAL(kind=dp):: jvs(lu_nonzero), a                         
    22552249                                                                     
    22562250    a = 0.                                                           
    … …  
    23072301  INTEGER, DIMENSION(20)                :: istatus_u               
    23082302  INTEGER                                :: ierr_u                 
    2309   INTEGER                                :: istatf                 
    23102303  INTEGER                                :: vl_dim_lo               
    23112304                                                                   
    … …  
    23442337                                                                   
    23452338   IF (PRESENT(l_debug) .AND. PRESENT(pe)) THEN                       
    2346       IF (l_debug) CALL error_output(conc(is, :), ierr_u, pe)         
     2339      IF (l_debug) CALL error_output(conc(is, :), ierr_u, pe)           
    23472340   ENDIF                                                             
    23482341                                                                     

  • 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("                                                                      ");

  • palm/trunk/UTIL/chemistry/gasphase_preproc/kpp4palm/src/expand_decomp.C

    r3458 r3789  
    1717// $Id: expand_decomp.C 3327 2018-10-09 19:55:00Z forkel $
    1818//
    19 // initial version                                  (Nov. 2016, ketelsen)
     19// Added switch for de-indexing == 2 (W is not needed then)       (08.03.2019, forkel)
     20// commented add_line for 'INTEGER  :: k, kk, j, jj' which
     21// only needed for de-indexing == 0
     22//
     23// initial version                                                (Nov. 2016, ketelsen)
    2024
    2125
    … …  
    197201  de.add_line ("    INTEGER  :: IER                                                   ");
    198202//  de.add_line ("    REAL ( kind=dp ) :: JVS (:), W ( NVAR ), a                        ");
    199   de.add_line ("    REAL ( kind=dp ) :: JVS ( LU_NONZERO ), W ( NVAR ), a             ");
    200   de.add_line ("    INTEGER  :: k, kk, j, jj                                          ");
     203  if( kpp_switches.de_indexing () == 2 ) {
     204     de.add_line ("    REAL ( kind=dp ) :: JVS ( LU_NONZERO ), a                         ");
     205  } else {
     206     de.add_line ("    REAL ( kind=dp ) :: JVS ( LU_NONZERO ), W ( NVAR ), a             ");
     207  }
     208//  Commented, k, kk, j, jj are only required if de_indexing == 0, which is not handled here
     209//     de.add_line ("    INTEGER  :: k, kk, j, jj                                          ");
    201210  de.add_line ("                                                                      ");
    202211  de.add_line ("    a = 0.                                                            ");

  • palm/trunk/UTIL/chemistry/gasphase_preproc/kpp4palm/src/fortran_file.C

    r3458 r3789  
    1919//$Id:
    2020//
     21// removal of unnecessary variables (Ntotal, TSTART)                        (08.03.2019 forkel)
     22//
    2123// Added vector switch and creation of dimension statement (rev. 3260, 18.09.2018, ketelsen)
    2224//
    … …  
    167169    }
    168170
     171//  Remove Ntotal since it is unused
     172
     173    if(ip->get_token(3) == "Ntotal") {
     174      lo_line.insert(0,"!DELETE ");
     175    cout << lo_line << endl;
     176    }
     177
     178
    169179
    170180    ip->set_line(lo_line);
    … …  
    390400
    391401    if(ip->get_token_number_from_string("RTOLS") > 0) {
     402    cout << lo_line << endl;
     403      lo_line.insert(0,"!DELETE ");
     404    cout << lo_line << endl;
     405    }
     406
     407//  Remove    TSTART
     408
     409    if(ip->get_token_number_from_string("TSTART") > 0) {
    392410    cout << lo_line << endl;
    393411      lo_line.insert(0,"!DELETE ");

  • palm/trunk/UTIL/chemistry/gasphase_preproc/kpp4palm/src/fortran_file_vec.C

    r3458 r3789  
    1717//-----------------------
    1818//$Id: fortran_file_vec.C 3327 2018-10-09 19:55:00Z forkel $
     19// Added vector switch for INTEGER         :: j,k                       (08.03.2019, forkel)
     20//
    1921// Line 112: do k=is,ie bydo k=1,vl; line 156 ff: replaced index k by j (18.09.2018, ketelsen)
    2022//
    … …  
    169171  lo_line = ip->get_line() ;
    170172  lo_line.erase();
    171   lo_line = "  INTEGER         :: j,k";
     173  if(kpp_switches.is_vector() ) {
     174    lo_line = " INTEGER         :: j,k";
     175  } else {
     176    lo_line = " INTEGER         :: k";
     177  }
    172178  ip->set_line(lo_line);
    173179

  • palm/trunk/UTIL/chemistry/gasphase_preproc/kpp4palm/templates/initialize_kpp_ctrl_template.f90

    r3298 r3789  
    9191  REAL(dp), DIMENSION(:),INTENT(IN) :: C
    9292
    93   write(6,*) 'ERROR in chem_gasphase_mod ',ierr,C(1)
     93  write(6,*) 'ERROR in chem_gasphase_mod ',ierr,C(1),PE
    9494
    9595

  • 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                                                                     

  • palm/trunk/UTIL/chemistry/gasphase_preproc/mechanisms/def_passive/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
    … …  
    190188!
    191189! File                 : chem_gasphase_mod_Global.f90
    192 ! Time                 : Tue Mar  5 11:50:49 2019
    193 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190305/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     190! Time                 : Fri Mar  8 19:00:59 2019
     191! Working directory    : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    194192! Equation file        : chem_gasphase_mod.kpp
    195193! Output root filename : chem_gasphase_mod
    … …  
    218216! TEMP - Temperature
    219217  REAL(kind=dp):: temp
    220 ! TSTART - Integration start time
    221   REAL(kind=dp):: tstart
    222218! ATOL - Absolute tolerance
    223219  REAL(kind=dp):: atol(nvar)
    … …  
    258254!
    259255! File                 : chem_gasphase_mod_JacobianSP.f90
    260 ! Time                 : Tue Mar  5 11:50:49 2019
    261 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190305/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     256! Time                 : Fri Mar  8 19:00:59 2019
     257! Working directory    : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    262258! Equation file        : chem_gasphase_mod.kpp
    263259! Output root filename : chem_gasphase_mod
    … …  
    302298!
    303299! File                 : chem_gasphase_mod_Monitor.f90
    304 ! Time                 : Tue Mar  5 11:50:49 2019
    305 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190305/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     300! Time                 : Fri Mar  8 19:00:59 2019
     301! Working directory    : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    306302! Equation file        : chem_gasphase_mod.kpp
    307303! Output root filename : chem_gasphase_mod
    … …  
    362358!
    363359! File                 : chem_gasphase_mod_Initialize.f90
    364 ! Time                 : Tue Mar  5 11:50:49 2019
    365 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190305/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     360! Time                 : Fri Mar  8 19:00:59 2019
     361! Working directory    : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    366362! Equation file        : chem_gasphase_mod.kpp
    367363! Output root filename : chem_gasphase_mod
    … …  
    388384!
    389385! File                 : chem_gasphase_mod_Integrator.f90
    390 ! Time                 : Tue Mar  5 11:50:49 2019
    391 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190305/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     386! Time                 : Fri Mar  8 19:00:59 2019
     387! Working directory    : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    392388! Equation file        : chem_gasphase_mod.kpp
    393389! Output root filename : chem_gasphase_mod
    … …  
    446442!
    447443! File                 : chem_gasphase_mod_LinearAlgebra.f90
    448 ! Time                 : Tue Mar  5 11:50:49 2019
    449 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190305/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     444! Time                 : Fri Mar  8 19:00:59 2019
     445! Working directory    : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    450446! Equation file        : chem_gasphase_mod.kpp
    451447! Output root filename : chem_gasphase_mod
    … …  
    473469!
    474470! File                 : chem_gasphase_mod_Jacobian.f90
    475 ! Time                 : Tue Mar  5 11:50:49 2019
    476 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190305/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     471! Time                 : Fri Mar  8 19:00:59 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_Function.f90
    502 ! Time                 : Tue Mar  5 11:50:49 2019
    503 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190305/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     498! Time                 : Fri Mar  8 19:00:59 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
    … …  
    529525!
    530526! File                 : chem_gasphase_mod_Rates.f90
    531 ! Time                 : Tue Mar  5 11:50:49 2019
    532 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190305/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     527! Time                 : Fri Mar  8 19:00:59 2019
     528! Working directory    : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    533529! Equation file        : chem_gasphase_mod.kpp
    534530! Output root filename : chem_gasphase_mod
    … …  
    555551!
    556552! File                 : chem_gasphase_mod_Util.f90
    557 ! Time                 : Tue Mar  5 11:50:49 2019
    558 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190305/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     553! Time                 : Fri Mar  8 19:00:59 2019
     554! Working directory    : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    559555! Equation file        : chem_gasphase_mod.kpp
    560556! Output root filename : chem_gasphase_mod
    … …  
    676672
    677673
    678   INTEGER         :: j, k
     674 INTEGER         :: k
    679675
    680676  INTEGER :: i
    … …  
    718714   INTEGER       :: icntrl(20), istatus(20), ierr
    719715
    720    INTEGER, SAVE :: ntotal = 0
    721716
    722717   icntrl(:) = 0
    … …  
    909904  REAL(dp), DIMENSION(:), INTENT(IN):: c
    910905
    911   write(6,*) 'ERROR in chem_gasphase_mod ',ierr,C(1)
     906  write(6,*) 'ERROR in chem_gasphase_mod ',ierr,C(1),PE
    912907
    913908
    … …  
    22182213                                                                     
    22192214    INTEGER  :: ier                                                   
    2220     REAL(kind=dp):: jvs(lu_nonzero), w(nvar), a             
    2221     INTEGER  :: k, kk, j, jj                                         
     2215    REAL(kind=dp):: jvs(lu_nonzero), a                         
    22222216                                                                     
    22232217    a = 0.                                                           
    … …  
    22652259  INTEGER, DIMENSION(20)                :: istatus_u               
    22662260  INTEGER                                :: ierr_u                 
    2267   INTEGER                                :: istatf                 
    22682261  INTEGER                                :: vl_dim_lo               
    22692262                                                                   
    … …  
    23022295                                                                   
    23032296   IF (PRESENT(l_debug) .AND. PRESENT(pe)) THEN                       
    2304       IF (l_debug) CALL error_output(conc(is, :), ierr_u, pe)         
     2297      IF (l_debug) CALL error_output(conc(is, :), ierr_u, pe)           
    23052298   ENDIF                                                             
    23062299                                                                     

  • palm/trunk/UTIL/chemistry/gasphase_preproc/mechanisms/def_passive1/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
    … …  
    189187!
    190188! File                 : chem_gasphase_mod_Global.f90
    191 ! Time                 : Tue Mar  5 11:50:50 2019
    192 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190305/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     189! Time                 : Fri Mar  8 19:01:00 2019
     190! Working directory    : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    193191! Equation file        : chem_gasphase_mod.kpp
    194192! Output root filename : chem_gasphase_mod
    … …  
    217215! TEMP - Temperature
    218216  REAL(kind=dp):: temp
    219 ! TSTART - Integration start time
    220   REAL(kind=dp):: tstart
    221217! ATOL - Absolute tolerance
    222218  REAL(kind=dp):: atol(nvar)
    … …  
    257253!
    258254! File                 : chem_gasphase_mod_JacobianSP.f90
    259 ! Time                 : Tue Mar  5 11:50:50 2019
    260 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190305/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     255! Time                 : Fri Mar  8 19:01:00 2019
     256! Working directory    : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    261257! Equation file        : chem_gasphase_mod.kpp
    262258! Output root filename : chem_gasphase_mod
    … …  
    301297!
    302298! File                 : chem_gasphase_mod_Monitor.f90
    303 ! Time                 : Tue Mar  5 11:50:50 2019
    304 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190305/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     299! Time                 : Fri Mar  8 19:01:00 2019
     300! Working directory    : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    305301! Equation file        : chem_gasphase_mod.kpp
    306302! Output root filename : chem_gasphase_mod
    … …  
    360356!
    361357! File                 : chem_gasphase_mod_Initialize.f90
    362 ! Time                 : Tue Mar  5 11:50:50 2019
    363 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190305/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     358! Time                 : Fri Mar  8 19:01:00 2019
     359! Working directory    : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    364360! Equation file        : chem_gasphase_mod.kpp
    365361! Output root filename : chem_gasphase_mod
    … …  
    386382!
    387383! File                 : chem_gasphase_mod_Integrator.f90
    388 ! Time                 : Tue Mar  5 11:50:50 2019
    389 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190305/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     384! Time                 : Fri Mar  8 19:01:00 2019
     385! Working directory    : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    390386! Equation file        : chem_gasphase_mod.kpp
    391387! Output root filename : chem_gasphase_mod
    … …  
    444440!
    445441! File                 : chem_gasphase_mod_LinearAlgebra.f90
    446 ! Time                 : Tue Mar  5 11:50:50 2019
    447 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190305/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     442! Time                 : Fri Mar  8 19:01:00 2019
     443! Working directory    : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    448444! Equation file        : chem_gasphase_mod.kpp
    449445! Output root filename : chem_gasphase_mod
    … …  
    471467!
    472468! File                 : chem_gasphase_mod_Jacobian.f90
    473 ! Time                 : Tue Mar  5 11:50:50 2019
    474 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190305/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     469! Time                 : Fri Mar  8 19:01:00 2019
     470! Working directory    : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    475471! Equation file        : chem_gasphase_mod.kpp
    476472! Output root filename : chem_gasphase_mod
    … …  
    498494!
    499495! File                 : chem_gasphase_mod_Function.f90
    500 ! Time                 : Tue Mar  5 11:50:50 2019
    501 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190305/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     496! Time                 : Fri Mar  8 19:01:00 2019
     497! Working directory    : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    502498! Equation file        : chem_gasphase_mod.kpp
    503499! Output root filename : chem_gasphase_mod
    … …  
    527523!
    528524! File                 : chem_gasphase_mod_Rates.f90
    529 ! Time                 : Tue Mar  5 11:50:50 2019
    530 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190305/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     525! Time                 : Fri Mar  8 19:01:00 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
    … …  
    553549!
    554550! File                 : chem_gasphase_mod_Util.f90
    555 ! Time                 : Tue Mar  5 11:50:50 2019
    556 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190305/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     551! Time                 : Fri Mar  8 19:01:00 2019
     552! Working directory    : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    557553! Equation file        : chem_gasphase_mod.kpp
    558554! Output root filename : chem_gasphase_mod
    … …  
    674670
    675671
    676   INTEGER         :: j, k
     672 INTEGER         :: k
    677673
    678674  INTEGER :: i
    … …  
    716712   INTEGER       :: icntrl(20), istatus(20), ierr
    717713
    718    INTEGER, SAVE :: ntotal = 0
    719714
    720715   icntrl(:) = 0
    … …  
    900895  REAL(dp), DIMENSION(:), INTENT(IN):: c
    901896
    902   write(6,*) 'ERROR in chem_gasphase_mod ',ierr,C(1)
     897  write(6,*) 'ERROR in chem_gasphase_mod ',ierr,C(1),PE
    903898
    904899
    … …  
    22092204                                                                     
    22102205    INTEGER  :: ier                                                   
    2211     REAL(kind=dp):: jvs(lu_nonzero), w(nvar), a             
    2212     INTEGER  :: k, kk, j, jj                                         
     2206    REAL(kind=dp):: jvs(lu_nonzero), a                         
    22132207                                                                     
    22142208    a = 0.                                                           
    … …  
    22552249  INTEGER, DIMENSION(20)                :: istatus_u               
    22562250  INTEGER                                :: ierr_u                 
    2257   INTEGER                                :: istatf                 
    22582251  INTEGER                                :: vl_dim_lo               
    22592252                                                                   
    … …  
    22922285                                                                   
    22932286   IF (PRESENT(l_debug) .AND. PRESENT(pe)) THEN                       
    2294       IF (l_debug) CALL error_output(conc(is, :), ierr_u, pe)         
     2287      IF (l_debug) CALL error_output(conc(is, :), ierr_u, pe)           
    22952288   ENDIF                                                             
    22962289                                                                     

  • 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                                                                     

  • palm/trunk/UTIL/chemistry/gasphase_preproc/mechanisms/def_phstatp/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:53 2019
    118 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190305/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     115! Time                 : Fri Mar  8 19:01:03 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
    … …  
    192190!
    193191! File                 : chem_gasphase_mod_Global.f90
    194 ! Time                 : Tue Mar  5 11:50:53 2019
    195 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190305/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     192! Time                 : Fri Mar  8 19:01:03 2019
     193! Working directory    : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    196194! Equation file        : chem_gasphase_mod.kpp
    197195! Output root filename : chem_gasphase_mod
    … …  
    220218! TEMP - Temperature
    221219  REAL(kind=dp):: temp
    222 ! TSTART - Integration start time
    223   REAL(kind=dp):: tstart
    224220! ATOL - Absolute tolerance
    225221  REAL(kind=dp):: atol(nvar)
    … …  
    260256!
    261257! File                 : chem_gasphase_mod_JacobianSP.f90
    262 ! Time                 : Tue Mar  5 11:50:53 2019
    263 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190305/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     258! Time                 : Fri Mar  8 19:01:03 2019
     259! Working directory    : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    264260! Equation file        : chem_gasphase_mod.kpp
    265261! Output root filename : chem_gasphase_mod
    … …  
    304300!
    305301! File                 : chem_gasphase_mod_Monitor.f90
    306 ! Time                 : Tue Mar  5 11:50:53 2019
    307 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190305/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     302! Time                 : Fri Mar  8 19:01:03 2019
     303! Working directory    : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    308304! Equation file        : chem_gasphase_mod.kpp
    309305! Output root filename : chem_gasphase_mod
    … …  
    366362!
    367363! File                 : chem_gasphase_mod_Initialize.f90
    368 ! Time                 : Tue Mar  5 11:50:53 2019
    369 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190305/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     364! Time                 : Fri Mar  8 19:01:03 2019
     365! Working directory    : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    370366! Equation file        : chem_gasphase_mod.kpp
    371367! Output root filename : chem_gasphase_mod
    … …  
    392388!
    393389! File                 : chem_gasphase_mod_Integrator.f90
    394 ! Time                 : Tue Mar  5 11:50:53 2019
    395 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190305/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     390! Time                 : Fri Mar  8 19:01:03 2019
     391! Working directory    : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    396392! Equation file        : chem_gasphase_mod.kpp
    397393! Output root filename : chem_gasphase_mod
    … …  
    450446!
    451447! File                 : chem_gasphase_mod_LinearAlgebra.f90
    452 ! Time                 : Tue Mar  5 11:50:53 2019
    453 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190305/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     448! Time                 : Fri Mar  8 19:01:03 2019
     449! Working directory    : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    454450! Equation file        : chem_gasphase_mod.kpp
    455451! Output root filename : chem_gasphase_mod
    … …  
    477473!
    478474! File                 : chem_gasphase_mod_Jacobian.f90
    479 ! Time                 : Tue Mar  5 11:50:53 2019
    480 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190305/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     475! Time                 : Fri Mar  8 19:01:03 2019
     476! Working directory    : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    481477! Equation file        : chem_gasphase_mod.kpp
    482478! Output root filename : chem_gasphase_mod
    … …  
    504500!
    505501! File                 : chem_gasphase_mod_Function.f90
    506 ! Time                 : Tue Mar  5 11:50:53 2019
    507 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190305/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     502! Time                 : Fri Mar  8 19:01:03 2019
     503! Working directory    : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    508504! Equation file        : chem_gasphase_mod.kpp
    509505! Output root filename : chem_gasphase_mod
    … …  
    533529!
    534530! File                 : chem_gasphase_mod_Rates.f90
    535 ! Time                 : Tue Mar  5 11:50:53 2019
    536 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190305/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     531! Time                 : Fri Mar  8 19:01:03 2019
     532! Working directory    : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    537533! Equation file        : chem_gasphase_mod.kpp
    538534! Output root filename : chem_gasphase_mod
    … …  
    559555!
    560556! File                 : chem_gasphase_mod_Util.f90
    561 ! Time                 : Tue Mar  5 11:50:53 2019
    562 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190305/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     557! Time                 : Fri Mar  8 19:01:03 2019
     558! Working directory    : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    563559! Equation file        : chem_gasphase_mod.kpp
    564560! Output root filename : chem_gasphase_mod
    … …  
    680676
    681677
    682   INTEGER         :: j, k
     678 INTEGER         :: k
    683679
    684680  INTEGER :: i
    … …  
    722718   INTEGER       :: icntrl(20), istatus(20), ierr
    723719
    724    INTEGER, SAVE :: ntotal = 0
    725720
    726721   icntrl(:) = 0
    … …  
    942937  REAL(dp), DIMENSION(:), INTENT(IN):: c
    943938
    944   write(6,*) 'ERROR in chem_gasphase_mod ',ierr,C(1)
     939  write(6,*) 'ERROR in chem_gasphase_mod ',ierr,C(1),PE
    945940
    946941
    … …  
    22512246                                                                     
    22522247    INTEGER  :: ier                                                   
    2253     REAL(kind=dp):: jvs(lu_nonzero), w(nvar), a             
    2254     INTEGER  :: k, kk, j, jj                                         
     2248    REAL(kind=dp):: jvs(lu_nonzero), a                         
    22552249                                                                     
    22562250    a = 0.                                                           
    … …  
    23072301  INTEGER, DIMENSION(20)                :: istatus_u               
    23082302  INTEGER                                :: ierr_u                 
    2309   INTEGER                                :: istatf                 
    23102303  INTEGER                                :: vl_dim_lo               
    23112304                                                                   
    … …  
    23442337                                                                   
    23452338   IF (PRESENT(l_debug) .AND. PRESENT(pe)) THEN                       
    2346       IF (l_debug) CALL error_output(conc(is, :), ierr_u, pe)         
     2339      IF (l_debug) CALL error_output(conc(is, :), ierr_u, pe)           
    23472340   ENDIF                                                             
    23482341                                                                     

  • 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                                                                     

  • palm/trunk/UTIL/chemistry/gasphase_preproc/mechanisms/def_salsa+simple/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
    … …  
    203201!
    204202! File                 : chem_gasphase_mod_Global.f90
    205 ! Time                 : Tue Mar  5 11:50:51 2019
    206 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190305/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     203! Time                 : Fri Mar  8 19:01:01 2019
     204! Working directory    : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    207205! Equation file        : chem_gasphase_mod.kpp
    208206! Output root filename : chem_gasphase_mod
    … …  
    232230! TEMP - Temperature
    233231  REAL(kind=dp):: temp
    234 ! TSTART - Integration start time
    235   REAL(kind=dp):: tstart
    236232! ATOL - Absolute tolerance
    237233  REAL(kind=dp):: atol(nvar)
    … …  
    278274!
    279275! File                 : chem_gasphase_mod_JacobianSP.f90
    280 ! Time                 : Tue Mar  5 11:50:51 2019
    281 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190305/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     276! Time                 : Fri Mar  8 19:01:01 2019
     277! Working directory    : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    282278! Equation file        : chem_gasphase_mod.kpp
    283279! Output root filename : chem_gasphase_mod
    … …  
    330326!
    331327! File                 : chem_gasphase_mod_Monitor.f90
    332 ! Time                 : Tue Mar  5 11:50:51 2019
    333 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190305/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     328! Time                 : Fri Mar  8 19:01:01 2019
     329! Working directory    : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    334330! Equation file        : chem_gasphase_mod.kpp
    335331! Output root filename : chem_gasphase_mod
    … …  
    404400!
    405401! File                 : chem_gasphase_mod_Initialize.f90
    406 ! Time                 : Tue Mar  5 11:50:51 2019
    407 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190305/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     402! Time                 : Fri Mar  8 19:01:01 2019
     403! Working directory    : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    408404! Equation file        : chem_gasphase_mod.kpp
    409405! Output root filename : chem_gasphase_mod
    … …  
    430426!
    431427! File                 : chem_gasphase_mod_Integrator.f90
    432 ! Time                 : Tue Mar  5 11:50:51 2019
    433 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190305/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     428! Time                 : Fri Mar  8 19:01:01 2019
     429! Working directory    : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    434430! Equation file        : chem_gasphase_mod.kpp
    435431! Output root filename : chem_gasphase_mod
    … …  
    488484!
    489485! File                 : chem_gasphase_mod_LinearAlgebra.f90
    490 ! Time                 : Tue Mar  5 11:50:51 2019
    491 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190305/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     486! Time                 : Fri Mar  8 19:01:01 2019
     487! Working directory    : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    492488! Equation file        : chem_gasphase_mod.kpp
    493489! Output root filename : chem_gasphase_mod
    … …  
    515511!
    516512! File                 : chem_gasphase_mod_Jacobian.f90
    517 ! Time                 : Tue Mar  5 11:50:51 2019
    518 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190305/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     513! Time                 : Fri Mar  8 19:01:01 2019
     514! Working directory    : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    519515! Equation file        : chem_gasphase_mod.kpp
    520516! Output root filename : chem_gasphase_mod
    … …  
    542538!
    543539! File                 : chem_gasphase_mod_Function.f90
    544 ! Time                 : Tue Mar  5 11:50:51 2019
    545 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190305/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     540! Time                 : Fri Mar  8 19:01:01 2019
     541! Working directory    : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    546542! Equation file        : chem_gasphase_mod.kpp
    547543! Output root filename : chem_gasphase_mod
    … …  
    571567!
    572568! File                 : chem_gasphase_mod_Rates.f90
    573 ! Time                 : Tue Mar  5 11:50:51 2019
    574 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190305/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     569! Time                 : Fri Mar  8 19:01:01 2019
     570! Working directory    : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    575571! Equation file        : chem_gasphase_mod.kpp
    576572! Output root filename : chem_gasphase_mod
    … …  
    597593!
    598594! File                 : chem_gasphase_mod_Util.f90
    599 ! Time                 : Tue Mar  5 11:50:51 2019
    600 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190305/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     595! Time                 : Fri Mar  8 19:01:01 2019
     596! Working directory    : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    601597! Equation file        : chem_gasphase_mod.kpp
    602598! Output root filename : chem_gasphase_mod
    … …  
    718714
    719715
    720   INTEGER         :: j, k
     716 INTEGER         :: k
    721717
    722718  INTEGER :: i
    … …  
    760756   INTEGER       :: icntrl(20), istatus(20), ierr
    761757
    762    INTEGER, SAVE :: ntotal = 0
    763758
    764759   icntrl(:) = 0
    … …  
    11001095  REAL(dp), DIMENSION(:), INTENT(IN):: c
    11011096
    1102   write(6,*) 'ERROR in chem_gasphase_mod ',ierr,C(1)
     1097  write(6,*) 'ERROR in chem_gasphase_mod ',ierr,C(1),PE
    11031098
    11041099
    … …  
    24092404                                                                     
    24102405    INTEGER  :: ier                                                   
    2411     REAL(kind=dp):: jvs(lu_nonzero), w(nvar), a             
    2412     INTEGER  :: k, kk, j, jj                                         
     2406    REAL(kind=dp):: jvs(lu_nonzero), a                         
    24132407                                                                     
    24142408    a = 0.                                                           
    … …  
    24962490  INTEGER, DIMENSION(20)                :: istatus_u               
    24972491  INTEGER                                :: ierr_u                 
    2498   INTEGER                                :: istatf                 
    24992492  INTEGER                                :: vl_dim_lo               
    25002493                                                                   
    … …  
    25332526                                                                   
    25342527   IF (PRESENT(l_debug) .AND. PRESENT(pe)) THEN                       
    2535       IF (l_debug) CALL error_output(conc(is, :), ierr_u, pe)         
     2528      IF (l_debug) CALL error_output(conc(is, :), ierr_u, pe)           
    25362529   ENDIF                                                             
    25372530                                                                     

  • palm/trunk/UTIL/chemistry/gasphase_preproc/mechanisms/def_salsagas/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
    … …  
    193191!
    194192! File                 : chem_gasphase_mod_Global.f90
    195 ! Time                 : Tue Mar  5 11:50:51 2019
    196 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190305/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     193! Time                 : Fri Mar  8 19:01:01 2019
     194! Working directory    : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    197195! Equation file        : chem_gasphase_mod.kpp
    198196! Output root filename : chem_gasphase_mod
    … …  
    221219! TEMP - Temperature
    222220  REAL(kind=dp):: temp
    223 ! TSTART - Integration start time
    224   REAL(kind=dp):: tstart
    225221! ATOL - Absolute tolerance
    226222  REAL(kind=dp):: atol(nvar)
    … …  
    263259!
    264260! File                 : chem_gasphase_mod_JacobianSP.f90
    265 ! Time                 : Tue Mar  5 11:50:51 2019
    266 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190305/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     261! Time                 : Fri Mar  8 19:01:01 2019
     262! Working directory    : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    267263! Equation file        : chem_gasphase_mod.kpp
    268264! Output root filename : chem_gasphase_mod
    … …  
    307303!
    308304! File                 : chem_gasphase_mod_Monitor.f90
    309 ! Time                 : Tue Mar  5 11:50:51 2019
    310 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190305/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     305! Time                 : Fri Mar  8 19:01:01 2019
     306! Working directory    : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    311307! Equation file        : chem_gasphase_mod.kpp
    312308! Output root filename : chem_gasphase_mod
    … …  
    371367!
    372368! File                 : chem_gasphase_mod_Initialize.f90
    373 ! Time                 : Tue Mar  5 11:50:51 2019
    374 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190305/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     369! Time                 : Fri Mar  8 19:01:01 2019
     370! Working directory    : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    375371! Equation file        : chem_gasphase_mod.kpp
    376372! Output root filename : chem_gasphase_mod
    … …  
    397393!
    398394! File                 : chem_gasphase_mod_Integrator.f90
    399 ! Time                 : Tue Mar  5 11:50:51 2019
    400 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190305/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     395! Time                 : Fri Mar  8 19:01:01 2019
     396! Working directory    : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    401397! Equation file        : chem_gasphase_mod.kpp
    402398! Output root filename : chem_gasphase_mod
    … …  
    455451!
    456452! File                 : chem_gasphase_mod_LinearAlgebra.f90
    457 ! Time                 : Tue Mar  5 11:50:51 2019
    458 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190305/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     453! Time                 : Fri Mar  8 19:01:01 2019
     454! Working directory    : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    459455! Equation file        : chem_gasphase_mod.kpp
    460456! Output root filename : chem_gasphase_mod
    … …  
    482478!
    483479! File                 : chem_gasphase_mod_Jacobian.f90
    484 ! Time                 : Tue Mar  5 11:50:51 2019
    485 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190305/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     480! Time                 : Fri Mar  8 19:01:01 2019
     481! Working directory    : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    486482! Equation file        : chem_gasphase_mod.kpp
    487483! Output root filename : chem_gasphase_mod
    … …  
    509505!
    510506! File                 : chem_gasphase_mod_Function.f90
    511 ! Time                 : Tue Mar  5 11:50:51 2019
    512 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190305/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     507! Time                 : Fri Mar  8 19:01:01 2019
     508! Working directory    : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    513509! Equation file        : chem_gasphase_mod.kpp
    514510! Output root filename : chem_gasphase_mod
    … …  
    538534!
    539535! File                 : chem_gasphase_mod_Rates.f90
    540 ! Time                 : Tue Mar  5 11:50:51 2019
    541 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190305/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     536! Time                 : Fri Mar  8 19:01:01 2019
     537! Working directory    : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    542538! Equation file        : chem_gasphase_mod.kpp
    543539! Output root filename : chem_gasphase_mod
    … …  
    564560!
    565561! File                 : chem_gasphase_mod_Util.f90
    566 ! Time                 : Tue Mar  5 11:50:51 2019
    567 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190305/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     562! Time                 : Fri Mar  8 19:01:01 2019
     563! Working directory    : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    568564! Equation file        : chem_gasphase_mod.kpp
    569565! Output root filename : chem_gasphase_mod
    … …  
    685681
    686682
    687   INTEGER         :: j, k
     683 INTEGER         :: k
    688684
    689685  INTEGER :: i
    … …  
    727723   INTEGER       :: icntrl(20), istatus(20), ierr
    728724
    729    INTEGER, SAVE :: ntotal = 0
    730725
    731726   icntrl(:) = 0
    … …  
    939934  REAL(dp), DIMENSION(:), INTENT(IN):: c
    940935
    941   write(6,*) 'ERROR in chem_gasphase_mod ',ierr,C(1)
     936  write(6,*) 'ERROR in chem_gasphase_mod ',ierr,C(1),PE
    942937
    943938
    … …  
    22482243                                                                     
    22492244    INTEGER  :: ier                                                   
    2250     REAL(kind=dp):: jvs(lu_nonzero), w(nvar), a             
    2251     INTEGER  :: k, kk, j, jj                                         
     2245    REAL(kind=dp):: jvs(lu_nonzero), a                         
    22522246                                                                     
    22532247    a = 0.                                                           
    … …  
    22982292  INTEGER, DIMENSION(20)                :: istatus_u               
    22992293  INTEGER                                :: ierr_u                 
    2300   INTEGER                                :: istatf                 
    23012294  INTEGER                                :: vl_dim_lo               
    23022295                                                                   
    … …  
    23352328                                                                   
    23362329   IF (PRESENT(l_debug) .AND. PRESENT(pe)) THEN                       
    2337       IF (l_debug) CALL error_output(conc(is, :), ierr_u, pe)         
     2330      IF (l_debug) CALL error_output(conc(is, :), ierr_u, pe)           
    23382331   ENDIF                                                             
    23392332                                                                     

  • palm/trunk/UTIL/chemistry/gasphase_preproc/mechanisms/def_simple/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
    … …  
    199197!
    200198! File                 : chem_gasphase_mod_Global.f90
    201 ! Time                 : Tue Mar  5 11:50:52 2019
    202 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190305/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     199! Time                 : Fri Mar  8 19:01:02 2019
     200! Working directory    : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    203201! Equation file        : chem_gasphase_mod.kpp
    204202! Output root filename : chem_gasphase_mod
    … …  
    228226! TEMP - Temperature
    229227  REAL(kind=dp):: temp
    230 ! TSTART - Integration start time
    231   REAL(kind=dp):: tstart
    232228! ATOL - Absolute tolerance
    233229  REAL(kind=dp):: atol(nvar)
    … …  
    268264!
    269265! File                 : chem_gasphase_mod_JacobianSP.f90
    270 ! Time                 : Tue Mar  5 11:50:52 2019
    271 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190305/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     266! Time                 : Fri Mar  8 19:01:02 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
    … …  
    318314!
    319315! File                 : chem_gasphase_mod_Monitor.f90
    320 ! Time                 : Tue Mar  5 11:50:52 2019
    321 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190305/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     316! Time                 : Fri Mar  8 19:01:02 2019
     317! Working directory    : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    322318! Equation file        : chem_gasphase_mod.kpp
    323319! Output root filename : chem_gasphase_mod
    … …  
    387383!
    388384! File                 : chem_gasphase_mod_Initialize.f90
    389 ! Time                 : Tue Mar  5 11:50:52 2019
    390 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190305/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     385! Time                 : Fri Mar  8 19:01:02 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
    … …  
    413409!
    414410! File                 : chem_gasphase_mod_Integrator.f90
    415 ! Time                 : Tue Mar  5 11:50:52 2019
    416 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190305/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     411! Time                 : Fri Mar  8 19:01:02 2019
     412! Working directory    : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    417413! Equation file        : chem_gasphase_mod.kpp
    418414! Output root filename : chem_gasphase_mod
    … …  
    471467!
    472468! File                 : chem_gasphase_mod_LinearAlgebra.f90
    473 ! Time                 : Tue Mar  5 11:50:52 2019
    474 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190305/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     469! Time                 : Fri Mar  8 19:01:02 2019
     470! Working directory    : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    475471! Equation file        : chem_gasphase_mod.kpp
    476472! Output root filename : chem_gasphase_mod
    … …  
    498494!
    499495! File                 : chem_gasphase_mod_Jacobian.f90
    500 ! Time                 : Tue Mar  5 11:50:52 2019
    501 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190305/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     496! Time                 : Fri Mar  8 19:01:02 2019
     497! Working directory    : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    502498! Equation file        : chem_gasphase_mod.kpp
    503499! Output root filename : chem_gasphase_mod
    … …  
    525521!
    526522! File                 : chem_gasphase_mod_Function.f90
    527 ! Time                 : Tue Mar  5 11:50:52 2019
    528 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190305/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     523! Time                 : Fri Mar  8 19:01:02 2019
     524! Working directory    : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    529525! Equation file        : chem_gasphase_mod.kpp
    530526! Output root filename : chem_gasphase_mod
    … …  
    554550!
    555551! File                 : chem_gasphase_mod_Rates.f90
    556 ! Time                 : Tue Mar  5 11:50:52 2019
    557 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190305/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     552! Time                 : Fri Mar  8 19:01:02 2019
     553! Working directory    : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    558554! Equation file        : chem_gasphase_mod.kpp
    559555! Output root filename : chem_gasphase_mod
    … …  
    580576!
    581577! File                 : chem_gasphase_mod_Util.f90
    582 ! Time                 : Tue Mar  5 11:50:52 2019
    583 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190305/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     578! Time                 : Fri Mar  8 19:01:02 2019
     579! Working directory    : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    584580! Equation file        : chem_gasphase_mod.kpp
    585581! Output root filename : chem_gasphase_mod
    … …  
    701697
    702698
    703   INTEGER         :: j, k
     699 INTEGER         :: k
    704700
    705701  INTEGER :: i
    … …  
    743739   INTEGER       :: icntrl(20), istatus(20), ierr
    744740
    745    INTEGER, SAVE :: ntotal = 0
    746741
    747742   icntrl(:) = 0
    … …  
    10551050  REAL(dp), DIMENSION(:), INTENT(IN):: c
    10561051
    1057   write(6,*) 'ERROR in chem_gasphase_mod ',ierr,C(1)
     1052  write(6,*) 'ERROR in chem_gasphase_mod ',ierr,C(1),PE
    10581053
    10591054
    … …  
    23642359                                                                     
    23652360    INTEGER  :: ier                                                   
    2366     REAL(kind=dp):: jvs(lu_nonzero), w(nvar), a             
    2367     INTEGER  :: k, kk, j, jj                                         
     2361    REAL(kind=dp):: jvs(lu_nonzero), a                         
    23682362                                                                     
    23692363    a = 0.                                                           
    … …  
    24482442  INTEGER, DIMENSION(20)                :: istatus_u               
    24492443  INTEGER                                :: ierr_u                 
    2450   INTEGER                                :: istatf                 
    24512444  INTEGER                                :: vl_dim_lo               
    24522445                                                                   
    … …  
    24852478                                                                   
    24862479   IF (PRESENT(l_debug) .AND. PRESENT(pe)) THEN                       
    2487       IF (l_debug) CALL error_output(conc(is, :), ierr_u, pe)         
     2480      IF (l_debug) CALL error_output(conc(is, :), ierr_u, pe)           
    24882481   ENDIF                                                             
    24892482                                                                     

  • 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                                                                     

  • palm/trunk/UTIL/chemistry/gasphase_preproc/mechanisms/def_smog/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:53 2019
    118 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190305/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     115! Time                 : Fri Mar  8 19:01:03 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
    … …  
    207205!
    208206! File                 : chem_gasphase_mod_Global.f90
    209 ! Time                 : Tue Mar  5 11:50:53 2019
    210 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190305/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     207! Time                 : Fri Mar  8 19:01:03 2019
     208! Working directory    : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    211209! Equation file        : chem_gasphase_mod.kpp
    212210! Output root filename : chem_gasphase_mod
    … …  
    236234! TEMP - Temperature
    237235  REAL(kind=dp):: temp
    238 ! TSTART - Integration start time
    239   REAL(kind=dp):: tstart
    240236! ATOL - Absolute tolerance
    241237  REAL(kind=dp):: atol(nvar)
    … …  
    276272!
    277273! File                 : chem_gasphase_mod_JacobianSP.f90
    278 ! Time                 : Tue Mar  5 11:50:53 2019
    279 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190305/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     274! Time                 : Fri Mar  8 19:01:03 2019
     275! Working directory    : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    280276! Equation file        : chem_gasphase_mod.kpp
    281277! Output root filename : chem_gasphase_mod
    … …  
    332328!
    333329! File                 : chem_gasphase_mod_Monitor.f90
    334 ! Time                 : Tue Mar  5 11:50:53 2019
    335 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190305/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     330! Time                 : Fri Mar  8 19:01:03 2019
     331! Working directory    : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    336332! Equation file        : chem_gasphase_mod.kpp
    337333! Output root filename : chem_gasphase_mod
    … …  
    408404!
    409405! File                 : chem_gasphase_mod_Initialize.f90
    410 ! Time                 : Tue Mar  5 11:50:53 2019
    411 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190305/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     406! Time                 : Fri Mar  8 19:01:03 2019
     407! Working directory    : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    412408! Equation file        : chem_gasphase_mod.kpp
    413409! Output root filename : chem_gasphase_mod
    … …  
    434430!
    435431! File                 : chem_gasphase_mod_Integrator.f90
    436 ! Time                 : Tue Mar  5 11:50:53 2019
    437 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190305/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     432! Time                 : Fri Mar  8 19:01:03 2019
     433! Working directory    : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    438434! Equation file        : chem_gasphase_mod.kpp
    439435! Output root filename : chem_gasphase_mod
    … …  
    492488!
    493489! File                 : chem_gasphase_mod_LinearAlgebra.f90
    494 ! Time                 : Tue Mar  5 11:50:53 2019
    495 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190305/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     490! Time                 : Fri Mar  8 19:01:03 2019
     491! Working directory    : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    496492! Equation file        : chem_gasphase_mod.kpp
    497493! Output root filename : chem_gasphase_mod
    … …  
    519515!
    520516! File                 : chem_gasphase_mod_Jacobian.f90
    521 ! Time                 : Tue Mar  5 11:50:53 2019
    522 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190305/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     517! Time                 : Fri Mar  8 19:01:03 2019
     518! Working directory    : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    523519! Equation file        : chem_gasphase_mod.kpp
    524520! Output root filename : chem_gasphase_mod
    … …  
    546542!
    547543! File                 : chem_gasphase_mod_Function.f90
    548 ! Time                 : Tue Mar  5 11:50:53 2019
    549 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190305/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     544! Time                 : Fri Mar  8 19:01:03 2019
     545! Working directory    : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    550546! Equation file        : chem_gasphase_mod.kpp
    551547! Output root filename : chem_gasphase_mod
    … …  
    575571!
    576572! File                 : chem_gasphase_mod_Rates.f90
    577 ! Time                 : Tue Mar  5 11:50:53 2019
    578 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190305/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     573! Time                 : Fri Mar  8 19:01:03 2019
     574! Working directory    : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    579575! Equation file        : chem_gasphase_mod.kpp
    580576! Output root filename : chem_gasphase_mod
    … …  
    601597!
    602598! File                 : chem_gasphase_mod_Util.f90
    603 ! Time                 : Tue Mar  5 11:50:53 2019
    604 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190305/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     599! Time                 : Fri Mar  8 19:01:03 2019
     600! Working directory    : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    605601! Equation file        : chem_gasphase_mod.kpp
    606602! Output root filename : chem_gasphase_mod
    … …  
    722718
    723719
    724   INTEGER         :: j, k
     720 INTEGER         :: k
    725721
    726722  INTEGER :: i
    … …  
    768764   INTEGER       :: icntrl(20), istatus(20), ierr
    769765
    770    INTEGER, SAVE :: ntotal = 0
    771766
    772767   icntrl(:) = 0
    … …  
    11651160  REAL(dp), DIMENSION(:), INTENT(IN):: c
    11661161
    1167   write(6,*) 'ERROR in chem_gasphase_mod ',ierr,C(1)
     1162  write(6,*) 'ERROR in chem_gasphase_mod ',ierr,C(1),PE
    11681163
    11691164
    … …  
    24742469                                                                     
    24752470    INTEGER  :: ier                                                   
    2476     REAL(kind=dp):: jvs(lu_nonzero), w(nvar), a             
    2477     INTEGER  :: k, kk, j, jj                                         
     2471    REAL(kind=dp):: jvs(lu_nonzero), a                         
    24782472                                                                     
    24792473    a = 0.                                                           
    … …  
    25822576  INTEGER, DIMENSION(20)                :: istatus_u               
    25832577  INTEGER                                :: ierr_u                 
    2584   INTEGER                                :: istatf                 
    25852578  INTEGER                                :: vl_dim_lo               
    25862579                                                                   
    … …  
    26192612                                                                   
    26202613   IF (PRESENT(l_debug) .AND. PRESENT(pe)) THEN                       
    2621       IF (l_debug) CALL error_output(conc(is, :), ierr_u, pe)         
     2614      IF (l_debug) CALL error_output(conc(is, :), ierr_u, pe)           
    26222615   ENDIF                                                             
    26232616                                                                     
Note: See TracChangeset for help on using the changeset viewer.
                                                                                                                                                                                                                                                                                                                                                                               
  | Impressum | ©Leibniz Universität Hannover |