Home


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

Changeset 3799 for palm/trunk/UTIL


Ignore:
Timestamp:
Mar 15, 2019 3:36:25 PM (6 years ago)
Author:
forkel
Message:

editing in kpp4palm: add statements for avoiding unused variables, remove $Id

Location:
palm/trunk/UTIL/chemistry/gasphase_preproc
Files:
23 edited

Legend:

Unmodified
Added
Removed

  • palm/trunk/UTIL/chemistry/gasphase_preproc/kpp4palm/bin/kpp4palm.ksh

    r3780 r3799  
    4040# -----------------
    4141# $Id$
     42# Removed edit of phot(nphot) for version edit phot(nphot), now done in fortran_file.C (15.03.2019, forkel)
     43# Editing with sed to add dummy statements toavoud unused variables
     44#
     45# 3780 2019-03-05 11:19:45Z forkel
    4246# forkel   05. March 2019: cs_mech and set_cm
    4347# forkel   30. Oktober 2018: Integrating contents of kp4_compress into chem_gasphase_mod.f90
    … …  
    337341$BASE/bin/kpp4palm.exe $PREFIX $MODE $VLEN $DE_INDEX $DE_INDEX_FAST
    338342
    339 #Prelimanary, substitution has to be moved into kpp4palm.exe
     343# Add dummy statements in order to prevent warnings due to unused variables
     344#
     345sed -i -e '/cfactor =/a !  ' kk_kpp.f90
     346sed -i -e '/cfactor =/a    IF ( lu_crow(1) == 1  .OR.  lu_icol(1) == 1  .OR.  lu_irow(1) == 1 )  CONTINUE ' kk_kpp.f90
     347sed -i -e '/cfactor =/a ! Following line is just to avoid compiler message about unused variables' kk_kpp.f90
     348sed -i -e '/cfactor =/a !  ' kk_kpp.f90
     349
    340350if [[ $MODE = "vector" ]]
    341351then
    342   sed -i -e 's/phot(nphot/phot(vl_dim,nphot/g' kk_kpp.f90
    343 fi
     352sed -i -e '/! Computation of equation rates/i ! Following line is just to avoid compiler message about unused variables' kk_kpp.f90
     353sed -i -e '/! Computation of equation rates/i IF ( f(vl,nfix) > 0.0_dp )  CONTINUE' kk_kpp.f90
     354sed -i -e '/! Computation of equation rates/i !  ' kk_kpp.f90
     355else
     356sed -i -e '/! Computation of equation rates/i ! Following line is just to avoid compiler message about unused variables' kk_kpp.f90
     357sed -i -e '/! Computation of equation rates/i IF ( f(nfix) > 0.0_dp )  CONTINUE' kk_kpp.f90
     358sed -i -e '/! Computation of equation rates/i !  ' kk_kpp.f90
     359fi
     360
     361if [[ $MODE = "vector" ]]
     362then
     363sed -i -e '/REAL(kind=dp) :: b/a   IF ( f(vl,nfix) > 0.0_dp )  CONTINUE' kk_kpp.f90
     364sed -i -e '/REAL(kind=dp) :: b/a ! Following line is just to avoid compiler message about unused variables' kk_kpp.f90
     365sed -i -e '/REAL(kind=dp):: b/a !' kk_kpp.f90
     366else
     367sed -i -e '/REAL(kind=dp):: b/a   IF ( f(nfix) > 0.0_dp )  CONTINUE' kk_kpp.f90
     368sed -i -e '/REAL(kind=dp):: b/a ! Following line is just to avoid compiler message about unused variables' kk_kpp.f90
     369sed -i -e '/REAL(kind=dp):: b/a !' kk_kpp.f90
     370fi
     371
     372sed -i -e '/one=1.0_dp/a       IF ( incx == 0 )  CONTINUE' kk_kpp.f90
     373sed -i -e '/one=1.0_dp/a ! Following line is just to avoid compiler message about unused variables' kk_kpp.f90
     374sed -i -e '/one=1.0_dp/a !  ' kk_kpp.f90
     375
     376sed -i -e '/IF (alpha .eq. zero)RETURN/i !  ' kk_kpp.f90
     377sed -i -e '/IF (alpha .eq. zero)RETURN/i ! Following line is just to avoid compiler message about unused variables' kk_kpp.f90
     378sed -i -e '/IF (alpha .eq. zero)RETURN/i     IF ( incx == 0  .OR.  incy == 0 )  CONTINUE' kk_kpp.f90
     379
     380sed -i -e '/INTENT(INOUT):: b(n)/a       IF ( pivot(1) == 0 )  CONTINUE' kk_kpp.f90
     381sed -i -e '/INTENT(INOUT):: b(n)/a ! Following line is just to avoid compiler message about unused variables' kk_kpp.f90
     382sed -i -e '/INTENT(INOUT):: b(n)/a !  ' kk_kpp.f90
    344383
    345384if [[ -e $OUTDIR/${OUTFILE}.f90 ]]

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

    r3797 r3799  
    99//
    1010// ############################################################################
    11 //
    12 //Current revisions:
    13 //------------------
    1411//
    1512//
    1613//Former revisions:
    1714//-----------------
    18 //$Id: create_kpp_module.C 3453 2018-10-30 13:21:51Z forkel $
     15// Deleted $Id since document_changes does not work for C and C++         (15.03.2019, forkel)
     16//
    1917// OpenMP version    (15.03.2019, ketelsen)
    2018//
    … …  
    199197   generate_module_header();
    200198
    201 // create_set_cs
     199// Create subroutine to communicate mechanism name to other modules
    202200   create_set_cs();
    203201

  • palm/trunk/UTIL/chemistry/gasphase_preproc/kpp4palm/src/create_kpp_module.h

    r3780 r3799  
    1818// Former revisions:
    1919// -----------------------
    20 // $Id$
    21 // forkel   22.02.2019: Added create_set_cs
    22 // ketelsen 18.09.2018: Removed create_fill_routine
     20// Deleted $Id since document_changes does not work for C and C++         (15.03.2019, forkel)
     21//
     22// Added create_set_cs   (22.02.2019, forkel)
     23//
     24// Removed create_fill_routine   (18.09.2018, ketelsen)
    2325//
    2426// initial version                                  (Nov. 2016, ketelsen)

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

    r3789 r3799  
    99//
    1010// ############################################################################
    11 //Current revisions:
    12 //------------------
    1311//
    1412//
    1513// Former revisions:
    1614// -----------------------
    17 // $Id: expand_decomp.C 3327 2018-10-09 19:55:00Z forkel $
     15// Deleted $Id since document_changes does not work for C and C++   (15.03.2019, forkel)
    1816//
    1917// Added switch for de-indexing == 2 (W is not needed then)       (08.03.2019, forkel)

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

    r3458 r3799  
    1111//
    1212// ############################################################################
    13 //Current revisions:
    14 //------------------
    1513//
    1614//
    1715// Former revisions:
    1816// -----------------------
    19 // $Id: expand_decomp.h 3327 2018-10-09 19:55:00Z forkel $
     17// Deleted $Id since document_changes does not work for C and C++   (15.03.2019, forkel)
    2018//
    2119// initial version                                  (Nov. 2016, ketelsen)

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

    r3797 r3799  
    1111//
    1212//
    13 //Current revisions:
    14 //------------------
    15 //
    16 //
    1713//Former revisions:
    1814//-----------------
    19 //$Id:
     15// Deleted $Id since document_changes does not work for C and C++   (15.03.2019, forkel)
     16//
     17// For vector version edit phot(nphot) - was before done in kpp4pal.ksh (15.03.2019, forkel)
     18//
    2019// OpenMP version    (15.03.2019, ketelsen)
    2120//
    … …  
    676675//  Replace Roundoff = WLAMCH('E') since WLAMCH does not work everywhere
    677676       ip->global_substitute("Roundoff = WLAMCH('E')","roundoff = epsilon(one)");
     677//  For vector version edit  phot(nphot) from INLINE in chem_gasphase_mod.kpp
     678    if(kpp_switches.is_vector()) {
     679        ip->global_substitute("phot(nphot)","phot(vl_dim,nphot)");
     680    }
    678681
    679682// Now do some cosmetics to adapt the KPP generated output a bit o the looks of PALM,

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

    r3458 r3799  
    1212// ############################################################################
    1313//
    14 //Current revisions:
    15 //------------------
    16 //
    1714//
    1815// Former revisions:
    1916// -----------------------
    20 // $Id: fortran_file.h 3327 2018-10-09 19:55:00Z forkel $
     17// Deleted $Id since document_changes does not work for C and C++         (15.03.2019, forkel)
    2118//
    2219// added edit_Initialize                            (Sept.2018, forkel)

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

    r3458 r3799  
    44//     create_mz_kpp_module
    55//
    6 //     create scalar code from .f90 sources created by KPP to be used in MESSy
     6//     create scalar code from .f90 sources created by KPP to be used in PALM4U
    77//
    8 //     COPYRIGHT Klaus Ketelsen and MPI-CH   April 2007
     8//     COPYRIGHT Klaus Ketelsen and MPI-CH   April 2007,
     9//               Klaus Ketelsen, 2016
    910//
    1011// ############################################################################
    1112//
    12 //Current revisions:
    13 //------------------
    14 //
    15 //
    1613// Former revisions:
    1714// -----------------------
    18 // $Id: main.C 3327 2018-10-09 19:55:00Z forkel $
     15// Deleded $Id since document_changes does not work for C and C++         (15.03.2019, forkel)
    1916//
    2017// initial version       (Nov. 2016, ketelsen)
    … …  
    3532
    3633   cout << "####################################################" <<endl ;
    37    cout << "###             KP4 = KPP POST PROCESSOR         ###" <<endl ;
    38    cout << "###                   Version 1.0                ###" <<endl ;
     34   cout << "###        KPP4PALM = KPP POST PROCESSOR         ###" <<endl ;
     35   cout << "###               KP4 Version 1.0                ###" <<endl ;
    3936   cout << "### (C) by Klaus Ketelsen and MPI-CH, April 2007 ###" <<endl ;
     37   cout << "###               KPP4PALM                       ###" <<endl ;
     38   cout << "### (C) by Klaus Ketelsen, November 2016         ###" <<endl ;
    4039   cout << "####################################################" <<endl ;
    4140
    … …  
    7170
    7271   cout << "####################################################" <<endl ;
    73    cout << "###                END OF KP4                    ###" <<endl ;
     72   cout << "###                END OF KPP4PALM               ###" <<endl ;
    7473   cout << "####################################################" <<endl ;
    7574

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

    r3458 r3799  
    1010// ############################################################################
    1111//
    12 //Current revisions:
    13 //------------------
    14 //
    1512//
    1613// Former revisions:
    1714// -----------------------
    18 // $Id: program_line.C 3327 2018-10-09 19:55:00Z forkel $
     15// Deleted $Id since document_changes does not work for C and C++   (15.03.2019, forkel)
    1916//
    2017// global_subtolower     (June 2018, forkel)

  • palm/trunk/UTIL/chemistry/gasphase_preproc/kpp4palm/src/program_line.h

    r3458 r3799  
    1212// ############################################################################
    1313//
    14 //Current revisions:
    15 //------------------
    16 //
    1714//
    1815// Former revisions:
    1916// -----------------------
    20 // $Id: program_line.h 3327 2018-10-09 19:55:00Z forkel $
     17// Deleted $Id since document_changes does not work for C and C++   (15.03.2019, forkel)
    2118//
    2219// added    void   global_subtolower(string &line); (June 2018, forkel)

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

    r3458 r3799  
    1010// ############################################################################
    1111//
    12 //Current revisions:
    13 //------------------
    14 //
    1512//
    1613// Former revisions:
    1714// -----------------------
    18 // $Id: utils.C 3327 2018-10-09 19:55:00Z forkel $
     15// Deleted $Id since document_changes does not work for C and C++   (15.03.2019, forkel)
    1916//
    2017// initial version                                  (Nov. 2016, ketelsen)

  • palm/trunk/UTIL/chemistry/gasphase_preproc/kpp4palm/src/utils.h

    r3458 r3799  
    1212// ############################################################################
    1313//
    14 //Current revisions:
    15 //------------------
    16 //
    1714//
    1815// Former revisions:
    1916// -----------------------
    20 // $Id: utils.h 3327 2018-10-09 19:55:00Z forkel $
     17// Deleted $Id since document_changes does not work for C and C++   (15.03.2019, forkel)
    2118//
    2219// initial version                                  (Nov. 2016, ketelsen)

  • palm/trunk/UTIL/chemistry/gasphase_preproc/mechanisms/def_cbm4/chem_gasphase_mod.f90

    r3789 r3799  
    9898                                                                 
    9999  LOGICAL                     :: data_loaded = .FALSE.             
     100  REAL(dp), POINTER, DIMENSION(:), CONTIGUOUS    :: var             
    100101! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
    101102!
    … …  
    113114!
    114115! File                 : chem_gasphase_mod_Parameters.f90
    115 ! Time                 : Fri Mar  8 19:00:59 2019
    116 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     116! Time                 : Fri Mar 15 16:28:21 2019
     117! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    117118! Equation file        : chem_gasphase_mod.kpp
    118119! Output root filename : chem_gasphase_mod
    … …  
    220221!
    221222! File                 : chem_gasphase_mod_Global.f90
    222 ! Time                 : Fri Mar  8 19:00:59 2019
    223 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     223! Time                 : Fri Mar 15 16:28:21 2019
     224! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    224225! Equation file        : chem_gasphase_mod.kpp
    225226! Output root filename : chem_gasphase_mod
    … …  
    235236
    236237! C - Concentration of all species
    237   REAL(kind=dp):: c(nspec)
     238  REAL(kind=dp), TARGET    :: c(nspec)
    238239! VAR - Concentrations of variable species (global)
    239   REAL(kind=dp):: var(nvar)
     240! REAL(kind=dp):: var(nvar)  var is now POINTER
    240241! FIX - Concentrations of fixed species (global)
    241242  REAL(kind=dp):: fix(nfix)
    242243! VAR,FIX are chunks of array C
    243       EQUIVALENCE( c(1), var(1))
    244       EQUIVALENCE( c(33), fix(1))
    245244! RCONST - Rate constants (global)
    246245  REAL(kind=dp):: rconst(nreact)
    … …  
    287286!
    288287! File                 : chem_gasphase_mod_JacobianSP.f90
    289 ! Time                 : Fri Mar  8 19:00:59 2019
    290 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     288! Time                 : Fri Mar 15 16:28:21 2019
     289! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    291290! Equation file        : chem_gasphase_mod.kpp
    292291! Output root filename : chem_gasphase_mod
    … …  
    383382!
    384383! File                 : chem_gasphase_mod_Monitor.f90
    385 ! Time                 : Fri Mar  8 19:00:59 2019
    386 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     384! Time                 : Fri Mar 15 16:28:21 2019
     385! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    387386! Equation file        : chem_gasphase_mod.kpp
    388387! Output root filename : chem_gasphase_mod
    … …  
    546545!
    547546! File                 : chem_gasphase_mod_Initialize.f90
    548 ! Time                 : Fri Mar  8 19:00:59 2019
    549 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     547! Time                 : Fri Mar 15 16:28:21 2019
     548! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    550549! Equation file        : chem_gasphase_mod.kpp
    551550! Output root filename : chem_gasphase_mod
    … …  
    572571!
    573572! File                 : chem_gasphase_mod_Integrator.f90
    574 ! Time                 : Fri Mar  8 19:00:59 2019
    575 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     573! Time                 : Fri Mar 15 16:28:21 2019
     574! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    576575! Equation file        : chem_gasphase_mod.kpp
    577576! Output root filename : chem_gasphase_mod
    … …  
    630629!
    631630! File                 : chem_gasphase_mod_LinearAlgebra.f90
    632 ! Time                 : Fri Mar  8 19:00:59 2019
    633 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     631! Time                 : Fri Mar 15 16:28:21 2019
     632! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    634633! Equation file        : chem_gasphase_mod.kpp
    635634! Output root filename : chem_gasphase_mod
    … …  
    657656!
    658657! File                 : chem_gasphase_mod_Jacobian.f90
    659 ! Time                 : Fri Mar  8 19:00:59 2019
    660 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     658! Time                 : Fri Mar 15 16:28:21 2019
     659! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    661660! Equation file        : chem_gasphase_mod.kpp
    662661! Output root filename : chem_gasphase_mod
    … …  
    684683!
    685684! File                 : chem_gasphase_mod_Function.f90
    686 ! Time                 : Fri Mar  8 19:00:59 2019
    687 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     685! Time                 : Fri Mar 15 16:28:21 2019
     686! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    688687! Equation file        : chem_gasphase_mod.kpp
    689688! Output root filename : chem_gasphase_mod
    … …  
    713712!
    714713! File                 : chem_gasphase_mod_Rates.f90
    715 ! Time                 : Fri Mar  8 19:00:59 2019
    716 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     714! Time                 : Fri Mar 15 16:28:21 2019
     715! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    717716! Equation file        : chem_gasphase_mod.kpp
    718717! Output root filename : chem_gasphase_mod
    … …  
    739738!
    740739! File                 : chem_gasphase_mod_Util.f90
    741 ! Time                 : Fri Mar  8 19:00:59 2019
    742 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     740! Time                 : Fri Mar 15 16:28:21 2019
     741! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    743742! Equation file        : chem_gasphase_mod.kpp
    744743! Output root filename : chem_gasphase_mod
    … …  
    855854 
    856855 
     856  ! openmp directives generated by kp4
     857 
     858  !$OMP THREADPRIVATE (vl, vl_glo, is, ie, data_loaded)
     859  !$OMP THREADPRIVATE (c, var, fix, rconst, time, temp, stepmin, cfactor)
     860  !$OMP THREADPRIVATE (qvap, fakt, cs_mech, a, icntrl, rcntrl)
     861 
    857862 CONTAINS
    858863 
    … …  
    866871  k = is
    867872  cfactor = 1.000000e+00_dp
     873! 
     874! Following line is just to avoid compiler message about unused variables
     875IF ( lu_crow(1) == 1  .OR.  lu_icol(1) == 1  .OR.  lu_irow(1) == 1 )  CONTINUE
     876! 
    868877
    869878  x = (0.) * cfactor
    … …  
    953962
    954963
     964! Following line is just to avoid compiler message about unused variables
     965IF ( f(nfix) > 0.0_dp )  CONTINUE
     966! 
    955967! Computation of equation rates
    956968  a(1) = rct(1) * v(26)
    … …  
    12071219! B - Temporary array
    12081220  REAL(kind=dp):: b(138)
     1221!
     1222! Following line is just to avoid compiler message about unused variables
     1223IF ( f(nfix) > 0.0_dp )  CONTINUE
    12091224
    12101225! B(1) = dA(1)/dV(26)
    … …  
    22732288      REAL(kind=dp) :: x(n), alpha
    22742289      REAL(kind=dp), PARAMETER  :: zero=0.0_dp, one=1.0_dp
     2290! 
     2291! Following line is just to avoid compiler message about unused variables
     2292IF ( incx == 0 )  CONTINUE
    22752293
    22762294      IF (alpha .eq. one)RETURN
    … …  
    23362354      REAL(kind=dp), PARAMETER :: zero = 0.0_dp
    23372355
     2356! 
     2357! Following line is just to avoid compiler message about unused variables
     2358IF ( incx == 0  .OR.  incy == 0 )  CONTINUE
    23382359      IF (alpha .eq. zero)RETURN
    23392360      IF (n .le. 0)RETURN
    … …  
    30683089!~~~> inout variables
    30693090   REAL(kind=dp), INTENT(INOUT):: b(n)
     3091! 
     3092! Following line is just to avoid compiler message about unused variables
     3093IF ( pivot(1) == 0 )  CONTINUE
    30703094
    30713095#ifdef full_algebra   
    … …  
    39874011  IF (PRESENT (rcntrl_i)) rcntrl  = rcntrl_i                     
    39884012                                                                   
     4013  var => c(1:nvar)                                                 
     4014                                                                   
    39894015  vl_glo = size(tempi, 1)                                           
    39904016                                                                   

  • palm/trunk/UTIL/chemistry/gasphase_preproc/mechanisms/def_passive/chem_gasphase_mod.f90

    r3789 r3799  
    9898                                                                 
    9999  LOGICAL                     :: data_loaded = .FALSE.             
     100  REAL(dp), POINTER, DIMENSION(:), CONTIGUOUS    :: var             
    100101! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
    101102!
    … …  
    113114!
    114115! File                 : chem_gasphase_mod_Parameters.f90
    115 ! Time                 : Fri Mar  8 19:00:59 2019
    116 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     116! Time                 : Fri Mar 15 16:28:22 2019
     117! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    117118! Equation file        : chem_gasphase_mod.kpp
    118119! Output root filename : chem_gasphase_mod
    … …  
    188189!
    189190! File                 : chem_gasphase_mod_Global.f90
    190 ! Time                 : Fri Mar  8 19:00:59 2019
    191 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     191! Time                 : Fri Mar 15 16:28:22 2019
     192! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    192193! Equation file        : chem_gasphase_mod.kpp
    193194! Output root filename : chem_gasphase_mod
    … …  
    203204
    204205! C - Concentration of all species
    205   REAL(kind=dp):: c(nspec)
     206  REAL(kind=dp), TARGET    :: c(nspec)
    206207! VAR - Concentrations of variable species (global)
    207   REAL(kind=dp):: var(nvar)
     208! REAL(kind=dp):: var(nvar)  var is now POINTER
    208209! FIX - Concentrations of fixed species (global)
    209210  REAL(kind=dp):: fix(nfix)
    210211! VAR,FIX are chunks of array C
    211       EQUIVALENCE( c(1), var(1))
    212212! RCONST - Rate constants (global)
    213213  REAL(kind=dp):: rconst(nreact)
    … …  
    254254!
    255255! File                 : chem_gasphase_mod_JacobianSP.f90
    256 ! Time                 : Fri Mar  8 19:00:59 2019
    257 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     256! Time                 : Fri Mar 15 16:28:22 2019
     257! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    258258! Equation file        : chem_gasphase_mod.kpp
    259259! Output root filename : chem_gasphase_mod
    … …  
    298298!
    299299! File                 : chem_gasphase_mod_Monitor.f90
    300 ! Time                 : Fri Mar  8 19:00:59 2019
    301 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     300! Time                 : Fri Mar 15 16:28:22 2019
     301! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    302302! Equation file        : chem_gasphase_mod.kpp
    303303! Output root filename : chem_gasphase_mod
    … …  
    358358!
    359359! File                 : chem_gasphase_mod_Initialize.f90
    360 ! Time                 : Fri Mar  8 19:00:59 2019
    361 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     360! Time                 : Fri Mar 15 16:28:22 2019
     361! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    362362! Equation file        : chem_gasphase_mod.kpp
    363363! Output root filename : chem_gasphase_mod
    … …  
    384384!
    385385! File                 : chem_gasphase_mod_Integrator.f90
    386 ! Time                 : Fri Mar  8 19:00:59 2019
    387 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     386! Time                 : Fri Mar 15 16:28:22 2019
     387! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    388388! Equation file        : chem_gasphase_mod.kpp
    389389! Output root filename : chem_gasphase_mod
    … …  
    442442!
    443443! File                 : chem_gasphase_mod_LinearAlgebra.f90
    444 ! Time                 : Fri Mar  8 19:00:59 2019
    445 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     444! Time                 : Fri Mar 15 16:28:22 2019
     445! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    446446! Equation file        : chem_gasphase_mod.kpp
    447447! Output root filename : chem_gasphase_mod
    … …  
    469469!
    470470! File                 : chem_gasphase_mod_Jacobian.f90
    471 ! Time                 : Fri Mar  8 19:00:59 2019
    472 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     471! Time                 : Fri Mar 15 16:28:22 2019
     472! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    473473! Equation file        : chem_gasphase_mod.kpp
    474474! Output root filename : chem_gasphase_mod
    … …  
    496496!
    497497! File                 : chem_gasphase_mod_Function.f90
    498 ! Time                 : Fri Mar  8 19:00:59 2019
    499 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     498! Time                 : Fri Mar 15 16:28:22 2019
     499! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    500500! Equation file        : chem_gasphase_mod.kpp
    501501! Output root filename : chem_gasphase_mod
    … …  
    525525!
    526526! File                 : chem_gasphase_mod_Rates.f90
    527 ! Time                 : Fri Mar  8 19:00:59 2019
    528 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     527! Time                 : Fri Mar 15 16:28:22 2019
     528! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    529529! Equation file        : chem_gasphase_mod.kpp
    530530! Output root filename : chem_gasphase_mod
    … …  
    551551!
    552552! File                 : chem_gasphase_mod_Util.f90
    553 ! Time                 : Fri Mar  8 19:00:59 2019
    554 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     553! Time                 : Fri Mar 15 16:28:22 2019
     554! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    555555! Equation file        : chem_gasphase_mod.kpp
    556556! Output root filename : chem_gasphase_mod
    … …  
    667667 
    668668 
     669  ! openmp directives generated by kp4
     670 
     671  !$OMP THREADPRIVATE (vl, vl_glo, is, ie, data_loaded)
     672  !$OMP THREADPRIVATE (c, var, fix, rconst, time, temp, stepmin, cfactor)
     673  !$OMP THREADPRIVATE (qvap, fakt, cs_mech, a, icntrl, rcntrl)
     674 
    669675 CONTAINS
    670676 
    … …  
    678684  k = is
    679685  cfactor = 1.000000e+00_dp
     686! 
     687! Following line is just to avoid compiler message about unused variables
     688IF ( lu_crow(1) == 1  .OR.  lu_icol(1) == 1  .OR.  lu_irow(1) == 1 )  CONTINUE
     689! 
    680690
    681691  x = (0.) * cfactor
    … …  
    763773
    764774
     775! Following line is just to avoid compiler message about unused variables
     776IF ( f(nfix) > 0.0_dp )  CONTINUE
     777! 
    765778! Computation of equation rates
    766779
    … …  
    798811! B - Temporary array
    799812  REAL(kind=dp):: b(2)
     813!
     814! Following line is just to avoid compiler message about unused variables
     815IF ( f(nfix) > 0.0_dp )  CONTINUE
    800816
    801817! B(1) = dA(1)/dV(1)
    … …  
    921937      REAL(kind=dp) :: x(n), alpha
    922938      REAL(kind=dp), PARAMETER  :: zero=0.0_dp, one=1.0_dp
     939! 
     940! Following line is just to avoid compiler message about unused variables
     941IF ( incx == 0 )  CONTINUE
    923942
    924943      IF (alpha .eq. one)RETURN
    … …  
    9841003      REAL(kind=dp), PARAMETER :: zero = 0.0_dp
    9851004
     1005! 
     1006! Following line is just to avoid compiler message about unused variables
     1007IF ( incx == 0  .OR.  incy == 0 )  CONTINUE
    9861008      IF (alpha .eq. zero)RETURN
    9871009      IF (n .le. 0)RETURN
    … …  
    17161738!~~~> inout variables
    17171739   REAL(kind=dp), INTENT(INOUT):: b(n)
     1740! 
     1741! Following line is just to avoid compiler message about unused variables
     1742IF ( pivot(1) == 0 )  CONTINUE
    17181743
    17191744#ifdef full_algebra   
    … …  
    22662291  IF (PRESENT (rcntrl_i)) rcntrl  = rcntrl_i                     
    22672292                                                                   
     2293  var => c(1:nvar)                                                 
     2294                                                                   
    22682295  vl_glo = size(tempi, 1)                                           
    22692296                                                                   

  • palm/trunk/UTIL/chemistry/gasphase_preproc/mechanisms/def_passive1/chem_gasphase_mod.f90

    r3789 r3799  
    9898                                                                 
    9999  LOGICAL                     :: data_loaded = .FALSE.             
     100  REAL(dp), POINTER, DIMENSION(:), CONTIGUOUS    :: var             
    100101! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
    101102!
    … …  
    113114!
    114115! File                 : chem_gasphase_mod_Parameters.f90
    115 ! Time                 : Fri Mar  8 19:01:00 2019
    116 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     116! Time                 : Fri Mar 15 16:28:23 2019
     117! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    117118! Equation file        : chem_gasphase_mod.kpp
    118119! Output root filename : chem_gasphase_mod
    … …  
    187188!
    188189! File                 : chem_gasphase_mod_Global.f90
    189 ! Time                 : Fri Mar  8 19:01:00 2019
    190 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     190! Time                 : Fri Mar 15 16:28:23 2019
     191! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    191192! Equation file        : chem_gasphase_mod.kpp
    192193! Output root filename : chem_gasphase_mod
    … …  
    202203
    203204! C - Concentration of all species
    204   REAL(kind=dp):: c(nspec)
     205  REAL(kind=dp), TARGET    :: c(nspec)
    205206! VAR - Concentrations of variable species (global)
    206   REAL(kind=dp):: var(nvar)
     207! REAL(kind=dp):: var(nvar)  var is now POINTER
    207208! FIX - Concentrations of fixed species (global)
    208209  REAL(kind=dp):: fix(nfix)
    209210! VAR,FIX are chunks of array C
    210       EQUIVALENCE( c(1), var(1))
    211211! RCONST - Rate constants (global)
    212212  REAL(kind=dp):: rconst(nreact)
    … …  
    253253!
    254254! File                 : chem_gasphase_mod_JacobianSP.f90
    255 ! Time                 : Fri Mar  8 19:01:00 2019
    256 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     255! Time                 : Fri Mar 15 16:28:23 2019
     256! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    257257! Equation file        : chem_gasphase_mod.kpp
    258258! Output root filename : chem_gasphase_mod
    … …  
    297297!
    298298! File                 : chem_gasphase_mod_Monitor.f90
    299 ! Time                 : Fri Mar  8 19:01:00 2019
    300 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     299! Time                 : Fri Mar 15 16:28:23 2019
     300! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    301301! Equation file        : chem_gasphase_mod.kpp
    302302! Output root filename : chem_gasphase_mod
    … …  
    356356!
    357357! File                 : chem_gasphase_mod_Initialize.f90
    358 ! Time                 : Fri Mar  8 19:01:00 2019
    359 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     358! Time                 : Fri Mar 15 16:28:23 2019
     359! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    360360! Equation file        : chem_gasphase_mod.kpp
    361361! Output root filename : chem_gasphase_mod
    … …  
    382382!
    383383! File                 : chem_gasphase_mod_Integrator.f90
    384 ! Time                 : Fri Mar  8 19:01:00 2019
    385 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     384! Time                 : Fri Mar 15 16:28:23 2019
     385! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    386386! Equation file        : chem_gasphase_mod.kpp
    387387! Output root filename : chem_gasphase_mod
    … …  
    440440!
    441441! File                 : chem_gasphase_mod_LinearAlgebra.f90
    442 ! Time                 : Fri Mar  8 19:01:00 2019
    443 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     442! Time                 : Fri Mar 15 16:28:23 2019
     443! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    444444! Equation file        : chem_gasphase_mod.kpp
    445445! Output root filename : chem_gasphase_mod
    … …  
    467467!
    468468! File                 : chem_gasphase_mod_Jacobian.f90
    469 ! Time                 : Fri Mar  8 19:01:00 2019
    470 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     469! Time                 : Fri Mar 15 16:28:23 2019
     470! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    471471! Equation file        : chem_gasphase_mod.kpp
    472472! Output root filename : chem_gasphase_mod
    … …  
    494494!
    495495! File                 : chem_gasphase_mod_Function.f90
    496 ! Time                 : Fri Mar  8 19:01:00 2019
    497 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     496! Time                 : Fri Mar 15 16:28:23 2019
     497! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    498498! Equation file        : chem_gasphase_mod.kpp
    499499! Output root filename : chem_gasphase_mod
    … …  
    523523!
    524524! File                 : chem_gasphase_mod_Rates.f90
    525 ! Time                 : Fri Mar  8 19:01:00 2019
    526 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     525! Time                 : Fri Mar 15 16:28:23 2019
     526! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    527527! Equation file        : chem_gasphase_mod.kpp
    528528! Output root filename : chem_gasphase_mod
    … …  
    549549!
    550550! File                 : chem_gasphase_mod_Util.f90
    551 ! Time                 : Fri Mar  8 19:01:00 2019
    552 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     551! Time                 : Fri Mar 15 16:28:23 2019
     552! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    553553! Equation file        : chem_gasphase_mod.kpp
    554554! Output root filename : chem_gasphase_mod
    … …  
    665665 
    666666 
     667  ! openmp directives generated by kp4
     668 
     669  !$OMP THREADPRIVATE (vl, vl_glo, is, ie, data_loaded)
     670  !$OMP THREADPRIVATE (c, var, fix, rconst, time, temp, stepmin, cfactor)
     671  !$OMP THREADPRIVATE (qvap, fakt, cs_mech, a, icntrl, rcntrl)
     672 
    667673 CONTAINS
    668674 
    … …  
    676682  k = is
    677683  cfactor = 1.000000e+00_dp
     684! 
     685! Following line is just to avoid compiler message about unused variables
     686IF ( lu_crow(1) == 1  .OR.  lu_icol(1) == 1  .OR.  lu_irow(1) == 1 )  CONTINUE
     687! 
    678688
    679689  x = (0.) * cfactor
    … …  
    761771
    762772
     773! Following line is just to avoid compiler message about unused variables
     774IF ( f(nfix) > 0.0_dp )  CONTINUE
     775! 
    763776! Computation of equation rates
    764777
    … …  
    794807! B - Temporary array
    795808  REAL(kind=dp):: b(1)
     809!
     810! Following line is just to avoid compiler message about unused variables
     811IF ( f(nfix) > 0.0_dp )  CONTINUE
    796812
    797813! B(1) = dA(1)/dV(1)
    … …  
    912928      REAL(kind=dp) :: x(n), alpha
    913929      REAL(kind=dp), PARAMETER  :: zero=0.0_dp, one=1.0_dp
     930! 
     931! Following line is just to avoid compiler message about unused variables
     932IF ( incx == 0 )  CONTINUE
    914933
    915934      IF (alpha .eq. one)RETURN
    … …  
    975994      REAL(kind=dp), PARAMETER :: zero = 0.0_dp
    976995
     996! 
     997! Following line is just to avoid compiler message about unused variables
     998IF ( incx == 0  .OR.  incy == 0 )  CONTINUE
    977999      IF (alpha .eq. zero)RETURN
    9781000      IF (n .le. 0)RETURN
    … …  
    17071729!~~~> inout variables
    17081730   REAL(kind=dp), INTENT(INOUT):: b(n)
     1731! 
     1732! Following line is just to avoid compiler message about unused variables
     1733IF ( pivot(1) == 0 )  CONTINUE
    17091734
    17101735#ifdef full_algebra   
    … …  
    22562281  IF (PRESENT (rcntrl_i)) rcntrl  = rcntrl_i                     
    22572282                                                                   
     2283  var => c(1:nvar)                                                 
     2284                                                                   
    22582285  vl_glo = size(tempi, 1)                                           
    22592286                                                                   

  • palm/trunk/UTIL/chemistry/gasphase_preproc/mechanisms/def_phstat/chem_gasphase_mod.f90

    r3789 r3799  
    9898                                                                 
    9999  LOGICAL                     :: data_loaded = .FALSE.             
     100  REAL(dp), POINTER, DIMENSION(:), CONTIGUOUS    :: var             
    100101! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
    101102!
    … …  
    113114!
    114115! File                 : chem_gasphase_mod_Parameters.f90
    115 ! Time                 : Fri Mar  8 19:01:00 2019
    116 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     116! Time                 : Fri Mar 15 16:28:24 2019
     117! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    117118! Equation file        : chem_gasphase_mod.kpp
    118119! Output root filename : chem_gasphase_mod
    … …  
    189190!
    190191! File                 : chem_gasphase_mod_Global.f90
    191 ! Time                 : Fri Mar  8 19:01:00 2019
    192 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     192! Time                 : Fri Mar 15 16:28:24 2019
     193! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    193194! Equation file        : chem_gasphase_mod.kpp
    194195! Output root filename : chem_gasphase_mod
    … …  
    204205
    205206! C - Concentration of all species
    206   REAL(kind=dp):: c(nspec)
     207  REAL(kind=dp), TARGET    :: c(nspec)
    207208! VAR - Concentrations of variable species (global)
    208   REAL(kind=dp):: var(nvar)
     209! REAL(kind=dp):: var(nvar)  var is now POINTER
    209210! FIX - Concentrations of fixed species (global)
    210211  REAL(kind=dp):: fix(nfix)
    211212! VAR,FIX are chunks of array C
    212       EQUIVALENCE( c(1), var(1))
    213213! RCONST - Rate constants (global)
    214214  REAL(kind=dp):: rconst(nreact)
    … …  
    255255!
    256256! File                 : chem_gasphase_mod_JacobianSP.f90
    257 ! Time                 : Fri Mar  8 19:01:00 2019
    258 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     257! Time                 : Fri Mar 15 16:28:24 2019
     258! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    259259! Equation file        : chem_gasphase_mod.kpp
    260260! Output root filename : chem_gasphase_mod
    … …  
    299299!
    300300! File                 : chem_gasphase_mod_Monitor.f90
    301 ! Time                 : Fri Mar  8 19:01:00 2019
    302 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     301! Time                 : Fri Mar 15 16:28:24 2019
     302! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    303303! Equation file        : chem_gasphase_mod.kpp
    304304! Output root filename : chem_gasphase_mod
    … …  
    359359!
    360360! File                 : chem_gasphase_mod_Initialize.f90
    361 ! Time                 : Fri Mar  8 19:01:00 2019
    362 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     361! Time                 : Fri Mar 15 16:28:24 2019
     362! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    363363! Equation file        : chem_gasphase_mod.kpp
    364364! Output root filename : chem_gasphase_mod
    … …  
    385385!
    386386! File                 : chem_gasphase_mod_Integrator.f90
    387 ! Time                 : Fri Mar  8 19:01:00 2019
    388 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     387! Time                 : Fri Mar 15 16:28:24 2019
     388! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    389389! Equation file        : chem_gasphase_mod.kpp
    390390! Output root filename : chem_gasphase_mod
    … …  
    443443!
    444444! File                 : chem_gasphase_mod_LinearAlgebra.f90
    445 ! Time                 : Fri Mar  8 19:01:00 2019
    446 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     445! Time                 : Fri Mar 15 16:28:24 2019
     446! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    447447! Equation file        : chem_gasphase_mod.kpp
    448448! Output root filename : chem_gasphase_mod
    … …  
    470470!
    471471! File                 : chem_gasphase_mod_Jacobian.f90
    472 ! Time                 : Fri Mar  8 19:01:00 2019
    473 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     472! Time                 : Fri Mar 15 16:28:24 2019
     473! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    474474! Equation file        : chem_gasphase_mod.kpp
    475475! Output root filename : chem_gasphase_mod
    … …  
    497497!
    498498! File                 : chem_gasphase_mod_Function.f90
    499 ! Time                 : Fri Mar  8 19:01:00 2019
    500 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     499! Time                 : Fri Mar 15 16:28:24 2019
     500! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    501501! Equation file        : chem_gasphase_mod.kpp
    502502! Output root filename : chem_gasphase_mod
    … …  
    526526!
    527527! File                 : chem_gasphase_mod_Rates.f90
    528 ! Time                 : Fri Mar  8 19:01:00 2019
    529 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     528! Time                 : Fri Mar 15 16:28:24 2019
     529! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    530530! Equation file        : chem_gasphase_mod.kpp
    531531! Output root filename : chem_gasphase_mod
    … …  
    552552!
    553553! File                 : chem_gasphase_mod_Util.f90
    554 ! Time                 : Fri Mar  8 19:01:00 2019
    555 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     554! Time                 : Fri Mar 15 16:28:24 2019
     555! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    556556! Equation file        : chem_gasphase_mod.kpp
    557557! Output root filename : chem_gasphase_mod
    … …  
    668668 
    669669 
     670  ! openmp directives generated by kp4
     671 
     672  !$OMP THREADPRIVATE (vl, vl_glo, is, ie, data_loaded)
     673  !$OMP THREADPRIVATE (c, var, fix, rconst, time, temp, stepmin, cfactor)
     674  !$OMP THREADPRIVATE (qvap, fakt, cs_mech, a, icntrl, rcntrl)
     675 
    670676 CONTAINS
    671677 
    … …  
    679685  k = is
    680686  cfactor = 1.000000e+00_dp
     687! 
     688! Following line is just to avoid compiler message about unused variables
     689IF ( lu_crow(1) == 1  .OR.  lu_icol(1) == 1  .OR.  lu_irow(1) == 1 )  CONTINUE
     690! 
    681691
    682692  x = (0.) * cfactor
    … …  
    764774
    765775
     776! Following line is just to avoid compiler message about unused variables
     777IF ( f(nfix) > 0.0_dp )  CONTINUE
     778! 
    766779! Computation of equation rates
    767780  a(1) = rct(1) * v(3)
    … …  
    805818! B - Temporary array
    806819  REAL(kind=dp):: b(3)
     820!
     821! Following line is just to avoid compiler message about unused variables
     822IF ( f(nfix) > 0.0_dp )  CONTINUE
    807823
    808824! B(1) = dA(1)/dV(3)
    … …  
    944960      REAL(kind=dp) :: x(n), alpha
    945961      REAL(kind=dp), PARAMETER  :: zero=0.0_dp, one=1.0_dp
     962! 
     963! Following line is just to avoid compiler message about unused variables
     964IF ( incx == 0 )  CONTINUE
    946965
    947966      IF (alpha .eq. one)RETURN
    … …  
    10071026      REAL(kind=dp), PARAMETER :: zero = 0.0_dp
    10081027
     1028! 
     1029! Following line is just to avoid compiler message about unused variables
     1030IF ( incx == 0  .OR.  incy == 0 )  CONTINUE
    10091031      IF (alpha .eq. zero)RETURN
    10101032      IF (n .le. 0)RETURN
    … …  
    17391761!~~~> inout variables
    17401762   REAL(kind=dp), INTENT(INOUT):: b(n)
     1763! 
     1764! Following line is just to avoid compiler message about unused variables
     1765IF ( pivot(1) == 0 )  CONTINUE
    17411766
    17421767#ifdef full_algebra   
    … …  
    22972322  IF (PRESENT (rcntrl_i)) rcntrl  = rcntrl_i                     
    22982323                                                                   
     2324  var => c(1:nvar)                                                 
     2325                                                                   
    22992326  vl_glo = size(tempi, 1)                                           
    23002327                                                                   

  • palm/trunk/UTIL/chemistry/gasphase_preproc/mechanisms/def_phstatp/chem_gasphase_mod.f90

    r3789 r3799  
    9898                                                                 
    9999  LOGICAL                     :: data_loaded = .FALSE.             
     100  REAL(dp), POINTER, DIMENSION(:), CONTIGUOUS    :: var             
    100101! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
    101102!
    … …  
    113114!
    114115! File                 : chem_gasphase_mod_Parameters.f90
    115 ! Time                 : Fri Mar  8 19:01:03 2019
    116 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     116! Time                 : Fri Mar 15 16:28:29 2019
     117! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    117118! Equation file        : chem_gasphase_mod.kpp
    118119! Output root filename : chem_gasphase_mod
    … …  
    190191!
    191192! File                 : chem_gasphase_mod_Global.f90
    192 ! Time                 : Fri Mar  8 19:01:03 2019
    193 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     193! Time                 : Fri Mar 15 16:28:29 2019
     194! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    194195! Equation file        : chem_gasphase_mod.kpp
    195196! Output root filename : chem_gasphase_mod
    … …  
    205206
    206207! C - Concentration of all species
    207   REAL(kind=dp):: c(nspec)
     208  REAL(kind=dp), TARGET    :: c(nspec)
    208209! VAR - Concentrations of variable species (global)
    209   REAL(kind=dp):: var(nvar)
     210! REAL(kind=dp):: var(nvar)  var is now POINTER
    210211! FIX - Concentrations of fixed species (global)
    211212  REAL(kind=dp):: fix(nfix)
    212213! VAR,FIX are chunks of array C
    213       EQUIVALENCE( c(1), var(1))
    214214! RCONST - Rate constants (global)
    215215  REAL(kind=dp):: rconst(nreact)
    … …  
    256256!
    257257! File                 : chem_gasphase_mod_JacobianSP.f90
    258 ! Time                 : Fri Mar  8 19:01:03 2019
    259 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     258! Time                 : Fri Mar 15 16:28:29 2019
     259! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    260260! Equation file        : chem_gasphase_mod.kpp
    261261! Output root filename : chem_gasphase_mod
    … …  
    300300!
    301301! File                 : chem_gasphase_mod_Monitor.f90
    302 ! Time                 : Fri Mar  8 19:01:03 2019
    303 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     302! Time                 : Fri Mar 15 16:28:29 2019
     303! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    304304! Equation file        : chem_gasphase_mod.kpp
    305305! Output root filename : chem_gasphase_mod
    … …  
    362362!
    363363! File                 : chem_gasphase_mod_Initialize.f90
    364 ! Time                 : Fri Mar  8 19:01:03 2019
    365 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     364! Time                 : Fri Mar 15 16:28:29 2019
     365! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    366366! Equation file        : chem_gasphase_mod.kpp
    367367! Output root filename : chem_gasphase_mod
    … …  
    388388!
    389389! File                 : chem_gasphase_mod_Integrator.f90
    390 ! Time                 : Fri Mar  8 19:01:03 2019
    391 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     390! Time                 : Fri Mar 15 16:28:29 2019
     391! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    392392! Equation file        : chem_gasphase_mod.kpp
    393393! Output root filename : chem_gasphase_mod
    … …  
    446446!
    447447! File                 : chem_gasphase_mod_LinearAlgebra.f90
    448 ! Time                 : Fri Mar  8 19:01:03 2019
    449 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     448! Time                 : Fri Mar 15 16:28:29 2019
     449! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    450450! Equation file        : chem_gasphase_mod.kpp
    451451! Output root filename : chem_gasphase_mod
    … …  
    473473!
    474474! File                 : chem_gasphase_mod_Jacobian.f90
    475 ! Time                 : Fri Mar  8 19:01:03 2019
    476 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     475! Time                 : Fri Mar 15 16:28:29 2019
     476! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    477477! Equation file        : chem_gasphase_mod.kpp
    478478! Output root filename : chem_gasphase_mod
    … …  
    500500!
    501501! File                 : chem_gasphase_mod_Function.f90
    502 ! Time                 : Fri Mar  8 19:01:03 2019
    503 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     502! Time                 : Fri Mar 15 16:28:29 2019
     503! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    504504! Equation file        : chem_gasphase_mod.kpp
    505505! Output root filename : chem_gasphase_mod
    … …  
    529529!
    530530! File                 : chem_gasphase_mod_Rates.f90
    531 ! Time                 : Fri Mar  8 19:01:03 2019
    532 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     531! Time                 : Fri Mar 15 16:28:29 2019
     532! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    533533! Equation file        : chem_gasphase_mod.kpp
    534534! Output root filename : chem_gasphase_mod
    … …  
    555555!
    556556! File                 : chem_gasphase_mod_Util.f90
    557 ! Time                 : Fri Mar  8 19:01:03 2019
    558 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     557! Time                 : Fri Mar 15 16:28:29 2019
     558! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    559559! Equation file        : chem_gasphase_mod.kpp
    560560! Output root filename : chem_gasphase_mod
    … …  
    671671 
    672672 
     673  ! openmp directives generated by kp4
     674 
     675  !$OMP THREADPRIVATE (vl, vl_glo, is, ie, data_loaded)
     676  !$OMP THREADPRIVATE (c, var, fix, rconst, time, temp, stepmin, cfactor)
     677  !$OMP THREADPRIVATE (qvap, fakt, cs_mech, a, icntrl, rcntrl)
     678 
    673679 CONTAINS
    674680 
    … …  
    682688  k = is
    683689  cfactor = 1.000000e+00_dp
     690! 
     691! Following line is just to avoid compiler message about unused variables
     692IF ( lu_crow(1) == 1  .OR.  lu_icol(1) == 1  .OR.  lu_irow(1) == 1 )  CONTINUE
     693! 
    684694
    685695  x = (0.) * cfactor
    … …  
    767777
    768778
     779! Following line is just to avoid compiler message about unused variables
     780IF ( f(nfix) > 0.0_dp )  CONTINUE
     781! 
    769782! Computation of equation rates
    770783  a(1) = rct(1) * v(3)
    … …  
    810823! B - Temporary array
    811824  REAL(kind=dp):: b(4)
     825!
     826! Following line is just to avoid compiler message about unused variables
     827IF ( f(nfix) > 0.0_dp )  CONTINUE
    812828
    813829! B(1) = dA(1)/dV(3)
    … …  
    954970      REAL(kind=dp) :: x(n), alpha
    955971      REAL(kind=dp), PARAMETER  :: zero=0.0_dp, one=1.0_dp
     972! 
     973! Following line is just to avoid compiler message about unused variables
     974IF ( incx == 0 )  CONTINUE
    956975
    957976      IF (alpha .eq. one)RETURN
    … …  
    10171036      REAL(kind=dp), PARAMETER :: zero = 0.0_dp
    10181037
     1038! 
     1039! Following line is just to avoid compiler message about unused variables
     1040IF ( incx == 0  .OR.  incy == 0 )  CONTINUE
    10191041      IF (alpha .eq. zero)RETURN
    10201042      IF (n .le. 0)RETURN
    … …  
    17491771!~~~> inout variables
    17501772   REAL(kind=dp), INTENT(INOUT):: b(n)
     1773! 
     1774! Following line is just to avoid compiler message about unused variables
     1775IF ( pivot(1) == 0 )  CONTINUE
    17511776
    17521777#ifdef full_algebra   
    … …  
    23082333  IF (PRESENT (rcntrl_i)) rcntrl  = rcntrl_i                     
    23092334                                                                   
     2335  var => c(1:nvar)                                                 
     2336                                                                   
    23102337  vl_glo = size(tempi, 1)                                           
    23112338                                                                   

  • palm/trunk/UTIL/chemistry/gasphase_preproc/mechanisms/def_salsa+phstat/chem_gasphase_mod.f90

    r3789 r3799  
    9898                                                                 
    9999  LOGICAL                     :: data_loaded = .FALSE.             
     100  REAL(dp), POINTER, DIMENSION(:), CONTIGUOUS    :: var             
    100101! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
    101102!
    … …  
    113114!
    114115! File                 : chem_gasphase_mod_Parameters.f90
    115 ! Time                 : Fri Mar  8 19:01:01 2019
    116 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     116! Time                 : Fri Mar 15 16:28:26 2019
     117! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    117118! Equation file        : chem_gasphase_mod.kpp
    118119! Output root filename : chem_gasphase_mod
    … …  
    189190!
    190191! File                 : chem_gasphase_mod_Global.f90
    191 ! Time                 : Fri Mar  8 19:01:01 2019
    192 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     192! Time                 : Fri Mar 15 16:28:26 2019
     193! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    193194! Equation file        : chem_gasphase_mod.kpp
    194195! Output root filename : chem_gasphase_mod
    … …  
    204205
    205206! C - Concentration of all species
    206   REAL(kind=dp):: c(nspec)
     207  REAL(kind=dp), TARGET    :: c(nspec)
    207208! VAR - Concentrations of variable species (global)
    208   REAL(kind=dp):: var(nvar)
     209! REAL(kind=dp):: var(nvar)  var is now POINTER
    209210! FIX - Concentrations of fixed species (global)
    210211  REAL(kind=dp):: fix(nfix)
    211212! VAR,FIX are chunks of array C
    212       EQUIVALENCE( c(1), var(1))
    213213! RCONST - Rate constants (global)
    214214  REAL(kind=dp):: rconst(nreact)
    … …  
    264264!
    265265! File                 : chem_gasphase_mod_JacobianSP.f90
    266 ! Time                 : Fri Mar  8 19:01:01 2019
    267 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     266! Time                 : Fri Mar 15 16:28:26 2019
     267! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    268268! Equation file        : chem_gasphase_mod.kpp
    269269! Output root filename : chem_gasphase_mod
    … …  
    308308!
    309309! File                 : chem_gasphase_mod_Monitor.f90
    310 ! Time                 : Fri Mar  8 19:01:01 2019
    311 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     310! Time                 : Fri Mar 15 16:28:26 2019
     311! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    312312! Equation file        : chem_gasphase_mod.kpp
    313313! Output root filename : chem_gasphase_mod
    … …  
    368368!
    369369! File                 : chem_gasphase_mod_Initialize.f90
    370 ! Time                 : Fri Mar  8 19:01:01 2019
    371 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     370! Time                 : Fri Mar 15 16:28:26 2019
     371! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    372372! Equation file        : chem_gasphase_mod.kpp
    373373! Output root filename : chem_gasphase_mod
    … …  
    394394!
    395395! File                 : chem_gasphase_mod_Integrator.f90
    396 ! Time                 : Fri Mar  8 19:01:01 2019
    397 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     396! Time                 : Fri Mar 15 16:28:26 2019
     397! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    398398! Equation file        : chem_gasphase_mod.kpp
    399399! Output root filename : chem_gasphase_mod
    … …  
    452452!
    453453! File                 : chem_gasphase_mod_LinearAlgebra.f90
    454 ! Time                 : Fri Mar  8 19:01:01 2019
    455 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     454! Time                 : Fri Mar 15 16:28:26 2019
     455! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    456456! Equation file        : chem_gasphase_mod.kpp
    457457! Output root filename : chem_gasphase_mod
    … …  
    479479!
    480480! File                 : chem_gasphase_mod_Jacobian.f90
    481 ! Time                 : Fri Mar  8 19:01:01 2019
    482 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     481! Time                 : Fri Mar 15 16:28:26 2019
     482! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    483483! Equation file        : chem_gasphase_mod.kpp
    484484! Output root filename : chem_gasphase_mod
    … …  
    506506!
    507507! File                 : chem_gasphase_mod_Function.f90
    508 ! Time                 : Fri Mar  8 19:01:01 2019
    509 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     508! Time                 : Fri Mar 15 16:28:26 2019
     509! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    510510! Equation file        : chem_gasphase_mod.kpp
    511511! Output root filename : chem_gasphase_mod
    … …  
    535535!
    536536! File                 : chem_gasphase_mod_Rates.f90
    537 ! Time                 : Fri Mar  8 19:01:01 2019
    538 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     537! Time                 : Fri Mar 15 16:28:26 2019
     538! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    539539! Equation file        : chem_gasphase_mod.kpp
    540540! Output root filename : chem_gasphase_mod
    … …  
    561561!
    562562! File                 : chem_gasphase_mod_Util.f90
    563 ! Time                 : Fri Mar  8 19:01:01 2019
    564 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     563! Time                 : Fri Mar 15 16:28:26 2019
     564! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    565565! Equation file        : chem_gasphase_mod.kpp
    566566! Output root filename : chem_gasphase_mod
    … …  
    677677 
    678678 
     679  ! openmp directives generated by kp4
     680 
     681  !$OMP THREADPRIVATE (vl, vl_glo, is, ie, data_loaded)
     682  !$OMP THREADPRIVATE (c, var, fix, rconst, time, temp, stepmin, cfactor)
     683  !$OMP THREADPRIVATE (qvap, fakt, cs_mech, a, icntrl, rcntrl)
     684 
    679685 CONTAINS
    680686 
    … …  
    688694  k = is
    689695  cfactor = 1.000000e+00_dp
     696! 
     697! Following line is just to avoid compiler message about unused variables
     698IF ( lu_crow(1) == 1  .OR.  lu_icol(1) == 1  .OR.  lu_irow(1) == 1 )  CONTINUE
     699! 
    690700
    691701  x = (0.) * cfactor
    … …  
    773783
    774784
     785! Following line is just to avoid compiler message about unused variables
     786IF ( f(nfix) > 0.0_dp )  CONTINUE
     787! 
    775788! Computation of equation rates
    776789  a(1) = rct(1) * v(3)
    … …  
    814827! B - Temporary array
    815828  REAL(kind=dp):: b(3)
     829!
     830! Following line is just to avoid compiler message about unused variables
     831IF ( f(nfix) > 0.0_dp )  CONTINUE
    816832
    817833! B(1) = dA(1)/dV(3)
    … …  
    953969      REAL(kind=dp) :: x(n), alpha
    954970      REAL(kind=dp), PARAMETER  :: zero=0.0_dp, one=1.0_dp
     971! 
     972! Following line is just to avoid compiler message about unused variables
     973IF ( incx == 0 )  CONTINUE
    955974
    956975      IF (alpha .eq. one)RETURN
    … …  
    10161035      REAL(kind=dp), PARAMETER :: zero = 0.0_dp
    10171036
     1037! 
     1038! Following line is just to avoid compiler message about unused variables
     1039IF ( incx == 0  .OR.  incy == 0 )  CONTINUE
    10181040      IF (alpha .eq. zero)RETURN
    10191041      IF (n .le. 0)RETURN
    … …  
    17481770!~~~> inout variables
    17491771   REAL(kind=dp), INTENT(INOUT):: b(n)
     1772! 
     1773! Following line is just to avoid compiler message about unused variables
     1774IF ( pivot(1) == 0 )  CONTINUE
    17501775
    17511776#ifdef full_algebra   
    … …  
    23062331  IF (PRESENT (rcntrl_i)) rcntrl  = rcntrl_i                     
    23072332                                                                   
     2333  var => c(1:nvar)                                                 
     2334                                                                   
    23082335  vl_glo = size(tempi, 1)                                           
    23092336                                                                   

  • palm/trunk/UTIL/chemistry/gasphase_preproc/mechanisms/def_salsa+simple/chem_gasphase_mod.f90

    r3789 r3799  
    9898                                                                 
    9999  LOGICAL                     :: data_loaded = .FALSE.             
     100  REAL(dp), POINTER, DIMENSION(:), CONTIGUOUS    :: var             
    100101! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
    101102!
    … …  
    113114!
    114115! File                 : chem_gasphase_mod_Parameters.f90
    115 ! Time                 : Fri Mar  8 19:01:01 2019
    116 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     116! Time                 : Fri Mar 15 16:28:26 2019
     117! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    117118! Equation file        : chem_gasphase_mod.kpp
    118119! Output root filename : chem_gasphase_mod
    … …  
    201202!
    202203! File                 : chem_gasphase_mod_Global.f90
    203 ! Time                 : Fri Mar  8 19:01:01 2019
    204 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     204! Time                 : Fri Mar 15 16:28:26 2019
     205! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    205206! Equation file        : chem_gasphase_mod.kpp
    206207! Output root filename : chem_gasphase_mod
    … …  
    216217
    217218! C - Concentration of all species
    218   REAL(kind=dp):: c(nspec)
     219  REAL(kind=dp), TARGET    :: c(nspec)
    219220! VAR - Concentrations of variable species (global)
    220   REAL(kind=dp):: var(nvar)
     221! REAL(kind=dp):: var(nvar)  var is now POINTER
    221222! FIX - Concentrations of fixed species (global)
    222223  REAL(kind=dp):: fix(nfix)
    223224! VAR,FIX are chunks of array C
    224       EQUIVALENCE( c(1), var(1))
    225       EQUIVALENCE( c(14), fix(1))
    226225! RCONST - Rate constants (global)
    227226  REAL(kind=dp):: rconst(nreact)
    … …  
    274273!
    275274! File                 : chem_gasphase_mod_JacobianSP.f90
    276 ! Time                 : Fri Mar  8 19:01:01 2019
    277 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     275! Time                 : Fri Mar 15 16:28:26 2019
     276! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    278277! Equation file        : chem_gasphase_mod.kpp
    279278! Output root filename : chem_gasphase_mod
    … …  
    326325!
    327326! File                 : chem_gasphase_mod_Monitor.f90
    328 ! Time                 : Fri Mar  8 19:01:01 2019
    329 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     327! Time                 : Fri Mar 15 16:28:26 2019
     328! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    330329! Equation file        : chem_gasphase_mod.kpp
    331330! Output root filename : chem_gasphase_mod
    … …  
    400399!
    401400! File                 : chem_gasphase_mod_Initialize.f90
    402 ! Time                 : Fri Mar  8 19:01:01 2019
    403 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     401! Time                 : Fri Mar 15 16:28:26 2019
     402! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    404403! Equation file        : chem_gasphase_mod.kpp
    405404! Output root filename : chem_gasphase_mod
    … …  
    426425!
    427426! File                 : chem_gasphase_mod_Integrator.f90
    428 ! Time                 : Fri Mar  8 19:01:01 2019
    429 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     427! Time                 : Fri Mar 15 16:28:26 2019
     428! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    430429! Equation file        : chem_gasphase_mod.kpp
    431430! Output root filename : chem_gasphase_mod
    … …  
    484483!
    485484! File                 : chem_gasphase_mod_LinearAlgebra.f90
    486 ! Time                 : Fri Mar  8 19:01:01 2019
    487 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     485! Time                 : Fri Mar 15 16:28:26 2019
     486! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    488487! Equation file        : chem_gasphase_mod.kpp
    489488! Output root filename : chem_gasphase_mod
    … …  
    511510!
    512511! File                 : chem_gasphase_mod_Jacobian.f90
    513 ! Time                 : Fri Mar  8 19:01:01 2019
    514 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     512! Time                 : Fri Mar 15 16:28:26 2019
     513! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    515514! Equation file        : chem_gasphase_mod.kpp
    516515! Output root filename : chem_gasphase_mod
    … …  
    538537!
    539538! File                 : chem_gasphase_mod_Function.f90
    540 ! Time                 : Fri Mar  8 19:01:01 2019
    541 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     539! Time                 : Fri Mar 15 16:28:26 2019
     540! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    542541! Equation file        : chem_gasphase_mod.kpp
    543542! Output root filename : chem_gasphase_mod
    … …  
    567566!
    568567! File                 : chem_gasphase_mod_Rates.f90
    569 ! Time                 : Fri Mar  8 19:01:01 2019
    570 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     568! Time                 : Fri Mar 15 16:28:26 2019
     569! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    571570! Equation file        : chem_gasphase_mod.kpp
    572571! Output root filename : chem_gasphase_mod
    … …  
    593592!
    594593! File                 : chem_gasphase_mod_Util.f90
    595 ! Time                 : Fri Mar  8 19:01:01 2019
    596 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     594! Time                 : Fri Mar 15 16:28:26 2019
     595! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    597596! Equation file        : chem_gasphase_mod.kpp
    598597! Output root filename : chem_gasphase_mod
    … …  
    709708 
    710709 
     710  ! openmp directives generated by kp4
     711 
     712  !$OMP THREADPRIVATE (vl, vl_glo, is, ie, data_loaded)
     713  !$OMP THREADPRIVATE (c, var, fix, rconst, time, temp, stepmin, cfactor)
     714  !$OMP THREADPRIVATE (qvap, fakt, cs_mech, a, icntrl, rcntrl)
     715 
    711716 CONTAINS
    712717 
    … …  
    720725  k = is
    721726  cfactor = 1.000000e+00_dp
     727! 
     728! Following line is just to avoid compiler message about unused variables
     729IF ( lu_crow(1) == 1  .OR.  lu_icol(1) == 1  .OR.  lu_irow(1) == 1 )  CONTINUE
     730! 
    722731
    723732  x = (0.) * cfactor
    … …  
    805814
    806815
     816! Following line is just to avoid compiler message about unused variables
     817IF ( f(nfix) > 0.0_dp )  CONTINUE
     818! 
    807819! Computation of equation rates
    808820  a(1) = rct(1) * v(10)
    … …  
    874886! B - Temporary array
    875887  REAL(kind=dp):: b(17)
     888!
     889! Following line is just to avoid compiler message about unused variables
     890IF ( f(nfix) > 0.0_dp )  CONTINUE
    876891
    877892! B(1) = dA(1)/dV(10)
    … …  
    11121127      REAL(kind=dp) :: x(n), alpha
    11131128      REAL(kind=dp), PARAMETER  :: zero=0.0_dp, one=1.0_dp
     1129! 
     1130! Following line is just to avoid compiler message about unused variables
     1131IF ( incx == 0 )  CONTINUE
    11141132
    11151133      IF (alpha .eq. one)RETURN
    … …  
    11751193      REAL(kind=dp), PARAMETER :: zero = 0.0_dp
    11761194
     1195! 
     1196! Following line is just to avoid compiler message about unused variables
     1197IF ( incx == 0  .OR.  incy == 0 )  CONTINUE
    11771198      IF (alpha .eq. zero)RETURN
    11781199      IF (n .le. 0)RETURN
    … …  
    19071928!~~~> inout variables
    19081929   REAL(kind=dp), INTENT(INOUT):: b(n)
     1930! 
     1931! Following line is just to avoid compiler message about unused variables
     1932IF ( pivot(1) == 0 )  CONTINUE
    19091933
    19101934#ifdef full_algebra   
    … …  
    24972521  IF (PRESENT (rcntrl_i)) rcntrl  = rcntrl_i                     
    24982522                                                                   
     2523  var => c(1:nvar)                                                 
     2524                                                                   
    24992525  vl_glo = size(tempi, 1)                                           
    25002526                                                                   

  • palm/trunk/UTIL/chemistry/gasphase_preproc/mechanisms/def_salsagas/chem_gasphase_mod.f90

    r3789 r3799  
    9898                                                                 
    9999  LOGICAL                     :: data_loaded = .FALSE.             
     100  REAL(dp), POINTER, DIMENSION(:), CONTIGUOUS    :: var             
    100101! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
    101102!
    … …  
    113114!
    114115! File                 : chem_gasphase_mod_Parameters.f90
    115 ! Time                 : Fri Mar  8 19:01:01 2019
    116 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     116! Time                 : Fri Mar 15 16:28:25 2019
     117! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    117118! Equation file        : chem_gasphase_mod.kpp
    118119! Output root filename : chem_gasphase_mod
    … …  
    191192!
    192193! File                 : chem_gasphase_mod_Global.f90
    193 ! Time                 : Fri Mar  8 19:01:01 2019
    194 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     194! Time                 : Fri Mar 15 16:28:25 2019
     195! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    195196! Equation file        : chem_gasphase_mod.kpp
    196197! Output root filename : chem_gasphase_mod
    … …  
    206207
    207208! C - Concentration of all species
    208   REAL(kind=dp):: c(nspec)
     209  REAL(kind=dp), TARGET    :: c(nspec)
    209210! VAR - Concentrations of variable species (global)
    210   REAL(kind=dp):: var(nvar)
     211! REAL(kind=dp):: var(nvar)  var is now POINTER
    211212! FIX - Concentrations of fixed species (global)
    212213  REAL(kind=dp):: fix(nfix)
    213214! VAR,FIX are chunks of array C
    214       EQUIVALENCE( c(1), var(1))
    215215! RCONST - Rate constants (global)
    216216  REAL(kind=dp):: rconst(nreact)
    … …  
    259259!
    260260! File                 : chem_gasphase_mod_JacobianSP.f90
    261 ! Time                 : Fri Mar  8 19:01:01 2019
    262 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     261! Time                 : Fri Mar 15 16:28:25 2019
     262! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    263263! Equation file        : chem_gasphase_mod.kpp
    264264! Output root filename : chem_gasphase_mod
    … …  
    303303!
    304304! File                 : chem_gasphase_mod_Monitor.f90
    305 ! Time                 : Fri Mar  8 19:01:01 2019
    306 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     305! Time                 : Fri Mar 15 16:28:25 2019
     306! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    307307! Equation file        : chem_gasphase_mod.kpp
    308308! Output root filename : chem_gasphase_mod
    … …  
    367367!
    368368! File                 : chem_gasphase_mod_Initialize.f90
    369 ! Time                 : Fri Mar  8 19:01:01 2019
    370 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     369! Time                 : Fri Mar 15 16:28:25 2019
     370! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    371371! Equation file        : chem_gasphase_mod.kpp
    372372! Output root filename : chem_gasphase_mod
    … …  
    393393!
    394394! File                 : chem_gasphase_mod_Integrator.f90
    395 ! Time                 : Fri Mar  8 19:01:01 2019
    396 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     395! Time                 : Fri Mar 15 16:28:25 2019
     396! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    397397! Equation file        : chem_gasphase_mod.kpp
    398398! Output root filename : chem_gasphase_mod
    … …  
    451451!
    452452! File                 : chem_gasphase_mod_LinearAlgebra.f90
    453 ! Time                 : Fri Mar  8 19:01:01 2019
    454 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     453! Time                 : Fri Mar 15 16:28:25 2019
     454! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    455455! Equation file        : chem_gasphase_mod.kpp
    456456! Output root filename : chem_gasphase_mod
    … …  
    478478!
    479479! File                 : chem_gasphase_mod_Jacobian.f90
    480 ! Time                 : Fri Mar  8 19:01:01 2019
    481 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     480! Time                 : Fri Mar 15 16:28:25 2019
     481! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    482482! Equation file        : chem_gasphase_mod.kpp
    483483! Output root filename : chem_gasphase_mod
    … …  
    505505!
    506506! File                 : chem_gasphase_mod_Function.f90
    507 ! Time                 : Fri Mar  8 19:01:01 2019
    508 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     507! Time                 : Fri Mar 15 16:28:25 2019
     508! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    509509! Equation file        : chem_gasphase_mod.kpp
    510510! Output root filename : chem_gasphase_mod
    … …  
    534534!
    535535! File                 : chem_gasphase_mod_Rates.f90
    536 ! Time                 : Fri Mar  8 19:01:01 2019
    537 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     536! Time                 : Fri Mar 15 16:28:25 2019
     537! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    538538! Equation file        : chem_gasphase_mod.kpp
    539539! Output root filename : chem_gasphase_mod
    … …  
    560560!
    561561! File                 : chem_gasphase_mod_Util.f90
    562 ! Time                 : Fri Mar  8 19:01:01 2019
    563 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     562! Time                 : Fri Mar 15 16:28:25 2019
     563! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    564564! Equation file        : chem_gasphase_mod.kpp
    565565! Output root filename : chem_gasphase_mod
    … …  
    676676 
    677677 
     678  ! openmp directives generated by kp4
     679 
     680  !$OMP THREADPRIVATE (vl, vl_glo, is, ie, data_loaded)
     681  !$OMP THREADPRIVATE (c, var, fix, rconst, time, temp, stepmin, cfactor)
     682  !$OMP THREADPRIVATE (qvap, fakt, cs_mech, a, icntrl, rcntrl)
     683 
    678684 CONTAINS
    679685 
    … …  
    687693  k = is
    688694  cfactor = 1.000000e+00_dp
     695! 
     696! Following line is just to avoid compiler message about unused variables
     697IF ( lu_crow(1) == 1  .OR.  lu_icol(1) == 1  .OR.  lu_irow(1) == 1 )  CONTINUE
     698! 
    689699
    690700  x = (0.) * cfactor
    … …  
    772782
    773783
     784! Following line is just to avoid compiler message about unused variables
     785IF ( f(nfix) > 0.0_dp )  CONTINUE
     786! 
    774787! Computation of equation rates
    775788
    … …  
    813826! B - Temporary array
    814827  REAL(kind=dp):: b(5)
     828!
     829! Following line is just to avoid compiler message about unused variables
     830IF ( f(nfix) > 0.0_dp )  CONTINUE
    815831
    816832! B(1) = dA(1)/dV(2)
    … …  
    951967      REAL(kind=dp) :: x(n), alpha
    952968      REAL(kind=dp), PARAMETER  :: zero=0.0_dp, one=1.0_dp
     969! 
     970! Following line is just to avoid compiler message about unused variables
     971IF ( incx == 0 )  CONTINUE
    953972
    954973      IF (alpha .eq. one)RETURN
    … …  
    10141033      REAL(kind=dp), PARAMETER :: zero = 0.0_dp
    10151034
     1035! 
     1036! Following line is just to avoid compiler message about unused variables
     1037IF ( incx == 0  .OR.  incy == 0 )  CONTINUE
    10161038      IF (alpha .eq. zero)RETURN
    10171039      IF (n .le. 0)RETURN
    … …  
    17461768!~~~> inout variables
    17471769   REAL(kind=dp), INTENT(INOUT):: b(n)
     1770! 
     1771! Following line is just to avoid compiler message about unused variables
     1772IF ( pivot(1) == 0 )  CONTINUE
    17481773
    17491774#ifdef full_algebra   
    … …  
    22992324  IF (PRESENT (rcntrl_i)) rcntrl  = rcntrl_i                     
    23002325                                                                   
     2326  var => c(1:nvar)                                                 
     2327                                                                   
    23012328  vl_glo = size(tempi, 1)                                           
    23022329                                                                   

  • palm/trunk/UTIL/chemistry/gasphase_preproc/mechanisms/def_simple/chem_gasphase_mod.f90

    r3789 r3799  
    9898                                                                 
    9999  LOGICAL                     :: data_loaded = .FALSE.             
     100  REAL(dp), POINTER, DIMENSION(:), CONTIGUOUS    :: var             
    100101! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
    101102!
    … …  
    113114!
    114115! File                 : chem_gasphase_mod_Parameters.f90
    115 ! Time                 : Fri Mar  8 19:01:02 2019
    116 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     116! Time                 : Fri Mar 15 16:28:27 2019
     117! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    117118! Equation file        : chem_gasphase_mod.kpp
    118119! Output root filename : chem_gasphase_mod
    … …  
    197198!
    198199! File                 : chem_gasphase_mod_Global.f90
    199 ! Time                 : Fri Mar  8 19:01:02 2019
    200 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     200! Time                 : Fri Mar 15 16:28:27 2019
     201! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    201202! Equation file        : chem_gasphase_mod.kpp
    202203! Output root filename : chem_gasphase_mod
    … …  
    212213
    213214! C - Concentration of all species
    214   REAL(kind=dp):: c(nspec)
     215  REAL(kind=dp), TARGET    :: c(nspec)
    215216! VAR - Concentrations of variable species (global)
    216   REAL(kind=dp):: var(nvar)
     217! REAL(kind=dp):: var(nvar)  var is now POINTER
    217218! FIX - Concentrations of fixed species (global)
    218219  REAL(kind=dp):: fix(nfix)
    219220! VAR,FIX are chunks of array C
    220       EQUIVALENCE( c(1), var(1))
    221       EQUIVALENCE( c(10), fix(1))
    222221! RCONST - Rate constants (global)
    223222  REAL(kind=dp):: rconst(nreact)
    … …  
    264263!
    265264! File                 : chem_gasphase_mod_JacobianSP.f90
    266 ! Time                 : Fri Mar  8 19:01:02 2019
    267 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     265! Time                 : Fri Mar 15 16:28:27 2019
     266! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    268267! Equation file        : chem_gasphase_mod.kpp
    269268! Output root filename : chem_gasphase_mod
    … …  
    314313!
    315314! File                 : chem_gasphase_mod_Monitor.f90
    316 ! Time                 : Fri Mar  8 19:01:02 2019
    317 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     315! Time                 : Fri Mar 15 16:28:27 2019
     316! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    318317! Equation file        : chem_gasphase_mod.kpp
    319318! Output root filename : chem_gasphase_mod
    … …  
    383382!
    384383! File                 : chem_gasphase_mod_Initialize.f90
    385 ! Time                 : Fri Mar  8 19:01:02 2019
    386 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     384! Time                 : Fri Mar 15 16:28:27 2019
     385! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    387386! Equation file        : chem_gasphase_mod.kpp
    388387! Output root filename : chem_gasphase_mod
    … …  
    409408!
    410409! File                 : chem_gasphase_mod_Integrator.f90
    411 ! Time                 : Fri Mar  8 19:01:02 2019
    412 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     410! Time                 : Fri Mar 15 16:28:27 2019
     411! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    413412! Equation file        : chem_gasphase_mod.kpp
    414413! Output root filename : chem_gasphase_mod
    … …  
    467466!
    468467! File                 : chem_gasphase_mod_LinearAlgebra.f90
    469 ! Time                 : Fri Mar  8 19:01:02 2019
    470 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     468! Time                 : Fri Mar 15 16:28:27 2019
     469! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    471470! Equation file        : chem_gasphase_mod.kpp
    472471! Output root filename : chem_gasphase_mod
    … …  
    494493!
    495494! File                 : chem_gasphase_mod_Jacobian.f90
    496 ! Time                 : Fri Mar  8 19:01:02 2019
    497 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     495! Time                 : Fri Mar 15 16:28:27 2019
     496! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    498497! Equation file        : chem_gasphase_mod.kpp
    499498! Output root filename : chem_gasphase_mod
    … …  
    521520!
    522521! File                 : chem_gasphase_mod_Function.f90
    523 ! Time                 : Fri Mar  8 19:01:02 2019
    524 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     522! Time                 : Fri Mar 15 16:28:27 2019
     523! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    525524! Equation file        : chem_gasphase_mod.kpp
    526525! Output root filename : chem_gasphase_mod
    … …  
    550549!
    551550! File                 : chem_gasphase_mod_Rates.f90
    552 ! Time                 : Fri Mar  8 19:01:02 2019
    553 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     551! Time                 : Fri Mar 15 16:28:27 2019
     552! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    554553! Equation file        : chem_gasphase_mod.kpp
    555554! Output root filename : chem_gasphase_mod
    … …  
    576575!
    577576! File                 : chem_gasphase_mod_Util.f90
    578 ! Time                 : Fri Mar  8 19:01:02 2019
    579 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     577! Time                 : Fri Mar 15 16:28:27 2019
     578! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    580579! Equation file        : chem_gasphase_mod.kpp
    581580! Output root filename : chem_gasphase_mod
    … …  
    692691 
    693692 
     693  ! openmp directives generated by kp4
     694 
     695  !$OMP THREADPRIVATE (vl, vl_glo, is, ie, data_loaded)
     696  !$OMP THREADPRIVATE (c, var, fix, rconst, time, temp, stepmin, cfactor)
     697  !$OMP THREADPRIVATE (qvap, fakt, cs_mech, a, icntrl, rcntrl)
     698 
    694699 CONTAINS
    695700 
    … …  
    703708  k = is
    704709  cfactor = 1.000000e+00_dp
     710! 
     711! Following line is just to avoid compiler message about unused variables
     712IF ( lu_crow(1) == 1  .OR.  lu_icol(1) == 1  .OR.  lu_irow(1) == 1 )  CONTINUE
     713! 
    705714
    706715  x = (0.) * cfactor
    … …  
    788797
    789798
     799! Following line is just to avoid compiler message about unused variables
     800IF ( f(nfix) > 0.0_dp )  CONTINUE
     801! 
    790802! Computation of equation rates
    791803  a(1) = rct(1) * v(7)
    … …  
    849861! B - Temporary array
    850862  REAL(kind=dp):: b(13)
     863!
     864! Following line is just to avoid compiler message about unused variables
     865IF ( f(nfix) > 0.0_dp )  CONTINUE
    851866
    852867! B(1) = dA(1)/dV(7)
    … …  
    10671082      REAL(kind=dp) :: x(n), alpha
    10681083      REAL(kind=dp), PARAMETER  :: zero=0.0_dp, one=1.0_dp
     1084! 
     1085! Following line is just to avoid compiler message about unused variables
     1086IF ( incx == 0 )  CONTINUE
    10691087
    10701088      IF (alpha .eq. one)RETURN
    … …  
    11301148      REAL(kind=dp), PARAMETER :: zero = 0.0_dp
    11311149
     1150! 
     1151! Following line is just to avoid compiler message about unused variables
     1152IF ( incx == 0  .OR.  incy == 0 )  CONTINUE
    11321153      IF (alpha .eq. zero)RETURN
    11331154      IF (n .le. 0)RETURN
    … …  
    18621883!~~~> inout variables
    18631884   REAL(kind=dp), INTENT(INOUT):: b(n)
     1885! 
     1886! Following line is just to avoid compiler message about unused variables
     1887IF ( pivot(1) == 0 )  CONTINUE
    18641888
    18651889#ifdef full_algebra   
    … …  
    24492473  IF (PRESENT (rcntrl_i)) rcntrl  = rcntrl_i                     
    24502474                                                                   
     2475  var => c(1:nvar)                                                 
     2476                                                                   
    24512477  vl_glo = size(tempi, 1)                                           
    24522478                                                                   

  • palm/trunk/UTIL/chemistry/gasphase_preproc/mechanisms/def_simplep/chem_gasphase_mod.f90

    r3789 r3799  
    9898                                                                 
    9999  LOGICAL                     :: data_loaded = .FALSE.             
     100  REAL(dp), POINTER, DIMENSION(:), CONTIGUOUS    :: var             
    100101! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
    101102!
    … …  
    113114!
    114115! File                 : chem_gasphase_mod_Parameters.f90
    115 ! Time                 : Fri Mar  8 19:01:02 2019
    116 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     116! Time                 : Fri Mar 15 16:28:28 2019
     117! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    117118! Equation file        : chem_gasphase_mod.kpp
    118119! Output root filename : chem_gasphase_mod
    … …  
    198199!
    199200! File                 : chem_gasphase_mod_Global.f90
    200 ! Time                 : Fri Mar  8 19:01:02 2019
    201 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     201! Time                 : Fri Mar 15 16:28:28 2019
     202! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    202203! Equation file        : chem_gasphase_mod.kpp
    203204! Output root filename : chem_gasphase_mod
    … …  
    213214
    214215! C - Concentration of all species
    215   REAL(kind=dp):: c(nspec)
     216  REAL(kind=dp), TARGET    :: c(nspec)
    216217! VAR - Concentrations of variable species (global)
    217   REAL(kind=dp):: var(nvar)
     218! REAL(kind=dp):: var(nvar)  var is now POINTER
    218219! FIX - Concentrations of fixed species (global)
    219220  REAL(kind=dp):: fix(nfix)
    220221! VAR,FIX are chunks of array C
    221       EQUIVALENCE( c(1), var(1))
    222       EQUIVALENCE( c(11), fix(1))
    223222! RCONST - Rate constants (global)
    224223  REAL(kind=dp):: rconst(nreact)
    … …  
    265264!
    266265! File                 : chem_gasphase_mod_JacobianSP.f90
    267 ! Time                 : Fri Mar  8 19:01:02 2019
    268 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     266! Time                 : Fri Mar 15 16:28:28 2019
     267! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    269268! Equation file        : chem_gasphase_mod.kpp
    270269! Output root filename : chem_gasphase_mod
    … …  
    315314!
    316315! File                 : chem_gasphase_mod_Monitor.f90
    317 ! Time                 : Fri Mar  8 19:01:02 2019
    318 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     316! Time                 : Fri Mar 15 16:28:28 2019
     317! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    319318! Equation file        : chem_gasphase_mod.kpp
    320319! Output root filename : chem_gasphase_mod
    … …  
    385384!
    386385! File                 : chem_gasphase_mod_Initialize.f90
    387 ! Time                 : Fri Mar  8 19:01:02 2019
    388 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     386! Time                 : Fri Mar 15 16:28:28 2019
     387! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    389388! Equation file        : chem_gasphase_mod.kpp
    390389! Output root filename : chem_gasphase_mod
    … …  
    411410!
    412411! File                 : chem_gasphase_mod_Integrator.f90
    413 ! Time                 : Fri Mar  8 19:01:02 2019
    414 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     412! Time                 : Fri Mar 15 16:28:28 2019
     413! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    415414! Equation file        : chem_gasphase_mod.kpp
    416415! Output root filename : chem_gasphase_mod
    … …  
    469468!
    470469! File                 : chem_gasphase_mod_LinearAlgebra.f90
    471 ! Time                 : Fri Mar  8 19:01:02 2019
    472 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     470! Time                 : Fri Mar 15 16:28:28 2019
     471! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    473472! Equation file        : chem_gasphase_mod.kpp
    474473! Output root filename : chem_gasphase_mod
    … …  
    496495!
    497496! File                 : chem_gasphase_mod_Jacobian.f90
    498 ! Time                 : Fri Mar  8 19:01:02 2019
    499 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     497! Time                 : Fri Mar 15 16:28:28 2019
     498! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    500499! Equation file        : chem_gasphase_mod.kpp
    501500! Output root filename : chem_gasphase_mod
    … …  
    523522!
    524523! File                 : chem_gasphase_mod_Function.f90
    525 ! Time                 : Fri Mar  8 19:01:02 2019
    526 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     524! Time                 : Fri Mar 15 16:28:28 2019
     525! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    527526! Equation file        : chem_gasphase_mod.kpp
    528527! Output root filename : chem_gasphase_mod
    … …  
    552551!
    553552! File                 : chem_gasphase_mod_Rates.f90
    554 ! Time                 : Fri Mar  8 19:01:02 2019
    555 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     553! Time                 : Fri Mar 15 16:28:28 2019
     554! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    556555! Equation file        : chem_gasphase_mod.kpp
    557556! Output root filename : chem_gasphase_mod
    … …  
    578577!
    579578! File                 : chem_gasphase_mod_Util.f90
    580 ! Time                 : Fri Mar  8 19:01:02 2019
    581 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     579! Time                 : Fri Mar 15 16:28:28 2019
     580! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    582581! Equation file        : chem_gasphase_mod.kpp
    583582! Output root filename : chem_gasphase_mod
    … …  
    694693 
    695694 
     695  ! openmp directives generated by kp4
     696 
     697  !$OMP THREADPRIVATE (vl, vl_glo, is, ie, data_loaded)
     698  !$OMP THREADPRIVATE (c, var, fix, rconst, time, temp, stepmin, cfactor)
     699  !$OMP THREADPRIVATE (qvap, fakt, cs_mech, a, icntrl, rcntrl)
     700 
    696701 CONTAINS
    697702 
    … …  
    705710  k = is
    706711  cfactor = 1.000000e+00_dp
     712! 
     713! Following line is just to avoid compiler message about unused variables
     714IF ( lu_crow(1) == 1  .OR.  lu_icol(1) == 1  .OR.  lu_irow(1) == 1 )  CONTINUE
     715! 
    707716
    708717  x = (0.) * cfactor
    … …  
    790799
    791800
     801! Following line is just to avoid compiler message about unused variables
     802IF ( f(nfix) > 0.0_dp )  CONTINUE
     803! 
    792804! Computation of equation rates
    793805  a(1) = rct(1) * v(10)
    … …  
    852864! B - Temporary array
    853865  REAL(kind=dp):: b(14)
     866!
     867! Following line is just to avoid compiler message about unused variables
     868IF ( f(nfix) > 0.0_dp )  CONTINUE
    854869
    855870! B(1) = dA(1)/dV(10)
    … …  
    10751090      REAL(kind=dp) :: x(n), alpha
    10761091      REAL(kind=dp), PARAMETER  :: zero=0.0_dp, one=1.0_dp
     1092! 
     1093! Following line is just to avoid compiler message about unused variables
     1094IF ( incx == 0 )  CONTINUE
    10771095
    10781096      IF (alpha .eq. one)RETURN
    … …  
    11381156      REAL(kind=dp), PARAMETER :: zero = 0.0_dp
    11391157
     1158! 
     1159! Following line is just to avoid compiler message about unused variables
     1160IF ( incx == 0  .OR.  incy == 0 )  CONTINUE
    11401161      IF (alpha .eq. zero)RETURN
    11411162      IF (n .le. 0)RETURN
    … …  
    18701891!~~~> inout variables
    18711892   REAL(kind=dp), INTENT(INOUT):: b(n)
     1893! 
     1894! Following line is just to avoid compiler message about unused variables
     1895IF ( pivot(1) == 0 )  CONTINUE
    18721896
    18731897#ifdef full_algebra   
    … …  
    24552479  IF (PRESENT (rcntrl_i)) rcntrl  = rcntrl_i                     
    24562480                                                                   
     2481  var => c(1:nvar)                                                 
     2482                                                                   
    24572483  vl_glo = size(tempi, 1)                                           
    24582484                                                                   

  • palm/trunk/UTIL/chemistry/gasphase_preproc/mechanisms/def_smog/chem_gasphase_mod.f90

    r3789 r3799  
    9898                                                                 
    9999  LOGICAL                     :: data_loaded = .FALSE.             
     100  REAL(dp), POINTER, DIMENSION(:), CONTIGUOUS    :: var             
    100101! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
    101102!
    … …  
    113114!
    114115! File                 : chem_gasphase_mod_Parameters.f90
    115 ! Time                 : Fri Mar  8 19:01:03 2019
    116 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     116! Time                 : Fri Mar 15 16:28:28 2019
     117! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    117118! Equation file        : chem_gasphase_mod.kpp
    118119! Output root filename : chem_gasphase_mod
    … …  
    205206!
    206207! File                 : chem_gasphase_mod_Global.f90
    207 ! Time                 : Fri Mar  8 19:01:03 2019
    208 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     208! Time                 : Fri Mar 15 16:28:28 2019
     209! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    209210! Equation file        : chem_gasphase_mod.kpp
    210211! Output root filename : chem_gasphase_mod
    … …  
    220221
    221222! C - Concentration of all species
    222   REAL(kind=dp):: c(nspec)
     223  REAL(kind=dp), TARGET    :: c(nspec)
    223224! VAR - Concentrations of variable species (global)
    224   REAL(kind=dp):: var(nvar)
     225! REAL(kind=dp):: var(nvar)  var is now POINTER
    225226! FIX - Concentrations of fixed species (global)
    226227  REAL(kind=dp):: fix(nfix)
    227228! VAR,FIX are chunks of array C
    228       EQUIVALENCE( c(1), var(1))
    229       EQUIVALENCE( c(14), fix(1))
    230229! RCONST - Rate constants (global)
    231230  REAL(kind=dp):: rconst(nreact)
    … …  
    272271!
    273272! File                 : chem_gasphase_mod_JacobianSP.f90
    274 ! Time                 : Fri Mar  8 19:01:03 2019
    275 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     273! Time                 : Fri Mar 15 16:28:28 2019
     274! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    276275! Equation file        : chem_gasphase_mod.kpp
    277276! Output root filename : chem_gasphase_mod
    … …  
    328327!
    329328! File                 : chem_gasphase_mod_Monitor.f90
    330 ! Time                 : Fri Mar  8 19:01:03 2019
    331 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     329! Time                 : Fri Mar 15 16:28:28 2019
     330! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    332331! Equation file        : chem_gasphase_mod.kpp
    333332! Output root filename : chem_gasphase_mod
    … …  
    404403!
    405404! File                 : chem_gasphase_mod_Initialize.f90
    406 ! Time                 : Fri Mar  8 19:01:03 2019
    407 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     405! Time                 : Fri Mar 15 16:28:28 2019
     406! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    408407! Equation file        : chem_gasphase_mod.kpp
    409408! Output root filename : chem_gasphase_mod
    … …  
    430429!
    431430! File                 : chem_gasphase_mod_Integrator.f90
    432 ! Time                 : Fri Mar  8 19:01:03 2019
    433 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     431! Time                 : Fri Mar 15 16:28:28 2019
     432! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    434433! Equation file        : chem_gasphase_mod.kpp
    435434! Output root filename : chem_gasphase_mod
    … …  
    488487!
    489488! File                 : chem_gasphase_mod_LinearAlgebra.f90
    490 ! Time                 : Fri Mar  8 19:01:03 2019
    491 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     489! Time                 : Fri Mar 15 16:28:28 2019
     490! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    492491! Equation file        : chem_gasphase_mod.kpp
    493492! Output root filename : chem_gasphase_mod
    … …  
    515514!
    516515! File                 : chem_gasphase_mod_Jacobian.f90
    517 ! Time                 : Fri Mar  8 19:01:03 2019
    518 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     516! Time                 : Fri Mar 15 16:28:28 2019
     517! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    519518! Equation file        : chem_gasphase_mod.kpp
    520519! Output root filename : chem_gasphase_mod
    … …  
    542541!
    543542! File                 : chem_gasphase_mod_Function.f90
    544 ! Time                 : Fri Mar  8 19:01:03 2019
    545 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     543! Time                 : Fri Mar 15 16:28:28 2019
     544! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    546545! Equation file        : chem_gasphase_mod.kpp
    547546! Output root filename : chem_gasphase_mod
    … …  
    571570!
    572571! File                 : chem_gasphase_mod_Rates.f90
    573 ! Time                 : Fri Mar  8 19:01:03 2019
    574 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     572! Time                 : Fri Mar 15 16:28:28 2019
     573! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    575574! Equation file        : chem_gasphase_mod.kpp
    576575! Output root filename : chem_gasphase_mod
    … …  
    597596!
    598597! File                 : chem_gasphase_mod_Util.f90
    599 ! Time                 : Fri Mar  8 19:01:03 2019
    600 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190308/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     598! Time                 : Fri Mar 15 16:28:28 2019
     599! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    601600! Equation file        : chem_gasphase_mod.kpp
    602601! Output root filename : chem_gasphase_mod
    … …  
    713712 
    714713 
     714  ! openmp directives generated by kp4
     715 
     716  !$OMP THREADPRIVATE (vl, vl_glo, is, ie, data_loaded)
     717  !$OMP THREADPRIVATE (c, var, fix, rconst, time, temp, stepmin, cfactor)
     718  !$OMP THREADPRIVATE (qvap, fakt, cs_mech, a, icntrl, rcntrl)
     719 
    715720 CONTAINS
    716721 
    … …  
    724729  k = is
    725730  cfactor = 1.000000e+00_dp
     731! 
     732! Following line is just to avoid compiler message about unused variables
     733IF ( lu_crow(1) == 1  .OR.  lu_icol(1) == 1  .OR.  lu_irow(1) == 1 )  CONTINUE
     734! 
    726735
    727736  x = (0.) * cfactor
    … …  
    813822
    814823
     824! Following line is just to avoid compiler message about unused variables
     825IF ( f(nfix) > 0.0_dp )  CONTINUE
     826! 
    815827! Computation of equation rates
    816828  a(1) = rct(1) * v(13)
    … …  
    890902! B - Temporary array
    891903  REAL(kind=dp):: b(21)
     904!
     905! Following line is just to avoid compiler message about unused variables
     906IF ( f(nfix) > 0.0_dp )  CONTINUE
    892907
    893908! B(1) = dA(1)/dV(13)
    … …  
    11771192      REAL(kind=dp) :: x(n), alpha
    11781193      REAL(kind=dp), PARAMETER  :: zero=0.0_dp, one=1.0_dp
     1194! 
     1195! Following line is just to avoid compiler message about unused variables
     1196IF ( incx == 0 )  CONTINUE
    11791197
    11801198      IF (alpha .eq. one)RETURN
    … …  
    12401258      REAL(kind=dp), PARAMETER :: zero = 0.0_dp
    12411259
     1260! 
     1261! Following line is just to avoid compiler message about unused variables
     1262IF ( incx == 0  .OR.  incy == 0 )  CONTINUE
    12421263      IF (alpha .eq. zero)RETURN
    12431264      IF (n .le. 0)RETURN
    … …  
    19721993!~~~> inout variables
    19731994   REAL(kind=dp), INTENT(INOUT):: b(n)
     1995! 
     1996! Following line is just to avoid compiler message about unused variables
     1997IF ( pivot(1) == 0 )  CONTINUE
    19741998
    19751999#ifdef full_algebra   
    … …  
    25832607  IF (PRESENT (rcntrl_i)) rcntrl  = rcntrl_i                     
    25842608                                                                   
     2609  var => c(1:nvar)                                                 
     2610                                                                   
    25852611  vl_glo = size(tempi, 1)                                           
    25862612                                                                   
Note: See TracChangeset for help on using the changeset viewer.
                                                                                                                                                                                                                                                                                                                                                                               
  | Impressum | ©Leibniz Universität Hannover |