Changeset 3820 for palm


Ignore:
Timestamp:
Mar 27, 2019 11:53:41 AM (5 years ago)
Author:
forkel
Message:

renaming of get_mechanismname, do_emiss and do_depo, sorting in chem_modules

Location:
palm/trunk
Files:
20 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/SOURCE/chem_gasphase_mod.f90

    r3799 r3820  
    8282  PUBLIC :: chem_gasphase_integrate
    8383  PUBLIC :: initialize_kpp_ctrl
    84   PUBLIC :: get_mechanismname
     84  PUBLIC :: get_mechanism_name
    8585
    8686! END OF MODULE HEADER TEMPLATE
     
    114114!
    115115! File                 : chem_gasphase_mod_Parameters.f90
    116 ! Time                 : Fri Mar 15 16:28:29 2019
    117 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     116! Time                 : Wed Mar 27 09:51:40 2019
     117! Working directory    : /home/forkel-r/palmstuff/work/trunk20190327/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    118118! Equation file        : chem_gasphase_mod.kpp
    119119! Output root filename : chem_gasphase_mod
     
    191191!
    192192! File                 : chem_gasphase_mod_Global.f90
    193 ! Time                 : Fri Mar 15 16:28:29 2019
    194 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     193! Time                 : Wed Mar 27 09:51:40 2019
     194! Working directory    : /home/forkel-r/palmstuff/work/trunk20190327/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    195195! Equation file        : chem_gasphase_mod.kpp
    196196! Output root filename : chem_gasphase_mod
     
    256256!
    257257! File                 : chem_gasphase_mod_JacobianSP.f90
    258 ! Time                 : Fri Mar 15 16:28:29 2019
    259 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     258! Time                 : Wed Mar 27 09:51:40 2019
     259! Working directory    : /home/forkel-r/palmstuff/work/trunk20190327/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 15 16:28:29 2019
    303 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     302! Time                 : Wed Mar 27 09:51:40 2019
     303! Working directory    : /home/forkel-r/palmstuff/work/trunk20190327/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 15 16:28:29 2019
    365 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     364! Time                 : Wed Mar 27 09:51:40 2019
     365! Working directory    : /home/forkel-r/palmstuff/work/trunk20190327/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 15 16:28:29 2019
    391 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     390! Time                 : Wed Mar 27 09:51:40 2019
     391! Working directory    : /home/forkel-r/palmstuff/work/trunk20190327/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 15 16:28:29 2019
    449 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     448! Time                 : Wed Mar 27 09:51:40 2019
     449! Working directory    : /home/forkel-r/palmstuff/work/trunk20190327/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 15 16:28:29 2019
    476 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     475! Time                 : Wed Mar 27 09:51:40 2019
     476! Working directory    : /home/forkel-r/palmstuff/work/trunk20190327/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 15 16:28:29 2019
    503 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     502! Time                 : Wed Mar 27 09:51:40 2019
     503! Working directory    : /home/forkel-r/palmstuff/work/trunk20190327/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 15 16:28:29 2019
    532 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     531! Time                 : Wed Mar 27 09:51:40 2019
     532! Working directory    : /home/forkel-r/palmstuff/work/trunk20190327/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 15 16:28:29 2019
    558 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     557! Time                 : Wed Mar 27 09:51:40 2019
     558! Working directory    : /home/forkel-r/palmstuff/work/trunk20190327/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    559559! Equation file        : chem_gasphase_mod.kpp
    560560! Output root filename : chem_gasphase_mod
     
    662662  END INTERFACE        kppdecomp
    663663 
    664   INTERFACE            get_mechanismname
    665     MODULE PROCEDURE   get_mechanismname
    666   END INTERFACE        get_mechanismname
     664  INTERFACE            get_mechanism_name
     665    MODULE PROCEDURE   get_mechanism_name
     666  END INTERFACE        get_mechanism_name
    667667 
    668668  INTERFACE            chem_gasphase_integrate
     
    690690
    691691! Following line is just to avoid compiler message about unused variables
    692 IF ( lu_crow(1) == 1  .OR.  lu_icol(1) == 1  .OR.  lu_irow(1) == 1 )  CONTINUE
     692   IF ( lu_crow(1) == 1  .OR.  lu_icol(1) == 1  .OR.  lu_irow(1) == 1 )  CONTINUE
    693693
    694694
     
    778778
    779779! Following line is just to avoid compiler message about unused variables
    780 IF ( f(nfix) > 0.0_dp )  CONTINUE
     780   IF ( f(nfix) > 0.0_dp )  CONTINUE
    781781
    782782! Computation of equation rates
     
    825825!
    826826! Following line is just to avoid compiler message about unused variables
    827 IF ( f(nfix) > 0.0_dp )  CONTINUE
     827   IF ( f(nfix) > 0.0_dp )  CONTINUE
    828828
    829829! B(1) = dA(1)/dV(3)
     
    972972
    973973! Following line is just to avoid compiler message about unused variables
    974 IF ( incx == 0 )  CONTINUE
     974   IF ( incx == 0 )  CONTINUE
    975975
    976976      IF (alpha .eq. one)RETURN
     
    10381038
    10391039! Following line is just to avoid compiler message about unused variables
    1040 IF ( incx == 0  .OR.  incy == 0 )  CONTINUE
     1040   IF ( incx == 0  .OR.  incy == 0 )  CONTINUE
    10411041      IF (alpha .eq. zero)RETURN
    10421042      IF (n .le. 0)RETURN
     
    17731773
    17741774! Following line is just to avoid compiler message about unused variables
    1775 IF ( pivot(1) == 0 )  CONTINUE
     1775   IF ( pivot(1) == 0 )  CONTINUE
    17761776
    17771777#ifdef full_algebra   
     
    22912291  END SUBROUTINE kppdecomp                                           
    22922292 
    2293 SUBROUTINE get_mechanismname                                        
     2293SUBROUTINE get_mechanism_name                                       
    22942294                                                                   
    22952295  IMPLICIT NONE                                                     
     
    22992299                                                                   
    23002300  RETURN                                                           
    2301 END SUBROUTINE get_mechanismname                                    
     2301END SUBROUTINE get_mechanism_name                                   
    23022302                                                                   
    23032303 
  • palm/trunk/SOURCE/chem_modules.f90

    r3780 r3820  
    2727! -----------------
    2828! $Id$
     29! renamed do_emis to emissions_anthropogenic, removed USE statistics, variables sorted by type
     30!
     31!
     32! 3780 2019-03-05 11:19:45Z forkel
    2933! added cs_mech
    30 !
    3134!
    3235! 3652 2019-01-07 15:29:59Z forkel
    3336! parameter chem_mechanism added (basit)
    34 !
    3537!
    3638! 3636 2018-12-19 13:48:34Z raasch
     
    6062! @author Sabine Banzhaf
    6163! @author Emmanuele Russo
     64! @author Edward C. Chan
    6265!
    6366!------------------------------------------------------------------------------!
     
    7780    USE kinds
    7881
    79     USE statistics,                                                            &
    80         ONLY: pr_palm
    81 
    82 
    8382    IMPLICIT NONE
    8483
     
    8887    PUBLIC spc_names
    8988
    90     INTEGER(iwp), DIMENSION(99) :: cs_pr_index            = 0
    91     INTEGER(iwp) ::  ibc_cs_b                                                      !< integer flag for bc_cs_b
    92     INTEGER(iwp) ::  ibc_cs_t                                                      !< integer flag for bc_cs_t
    93     INTEGER(iwp) ::  cs_pr_count                           = 0
    94     INTEGER(iwp) ::  max_pr_cs                             = 0
    95     INTEGER(iwp) ::  cs_vertical_gradient_level_ind(99,10) = -9999                 !< grid index values of cs_vertical_gradient_level_ind(s)
     89    CHARACTER (LEN=20)                ::  bc_cs_b             = 'dirichlet'         !< namelist parameter
     90    CHARACTER (LEN=20)                ::  bc_cs_t             = 'initial_gradient'  !< namelist parameter
     91    CHARACTER (LEN=30)                ::  chem_mechanism      = 'phstatp'           !< KPP chmical mechanism
     92    CHARACTER (LEN=11), DIMENSION(99) ::  cs_name             = 'novalue'           !< Namelist parameter: chem spcs names
     93    CHARACTER (LEN=11), DIMENSION(99) ::  cs_profile_name     = 'novalue'           !< Namelist parameter: Names of the chem for profiles
     94    CHARACTER (LEN=11), DIMENSION(99) ::  data_output_pr_cs   = 'novalue'           !< Namelist parameter: Names of the chem species for profile output
     95                                                                                    !< by cs_name for each height lvls defined by cs_heights
     96    CHARACTER (LEN=80)                ::  daytype_mdh         ='workday'            !< Type of day in the MDH case: workday, weekend, holiday
     97    CHARACTER (LEN=80)                ::  mode_emis           ='PARAMETERIZED'      !< Mode of chemistry emissions: DEFAULT .OR. EXPERT .OR.
     98                                                                                    !< PARAMETERIZED
     99    CHARACTER (LEN=11), DIMENSION(99) ::  surface_csflux_name = 'novalue'           !< Namelist parameter: chem species names with surface fluxes specified
     100                                                                                    !< active chem spcs, default is 'novalue')  ????
     101    CHARACTER (LEN=80)                ::  time_fac_type       ='MDH'                !< Type of time treatment in the emis DEFAULT mode: HOUR .OR. MDH
    96102
    97     LOGICAL      ::  constant_top_csflux(99)               = .TRUE.                !< chem spcs at the top  orig .TRUE.
    98     LOGICAL      ::  constant_csflux(99)                   = .TRUE.                !< chem spcs at namelist parameter   orig TRUE
    99     LOGICAL      ::  call_chem_at_all_substeps             = .FALSE.               !< namelist parameter
    100     LOGICAL      ::  chem_debug0                           = .FALSE.               !< namelist parameter flag for minimum print output
    101     LOGICAL      ::  chem_debug1                           = .FALSE.               !< namelist parameter flag for print output
    102     LOGICAL      ::  chem_debug2                           = .FALSE.               !< namelist parameter flag for further print output
    103     LOGICAL      ::  chem_gasphase_on                      = .TRUE.                !< namelist parameter
    104     LOGICAL      ::  emission_output_required              = .TRUE.                !< Logical Variable for requiring Emission Outputs
    105     LOGICAL      ::  do_emis                               = .FALSE.               !< Flag for turning on chemistry emissions
    106     LOGICAL      ::  cs_pr_namelist_found                  = .FALSE.               !< Namelist parameter: Names of t
    107     LOGICAL      ::  do_depo                               = .FALSE.               !< namelist parameter for activation of deposition calculation
     103    INTEGER(iwp), DIMENSION(99)            ::  cs_pr_index                           = 0      !< index for chemical species profile (ecc)
     104    INTEGER(iwp)                           ::  cs_pr_count                           = 0      !< namelist parameter : No. of species profiles (ecc)
     105    INTEGER(iwp)                           ::  cs_vertical_gradient_level_ind(99,10) = -9999  !< grid index values of cs_vertical_gradient_level_ind(s)
     106    INTEGER(iwp)                           ::  ibc_cs_b                                       !< integer flag for bc_cs_b
     107    INTEGER(iwp)                           ::  ibc_cs_t                                       !< integer flag for bc_cs_t
     108    INTEGER(iwp),ALLOCATABLE,DIMENSION(:)  ::  match_spec_input                               !< Index of Input chem species for matching routine
     109    INTEGER(iwp),ALLOCATABLE,DIMENSION(:)  ::  match_spec_model                               !< Index of Model chem species for matching routine
     110    INTEGER(iwp),DIMENSION(:)              ::  match_spec_nox(1:2)                            !< results of matching the input and model's NOx
     111    INTEGER(iwp),DIMENSION(:)              ::  match_spec_pm(1:3)                             !< results of matching the input and model's PMs
     112    INTEGER(iwp),DIMENSION(:)              ::  match_spec_sox(1:2)                            !< results of matching the input and model's SOx!
     113    INTEGER(iwp),ALLOCATABLE,DIMENSION(:)  ::  match_spec_voc_input                           !< index of VOC input components matching the model's VOCs
     114    INTEGER(iwp),ALLOCATABLE,DIMENSION(:)  ::  match_spec_voc_model                           !< index of VOC model species matching the input VOCs comp.
     115    INTEGER(iwp)                           ::  main_street_id                        = 0      !< namelist parameter for chem_emissions : ID for main streets 
     116    INTEGER(iwp)                           ::  max_pr_cs                             = 0      !< namelist parameter : Max no. of species profiles (ecc)
     117    INTEGER(iwp)                           ::  max_street_id                         = 0      !< namelist parameter for chem_emissions : maximum street IDs     
     118    INTEGER(iwp)                           ::  nspec_out                                      !< Output of routine chem_emis_matching with
     119    INTEGER(iwp)                           ::  side_street_id                        = 0      !< namelist paramtger for chem_emissions : ID for side streets
    108120
    109 
     121    LOGICAL      ::  constant_top_csflux(99)               = .TRUE.   !< chem spcs at the top  orig .TRUE.
     122    LOGICAL      ::  constant_csflux(99)                   = .TRUE.   !< chem spcs at namelist parameter   orig TRUE
     123    LOGICAL      ::  call_chem_at_all_substeps             = .FALSE.  !< namelist parameter
     124    LOGICAL      ::  chem_debug0                           = .FALSE.  !< namelist parameter flag for minimum print output
     125    LOGICAL      ::  chem_debug1                           = .FALSE.  !< namelist parameter flag for print output
     126    LOGICAL      ::  chem_debug2                           = .FALSE.  !< namelist parameter flag for further print output
     127    LOGICAL      ::  chem_gasphase_on                      = .TRUE.   !< namelist parameter
     128    LOGICAL      ::  emission_output_required              = .TRUE.   !< Logical Variable for requiring Emission Outputs
     129    LOGICAL      ::  cs_pr_namelist_found                  = .FALSE.  !< Namelist parameter: Names of t
     130    LOGICAL      ::  deposition_dry                        = .FALSE.  !< namelist parameter for activation of deposition calculation
     131    LOGICAL      ::  emissions_anthropogenic               = .FALSE.  !< Flag for turning on anthropogenic emissions
    110132!
    111133!-- Namelist parameters for creating initial chemistry profiles
    112     REAL(wp) ::  wall_csflux (99,0:5)               = 0.0_wp                        !< namelist parameter
    113     REAL(wp) ::  cs_vertical_gradient (99,10)       = 0.0_wp                        !< namelist parameter
    114     REAL(wp) ::  cs_vertical_gradient_level (99,10) = -999999.9_wp                  !< namelist parameter
    115     REAL(wp) ::  top_csflux ( 99 )                  = 0.0_wp                        !< namelist parameter
    116     REAL(wp) ::  cs_surface_initial_change(99)      = 0.0_wp                        !< namelist parameter
    117     REAL(wp) ::  surface_csflux(99 )                = 0.0_wp                        !< namelist parameter: fluxes where 'surface_csflux_name' is in the namelist
     134    REAL(wp)                                          ::  cs_surface_initial_change(99)     = 0.0_wp        !< namelist parameter : initial surface flux difference
     135    REAL(wp)                                          ::  cs_vertical_gradient(99,10)       = 0.0_wp        !< namelist parameter : vertical gradient
     136    REAL(wp)                                          ::  cs_vertical_gradient_level(99,10) = -999999.9_wp  !< namelist parameter : vertical gradient level
     137    REAL(wp)                                          ::  surface_csflux(99)                = 0.0_wp        !< namelist parameter : fluxes where 'surface_csflux_name' is
     138                                                                                                            !< in the namelist
     139    REAL(wp)                                          ::  top_csflux(99)                    = 0.0_wp        !< namelist parameter : chemical species flux at ceiling
     140    REAL(wp)                                          ::  wall_csflux(99,0:5)               = 0.0_wp        !< namelist parameter : chemical species flux lateral
     141    REAL(wp), DIMENSION(:), ALLOCATABLE               ::  bc_cs_t_val                                       !< chemical specices time value at BC
     142    REAL(wp), DIMENSION(:,:,:), POINTER               ::  cs                                                !< pointer: sgs chem spcs)
     143    REAL(wp), DIMENSION(:,:,:,:), ALLOCATABLE, TARGET ::  cs_1                                              !< pointer for swapping of timelevels for respective quantity
     144    REAL(wp), DIMENSION(:,:,:,:), ALLOCATABLE, TARGET ::  cs_2                                              !< pointer for swapping of timelevels for respective quantity
     145    REAL(wp), DIMENSION(:,:,:,:), ALLOCATABLE, TARGET ::  cs_3                                              !< pointer for swapping of timelevels for respective quantity
     146    REAL(wp), DIMENSION(:,:,:), POINTER               ::  cs_p                                              !< pointer: prognostic value of sgs chem spcs
     147    REAL(wp), DIMENSION(:), ALLOCATABLE               ::  css                                               !< scaling parameter for chem spcs
     148    REAL(wp), DIMENSION(99,100)                       ::  cs_profile                        = 9999999.9_wp  !< Namelist parameter: Chem conc for each spcs defined
     149    REAL(wp), DIMENSION(99,100)                       ::  cs_heights                        = 9999999.9_wp  !< Namelist parameter: Height lvls(m) for cs_profiles
     150    REAL(wp), DIMENSION(99)                           ::  cs_surface                        = 0.0_wp        !< Namelist parameter: Surface conc of chem spcs'
     151    REAL(wp),ALLOCATABLE, DIMENSION(:,:,:,:)          ::  emis_distribution                                 !< Emissions Final Values (main module output)
     152    REAL(wp)                                          ::  emiss_factor_main(99)             = -9999.0_wp    !< emission factor for main streets
     153    REAL(wp)                                          ::  emiss_factor_side(99)             = -9999.0_wp    !< emission factor for side streets
     154    REAL(wp), DIMENSION(:,:,:), POINTER               ::  tcs_m                                             !< pointer: to tcs array (temp)
     155!
     156!-- molecular weights
     157    REAL, PARAMETER        ::  xm_air   =   28.964e-3             !< air      molecular weight (kg/mol)
     158    REAL, PARAMETER        ::  xm_C     =   12.01115e-3           !< C        molecular weight (kg/mol)
     159    REAL, PARAMETER        ::  xm_Ca    =   40.07800e-3           !< Ca       molecular weight (kg/mol)
     160    REAL, PARAMETER        ::  xm_Cd    =  112.41000e-3           !< Cd       molecular weight (kg/mol)
     161    REAL, PARAMETER        ::  xm_Cl    =   35.45300e-3           !< Cl       molecular weight (kg/mol)
     162    REAL, PARAMETER        ::  xm_dummy = 1000.0e-3               !< dummy    molecular weight (kg/mol)
     163    REAL, PARAMETER        ::  xm_F     =   18.99840e-3           !< F        molecular weight (kg/mol)
     164    REAL, PARAMETER        ::  xm_H     =    1.00790e-3           !< H        molecular weight (kg/mol)
     165    REAL, PARAMETER        ::  xm_K     =   39.09800e-3           !< K        molecular weight (kg/mol)
     166    REAL, PARAMETER        ::  xm_Mg    =   24.30500e-3           !< Mg       molecular weight (kg/mol)
     167    REAL, PARAMETER        ::  xm_N     =   14.00670e-3           !< N        molecular weight (kg/mol)
     168    REAL, PARAMETER        ::  xm_Na    =   22.98977e-3           !< Na       molecular weight (kg/mol)
     169    REAL, PARAMETER        ::  xm_O     =   15.99940e-3           !< O        molecular weight (kg/mol)
     170    REAL, PARAMETER        ::  xm_Pb    =  207.20000e-3           !< Pb       molecular weight (kg/mol)
     171    REAL, PARAMETER        ::  xm_Pb210 =  210.00000e-3           !< Pb (210) molecular weight (kg/mol)
     172    REAL, PARAMETER        ::  xm_Rn222 =  222.00000e-3           !< Rn (222) molecular weight (kg/mol)
     173    REAL, PARAMETER        ::  xm_S     =   32.06400e-3           !< S        molecular weight (kg/mol)
     174    REAL, PARAMETER        ::  xm_CO2   = xm_C + xm_O * 2         !< CO2      molecular weight (kg/mol)
     175    REAL, PARAMETER        ::  xm_h2o   = xm_H * 2 + xm_O         !< H2O      molecular weight (kg/mol)
     176    REAL, PARAMETER        ::  xm_HNO3  = xm_H + xm_N + xm_O * 3  !< HNO3     molecular weight (kg/mol)
     177    REAL, PARAMETER        ::  xm_o3    = xm_O * 3                !< O3       molecular weight (kg/mol)
     178    REAL, PARAMETER        ::  xm_N2O5  = xm_N * 2 + xm_O * 5     !< N2O5     molecular weight (kg/mol)
     179    REAL, PARAMETER        ::  xm_NH4   = xm_N + xm_H * 4         !< NH4      molecular weight (kg/mol)
     180    REAL, PARAMETER        ::  xm_NO3   = xm_N + xm_O * 3         !< NO3      molecular weight (kg/mol)
     181    REAL, PARAMETER        ::  xm_SO4   = xm_S + xm_O * 4         !< SO4      molecular weight (kg/mol)
    118182
    119     REAL(wp), DIMENSION(:), ALLOCATABLE               ::  bc_cs_t_val
    120     REAL(wp), DIMENSION(:), ALLOCATABLE               ::  css                       !< scaling parameter for chem spcs
    121     REAL(wp), DIMENSION(99)                           ::  cs_surface = 0.0_wp       !< Namelist parameter: Surface conc of chem spcs'
    122     REAL(wp), DIMENSION(99,100)                       ::  cs_heights = 9999999.9_wp !< Namelist parameter: Height lvls(m) for cs_profiles
    123     REAL(wp), DIMENSION(99,100)                       ::  cs_profile = 9999999.9_wp !< Namelist parameter: Chem conc for each spcs defined
     183    SAVE
    124184
    125 !
    126 !-- Use pointers cs, cs_p and tcs_m to point arrays cs_1, cs_2, and cs_3
    127     REAL(wp), DIMENSION(:,:,:,:), ALLOCATABLE, TARGET ::  cs_1                      !< pointer for swapping of timelevels for respective quantity
    128     REAL(wp), DIMENSION(:,:,:,:), ALLOCATABLE, TARGET ::  cs_2                      !< pointer for swapping of timelevels for respective quantity
    129     REAL(wp), DIMENSION(:,:,:,:), ALLOCATABLE, TARGET ::  cs_3                      !< pointer for swapping of timelevels for respective quantity
    130     REAL(wp), DIMENSION(:,:,:), POINTER               ::  cs                        !< pointer: sgs chem spcs)
    131     REAL(wp), DIMENSION(:,:,:), POINTER               ::  cs_p                      !< pointer: prognostic value of sgs chem spcs
    132     REAL(wp), DIMENSION(:,:,:), POINTER               ::  tcs_m                     !< pointer:
    133  
    134     CHARACTER (LEN=20)                ::  bc_cs_b             = 'dirichlet'         !< namelist parameter
    135     CHARACTER (LEN=20)                ::  bc_cs_t             = 'initial_gradient'  !< namelist parameter
    136     CHARACTER (LEN=11), DIMENSION(99) ::  cs_name             = 'novalue'           !< Namelist parameter: chem spcs names
    137     CHARACTER (LEN=11), DIMENSION(99) ::  cs_profile_name     = 'novalue'           !< Namelist parameter: Names of the chem for profiles
    138     CHARACTER (LEN=11), DIMENSION(99) ::  surface_csflux_name = 'novalue'           !< Namelist parameter: chem species surface fluxes names
    139                                                                                     !< active chem spcs, default is 'novalue')  ????
    140     CHARACTER (LEN=80)                ::  mode_emis           ='PARAMETERIZED'      !< Mode of chemistry emissions: DEFAULT .OR. EXPERT .OR.
    141                                                                                     !< PARAMETERIZED
    142     CHARACTER (LEN=80)                ::  time_fac_type       ='MDH'                !< Type of time treatment in the emis DEFAULT mode: HOUR .OR. MDH
    143     CHARACTER (LEN=80)                ::  daytype_mdh         ='workday'            !< Type of day in the MDH case: workday, weekend, holiday
    144     CHARACTER (LEN=11), DIMENSION(99) ::  data_output_pr_cs   = 'novalue'           !< Namelist parameter: Names of the chem species for profile output
    145                                                                                     !< by cs_name for each height lvls defined by cs_heights
    146     CHARACTER (LEN=30)                ::  chem_mechanism      = 'phstatp'           !< Namelist parameter: Name of chemistry mechanism
    147                                                                                     !< (must match with third line in chem_gasphase_mod.f90)
    148 !
    149 !-- Namelist parameters for chem_emissions
    150     INTEGER(iwp) ::  main_street_id = 0
    151     INTEGER(iwp) ::  max_street_id  = 0
    152     INTEGER(iwp) ::  side_street_id = 0
    153 !
    154 !-- Constant emission factors
    155     REAL(wp) ::  emiss_factor_main ( 99 ) = -9999.0_wp
    156     REAL(wp) ::  emiss_factor_side ( 99 ) = -9999.0_wp
    157 !   
    158 !-- Other Emissions Variables
    159     INTEGER(iwp) ::  nspec_out                                                     !< Output of routine chem_emis_matching with
    160                                                                                    !< number of matched species
    161     REAL(wp),ALLOCATABLE, DIMENSION(:,:,:,:) ::  emis_distribution                 !> Emissions Final Values (main module output)
    162 
    163     INTEGER(iwp),ALLOCATABLE,DIMENSION(:)    ::  match_spec_input                  !< Index of Input chem species for matching routine
    164     INTEGER(iwp),ALLOCATABLE,DIMENSION(:)    ::  match_spec_model                  !< Index of Model chem species for matching routine
    165     INTEGER(iwp),ALLOCATABLE,DIMENSION(:)    ::  match_spec_voc_input              !< index of VOC input components matching the model's VOCs
    166     INTEGER(iwp),ALLOCATABLE,DIMENSION(:)    ::  match_spec_voc_model              !< index of VOC model species matching the input VOCs comp.
    167     INTEGER(iwp),DIMENSION(:)                ::  match_spec_pm(1:3)                !< results of matching the input and model's PMs
    168     INTEGER(iwp),DIMENSION(:)                ::  match_spec_nox(1:2)               !< results of matching the input and model's NOx
    169     INTEGER(iwp),DIMENSION(:)                ::  match_spec_sox(1:2)               !< results of matching the input and model's SOx!
    170                                                                                  
    171 
    172 !
    173 !-- Selected atomic/molecular weights:
    174     REAL, PARAMETER        ::  xm_H     =    1.00790e-3           !< kg/mol
    175     REAL, PARAMETER        ::  xm_N     =   14.00670e-3           !< kg/mol
    176     REAL, PARAMETER        ::  xm_C     =   12.01115e-3           !< kg/mol
    177     REAL, PARAMETER        ::  xm_S     =   32.06400e-3           !< kg/mol
    178     REAL, PARAMETER        ::  xm_O     =   15.99940e-3           !< kg/mol
    179     REAL, PARAMETER        ::  xm_F     =   18.99840e-3           !< kg/mol
    180     REAL, PARAMETER        ::  xm_Na    =   22.98977e-3           !< kg/mol
    181     REAL, PARAMETER        ::  xm_Cl    =   35.45300e-3           !< kg/mol
    182     REAL, PARAMETER        ::  xm_Rn222 =  222.00000e-3           !< kg/mol
    183     REAL, PARAMETER        ::  xm_Pb210 =  210.00000e-3           !< kg/mol
    184     REAL, PARAMETER        ::  xm_Ca    =   40.07800e-3           !< kg/mol
    185     REAL, PARAMETER        ::  xm_K     =   39.09800e-3           !< kg/mol
    186     REAL, PARAMETER        ::  xm_Mg    =   24.30500e-3           !< kg/mol
    187     REAL, PARAMETER        ::  xm_Pb    =  207.20000e-3           !< kg/mol
    188     REAL, PARAMETER        ::  xm_Cd    =  112.41000e-3           !< kg/mol
    189    
    190     REAL, PARAMETER        ::  xm_h2o   = xm_H * 2 + xm_O         !< kg/mol
    191     REAL, PARAMETER        ::  xm_o3    = xm_O * 3                !< kg/mol
    192     REAL, PARAMETER        ::  xm_N2O5  = xm_N * 2 + xm_O * 5     !< kg/mol
    193     REAL, PARAMETER        ::  xm_HNO3  = xm_H + xm_N + xm_O * 3  !< kg/mol
    194     REAL, PARAMETER        ::  xm_NH4   = xm_N + xm_H * 4         !< kg/mol
    195     REAL, PARAMETER        ::  xm_SO4   = xm_S + xm_O * 4         !< kg/mol
    196     REAL, PARAMETER        ::  xm_NO3   = xm_N + xm_O * 3         !< kg/mol
    197     REAL, PARAMETER        ::  xm_CO2   = xm_C + xm_O * 2         !< kg/mol
    198    
    199 !
    200 !-- mass of air
    201     REAL, PARAMETER        ::  xm_air   =  28.964e-3              !< kg/mol
    202        
    203 !
    204 !-- dummy weight, used for complex molecules:
    205     REAL, PARAMETER        ::  xm_dummy =  1000.0e-3              ! kg/mol
    206 
    207    
    208     SAVE
    209185 END MODULE chem_modules
    210 
  • palm/trunk/SOURCE/chemistry_model_mod.f90

    r3796 r3820  
    2727! -----------------
    2828! $Id: chemistry_model_mod.f90 3784 2019-03-05 14:16:20Z banzhafs
     29! renamed get_mechanismname to get_mechanism_name
     30! renamed do_emiss to emissions_anthropogenic and do_depo to deposition_dry (ecc)
     31!
     32! 3784 2019-03-05 14:16:20Z banzhafs
    2933! Unused variables removed/taken care of
    3034!
     
    303307
    304308    USE chem_gasphase_mod,                                                                         &
    305          ONLY:  atol, chem_gasphase_integrate, get_mechanismname, nkppctrl, nmaxfixsteps,          &
     309         ONLY:  atol, chem_gasphase_integrate, get_mechanism_name, nkppctrl, nmaxfixsteps,         &
    306310         nphot, nreact, nspec, nvar, phot_names, rtol, spc_names, t_steps, vl_dim
    307311
     
    11951199    ENDIF
    11961200!-- check for chemical mechanism used
    1197     CALL get_mechanismname
     1201    CALL get_mechanism_name
    11981202    IF (chem_mechanism /= trim(cs_mech) )  THEN
    11991203       message_string = 'Incorrect chemistry mechanism selected, check spelling in namelist and/or chem_gasphase_mod'
     
    16401644!
    16411645! Get name of chemical mechanism from chem_gasphase_mod
    1642     CALL get_mechanismname
     1646    CALL get_mechanism_name
    16431647
    16441648!-- Write chemistry model  header
     
    17731777
    17741778
    1775     IF ( do_emis )  CALL chem_emissions_init
     1779    IF ( emissions_anthropogenic )  CALL chem_emissions_init
    17761780!
    17771781!-- Chemistry variables will be initialized if availabe from dynamic
     
    18181822    INTEGER(iwp) ::  lpr_lev           !< running index for chem spcs profile level
    18191823
    1820     IF ( do_emis ) THEN
     1824    IF ( emissions_anthropogenic ) THEN
    18211825       CALL netcdf_data_input_chemistry_data( chem_emis_att, chem_emis )
    18221826    ENDIF
     
    22022206         cs_profile,                       &
    22032207         cs_surface,                       &
     2208         cs_surface_initial_change,        &
     2209         cs_vertical_gradient_level,       &
     2210         daytype_mdh,                      &
    22042211         decycle_chem_lr,                  &
    22052212         decycle_chem_ns,                  &           
    22062213         decycle_method,                   &
    2207          do_depo,                          &
     2214         deposition_dry,                   &
     2215         emissions_anthropogenic           & 
    22082216         emiss_factor_main,                &
    22092217         emiss_factor_side,                &                     
     
    22112219         main_street_id,                   &
    22122220         max_street_id,                    &
     2221         mode_emis,                        &
    22132222         my_steps,                         &
    22142223         nest_chemistry,                   &
     
    22212230         surface_csflux,                   &
    22222231         surface_csflux_name,              &
    2223          cs_surface_initial_change,        &
    2224          cs_vertical_gradient_level,       &
    2225          !                                       namelist parameters for emissions
    2226          mode_emis,                        &
    2227          time_fac_type,                    &
    2228          daytype_mdh,                      &
    2229          do_emis                             
     2232         time_fac_type,
    22302233
    22312234    !-- analogue to chem_names(nspj) we could invent chem_surfaceflux(nspj) and chem_topflux(nspj)
     
    33063309
    33073310          !
    3308           !-- Get vd
     3311          !-- Get deposition velocity vd
    33093312          DO  lsp = 1, nvar
    33103313             !
  • palm/trunk/SOURCE/prognostic_equations.f90

    r3797 r3820  
    2525! -----------------
    2626! $Id$
     27! renamed do_depo to deposition_dry (ecc)
     28!
     29! 3797 2019-03-15 11:15:38Z forkel
    2730! Call chem_integegrate in OpenMP loop   (ketelsen)
    2831!
     
    372375           
    373376    USE chem_modules,                                                          &
    374         ONLY:  call_chem_at_all_substeps, chem_gasphase_on, cs_name, do_depo
     377        ONLY:  call_chem_at_all_substeps, chem_gasphase_on, cs_name,           &
     378               deposition_dry
    375379
    376380    USE chem_photolysis_mod,                                                   &
     
    546550             CALL cpu_log( log_point_s(19), 'chem.reactions', 'stop' )
    547551
    548              IF ( do_depo )  THEN
     552             IF ( deposition_dry )  THEN
    549553                CALL cpu_log( log_point_s(24), 'chem.deposition', 'start' )
    550554                DO  i = nxl, nxr
  • palm/trunk/SOURCE/time_integration.f90

    r3774 r3820  
    2525! -----------------
    2626! $Id$
     27! renamed do_emiss to emissions_anthropogenic (ecc)
     28!
     29!
     30! 3774 2019-03-04 10:52:49Z moh.hefny
    2731! rephrase if statement to avoid unallocated array in case of
    2832! nesting_offline is false (crashing during debug mode)
     
    486490
    487491    USE chem_modules,                                                                              &
    488         ONLY:  bc_cs_t_val, cs_name, do_emis, nspec, nspec_out
     492        ONLY:  bc_cs_t_val, cs_name, emissions_anthropogenic, nspec, nspec_out
    489493
    490494    USE chemistry_model_mod,                                                                       &
     
    13861390!
    13871391!--    If required, consider chemical emissions
    1388        IF ( air_chemistry  .AND.  do_emis )  THEN
     1392       IF ( air_chemistry  .AND.  emissions_anthropogenic )  THEN
    13891393!
    13901394!--       Update the time --> kanani: revise location of this CALL
  • palm/trunk/TESTS/cases/urban_environment/INPUT/urban_environment_p3d

    r3653 r3820  
    231231    bc_cs_t                    = 'neumann',
    232232   
    233     do_emis                    = .T.,
     233    emissions_anthropogenic    = .T.,
    234234    mode_emis                  = 'PARAMETERIZED',  ! emission depending on street type from static driver
    235235    surface_csflux_name        = 'NO',   'NO2',  'PM10',   !"cs" stands for chemical species
  • palm/trunk/TESTS/cases/urban_environment_restart/INPUT/urban_environment_restart_p3dr

    r3653 r3820  
    230230    bc_cs_t                    = 'neumann',
    231231   
    232     do_emis                    = .T.,
     232    emissions_anthropogenic    = .T.,
    233233    mode_emis                  = 'PARAMETERIZED',  ! emission depending on street type from static driver
    234234    surface_csflux_name        = 'NO',   'NO2',  'PM10',   !"cs" stands for chemical species
  • palm/trunk/UTIL/chemistry/gasphase_preproc/kpp4palm/src/create_kpp_module.C

    r3799 r3820  
    1313//Former revisions:
    1414//-----------------
     15// renamed get_mechanismname to get_mechanism_name                        (26.03.2019, forkel):w
     16//
     17//
    1518// Deleted $Id since document_changes does not work for C and C++         (15.03.2019, forkel)
    1619//
     
    498501   program_line                    line;
    499502
    500    kppi.set_name("get_mechanismname");
    501    kppi.add_line("SUBROUTINE get_mechanismname                                        ");
     503   kppi.set_name("get_mechanism_name");
     504   kppi.add_line("SUBROUTINE get_mechanism_name                                       ");
    502505   kppi.add_line("                                                                    ");
    503506   kppi.add_line("  IMPLICIT NONE                                                     ");
     
    521524   kppi.add_line("                                                                    ");
    522525   kppi.add_line("  return                                                            ");
    523    kppi.add_line("END SUBROUTINE get_mechanismname                                    ");
     526   kppi.add_line("END SUBROUTINE get_mechanism_name                                   ");
    524527   kppi.add_line("                                                                    ");
    525528   kpp_subroutines.push_back(kppi);
  • palm/trunk/UTIL/chemistry/gasphase_preproc/kpp4palm/templates/module_header

    r3780 r3820  
    7878  PUBLIC :: chem_gasphase_integrate
    7979  PUBLIC :: initialize_kpp_ctrl
    80   PUBLIC :: get_mechanismname
     80  PUBLIC :: get_mechanism_name
    8181
    8282! END OF MODULE HEADER TEMPLATE
  • palm/trunk/UTIL/chemistry/gasphase_preproc/mechanisms/def_cbm4/chem_gasphase_mod.f90

    r3800 r3820  
    8282  PUBLIC :: chem_gasphase_integrate
    8383  PUBLIC :: initialize_kpp_ctrl
    84   PUBLIC :: get_mechanismname
     84  PUBLIC :: get_mechanism_name
    8585
    8686! END OF MODULE HEADER TEMPLATE
     
    114114!
    115115! File                 : chem_gasphase_mod_Parameters.f90
    116 ! Time                 : Fri Mar 15 17:37:39 2019
    117 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     116! Time                 : Wed Mar 27 09:51:33 2019
     117! Working directory    : /home/forkel-r/palmstuff/work/trunk20190327/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    118118! Equation file        : chem_gasphase_mod.kpp
    119119! Output root filename : chem_gasphase_mod
     
    221221!
    222222! File                 : chem_gasphase_mod_Global.f90
    223 ! Time                 : Fri Mar 15 17:37:39 2019
    224 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     223! Time                 : Wed Mar 27 09:51:33 2019
     224! Working directory    : /home/forkel-r/palmstuff/work/trunk20190327/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    225225! Equation file        : chem_gasphase_mod.kpp
    226226! Output root filename : chem_gasphase_mod
     
    286286!
    287287! File                 : chem_gasphase_mod_JacobianSP.f90
    288 ! Time                 : Fri Mar 15 17:37:39 2019
    289 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     288! Time                 : Wed Mar 27 09:51:33 2019
     289! Working directory    : /home/forkel-r/palmstuff/work/trunk20190327/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    290290! Equation file        : chem_gasphase_mod.kpp
    291291! Output root filename : chem_gasphase_mod
     
    382382!
    383383! File                 : chem_gasphase_mod_Monitor.f90
    384 ! Time                 : Fri Mar 15 17:37:39 2019
    385 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     384! Time                 : Wed Mar 27 09:51:33 2019
     385! Working directory    : /home/forkel-r/palmstuff/work/trunk20190327/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    386386! Equation file        : chem_gasphase_mod.kpp
    387387! Output root filename : chem_gasphase_mod
     
    545545!
    546546! File                 : chem_gasphase_mod_Initialize.f90
    547 ! Time                 : Fri Mar 15 17:37:39 2019
    548 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     547! Time                 : Wed Mar 27 09:51:33 2019
     548! Working directory    : /home/forkel-r/palmstuff/work/trunk20190327/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    549549! Equation file        : chem_gasphase_mod.kpp
    550550! Output root filename : chem_gasphase_mod
     
    571571!
    572572! File                 : chem_gasphase_mod_Integrator.f90
    573 ! Time                 : Fri Mar 15 17:37:39 2019
    574 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     573! Time                 : Wed Mar 27 09:51:33 2019
     574! Working directory    : /home/forkel-r/palmstuff/work/trunk20190327/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    575575! Equation file        : chem_gasphase_mod.kpp
    576576! Output root filename : chem_gasphase_mod
     
    629629!
    630630! File                 : chem_gasphase_mod_LinearAlgebra.f90
    631 ! Time                 : Fri Mar 15 17:37:39 2019
    632 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     631! Time                 : Wed Mar 27 09:51:33 2019
     632! Working directory    : /home/forkel-r/palmstuff/work/trunk20190327/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    633633! Equation file        : chem_gasphase_mod.kpp
    634634! Output root filename : chem_gasphase_mod
     
    656656!
    657657! File                 : chem_gasphase_mod_Jacobian.f90
    658 ! Time                 : Fri Mar 15 17:37:39 2019
    659 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     658! Time                 : Wed Mar 27 09:51:33 2019
     659! Working directory    : /home/forkel-r/palmstuff/work/trunk20190327/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    660660! Equation file        : chem_gasphase_mod.kpp
    661661! Output root filename : chem_gasphase_mod
     
    683683!
    684684! File                 : chem_gasphase_mod_Function.f90
    685 ! Time                 : Fri Mar 15 17:37:39 2019
    686 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     685! Time                 : Wed Mar 27 09:51:33 2019
     686! Working directory    : /home/forkel-r/palmstuff/work/trunk20190327/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    687687! Equation file        : chem_gasphase_mod.kpp
    688688! Output root filename : chem_gasphase_mod
     
    712712!
    713713! File                 : chem_gasphase_mod_Rates.f90
    714 ! Time                 : Fri Mar 15 17:37:39 2019
    715 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     714! Time                 : Wed Mar 27 09:51:33 2019
     715! Working directory    : /home/forkel-r/palmstuff/work/trunk20190327/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    716716! Equation file        : chem_gasphase_mod.kpp
    717717! Output root filename : chem_gasphase_mod
     
    738738!
    739739! File                 : chem_gasphase_mod_Util.f90
    740 ! Time                 : Fri Mar 15 17:37:39 2019
    741 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     740! Time                 : Wed Mar 27 09:51:33 2019
     741! Working directory    : /home/forkel-r/palmstuff/work/trunk20190327/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    742742! Equation file        : chem_gasphase_mod.kpp
    743743! Output root filename : chem_gasphase_mod
     
    845845  END INTERFACE        kppdecomp
    846846 
    847   INTERFACE            get_mechanismname
    848     MODULE PROCEDURE   get_mechanismname
    849   END INTERFACE        get_mechanismname
     847  INTERFACE            get_mechanism_name
     848    MODULE PROCEDURE   get_mechanism_name
     849  END INTERFACE        get_mechanism_name
    850850 
    851851  INTERFACE            chem_gasphase_integrate
     
    39693969  END SUBROUTINE kppdecomp                                           
    39703970 
    3971 SUBROUTINE get_mechanismname                                        
     3971SUBROUTINE get_mechanism_name                                       
    39723972                                                                   
    39733973  IMPLICIT NONE                                                     
     
    39773977                                                                   
    39783978  RETURN                                                           
    3979 END SUBROUTINE get_mechanismname                                    
     3979END SUBROUTINE get_mechanism_name                                   
    39803980                                                                   
    39813981 
  • palm/trunk/UTIL/chemistry/gasphase_preproc/mechanisms/def_passive/chem_gasphase_mod.f90

    r3800 r3820  
    8282  PUBLIC :: chem_gasphase_integrate
    8383  PUBLIC :: initialize_kpp_ctrl
    84   PUBLIC :: get_mechanismname
     84  PUBLIC :: get_mechanism_name
    8585
    8686! END OF MODULE HEADER TEMPLATE
     
    114114!
    115115! File                 : chem_gasphase_mod_Parameters.f90
    116 ! Time                 : Fri Mar 15 17:37:40 2019
    117 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     116! Time                 : Wed Mar 27 09:51:34 2019
     117! Working directory    : /home/forkel-r/palmstuff/work/trunk20190327/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    118118! Equation file        : chem_gasphase_mod.kpp
    119119! Output root filename : chem_gasphase_mod
     
    189189!
    190190! File                 : chem_gasphase_mod_Global.f90
    191 ! Time                 : Fri Mar 15 17:37:40 2019
    192 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     191! Time                 : Wed Mar 27 09:51:34 2019
     192! Working directory    : /home/forkel-r/palmstuff/work/trunk20190327/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    193193! Equation file        : chem_gasphase_mod.kpp
    194194! Output root filename : chem_gasphase_mod
     
    254254!
    255255! File                 : chem_gasphase_mod_JacobianSP.f90
    256 ! Time                 : Fri Mar 15 17:37:40 2019
    257 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     256! Time                 : Wed Mar 27 09:51:34 2019
     257! Working directory    : /home/forkel-r/palmstuff/work/trunk20190327/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 15 17:37:40 2019
    301 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     300! Time                 : Wed Mar 27 09:51:34 2019
     301! Working directory    : /home/forkel-r/palmstuff/work/trunk20190327/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 15 17:37:40 2019
    361 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     360! Time                 : Wed Mar 27 09:51:34 2019
     361! Working directory    : /home/forkel-r/palmstuff/work/trunk20190327/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 15 17:37:40 2019
    387 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     386! Time                 : Wed Mar 27 09:51:34 2019
     387! Working directory    : /home/forkel-r/palmstuff/work/trunk20190327/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 15 17:37:40 2019
    445 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     444! Time                 : Wed Mar 27 09:51:34 2019
     445! Working directory    : /home/forkel-r/palmstuff/work/trunk20190327/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 15 17:37:40 2019
    472 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     471! Time                 : Wed Mar 27 09:51:34 2019
     472! Working directory    : /home/forkel-r/palmstuff/work/trunk20190327/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 15 17:37:40 2019
    499 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     498! Time                 : Wed Mar 27 09:51:34 2019
     499! Working directory    : /home/forkel-r/palmstuff/work/trunk20190327/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 15 17:37:40 2019
    528 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     527! Time                 : Wed Mar 27 09:51:34 2019
     528! Working directory    : /home/forkel-r/palmstuff/work/trunk20190327/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 15 17:37:40 2019
    554 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     553! Time                 : Wed Mar 27 09:51:34 2019
     554! Working directory    : /home/forkel-r/palmstuff/work/trunk20190327/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    555555! Equation file        : chem_gasphase_mod.kpp
    556556! Output root filename : chem_gasphase_mod
     
    658658  END INTERFACE        kppdecomp
    659659 
    660   INTERFACE            get_mechanismname
    661     MODULE PROCEDURE   get_mechanismname
    662   END INTERFACE        get_mechanismname
     660  INTERFACE            get_mechanism_name
     661    MODULE PROCEDURE   get_mechanism_name
     662  END INTERFACE        get_mechanism_name
    663663 
    664664  INTERFACE            chem_gasphase_integrate
     
    22492249  END SUBROUTINE kppdecomp                                           
    22502250 
    2251 SUBROUTINE get_mechanismname                                        
     2251SUBROUTINE get_mechanism_name                                       
    22522252                                                                   
    22532253  IMPLICIT NONE                                                     
     
    22572257                                                                   
    22582258  RETURN                                                           
    2259 END SUBROUTINE get_mechanismname                                    
     2259END SUBROUTINE get_mechanism_name                                   
    22602260                                                                   
    22612261 
  • palm/trunk/UTIL/chemistry/gasphase_preproc/mechanisms/def_passive1/chem_gasphase_mod.f90

    r3800 r3820  
    8282  PUBLIC :: chem_gasphase_integrate
    8383  PUBLIC :: initialize_kpp_ctrl
    84   PUBLIC :: get_mechanismname
     84  PUBLIC :: get_mechanism_name
    8585
    8686! END OF MODULE HEADER TEMPLATE
     
    114114!
    115115! File                 : chem_gasphase_mod_Parameters.f90
    116 ! Time                 : Fri Mar 15 17:37:41 2019
    117 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     116! Time                 : Wed Mar 27 09:51:34 2019
     117! Working directory    : /home/forkel-r/palmstuff/work/trunk20190327/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    118118! Equation file        : chem_gasphase_mod.kpp
    119119! Output root filename : chem_gasphase_mod
     
    188188!
    189189! File                 : chem_gasphase_mod_Global.f90
    190 ! Time                 : Fri Mar 15 17:37:41 2019
    191 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     190! Time                 : Wed Mar 27 09:51:34 2019
     191! Working directory    : /home/forkel-r/palmstuff/work/trunk20190327/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    192192! Equation file        : chem_gasphase_mod.kpp
    193193! Output root filename : chem_gasphase_mod
     
    253253!
    254254! File                 : chem_gasphase_mod_JacobianSP.f90
    255 ! Time                 : Fri Mar 15 17:37:41 2019
    256 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     255! Time                 : Wed Mar 27 09:51:34 2019
     256! Working directory    : /home/forkel-r/palmstuff/work/trunk20190327/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 15 17:37:41 2019
    300 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     299! Time                 : Wed Mar 27 09:51:34 2019
     300! Working directory    : /home/forkel-r/palmstuff/work/trunk20190327/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 15 17:37:41 2019
    359 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     358! Time                 : Wed Mar 27 09:51:34 2019
     359! Working directory    : /home/forkel-r/palmstuff/work/trunk20190327/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 15 17:37:41 2019
    385 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     384! Time                 : Wed Mar 27 09:51:34 2019
     385! Working directory    : /home/forkel-r/palmstuff/work/trunk20190327/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 15 17:37:41 2019
    443 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     442! Time                 : Wed Mar 27 09:51:34 2019
     443! Working directory    : /home/forkel-r/palmstuff/work/trunk20190327/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 15 17:37:41 2019
    470 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     469! Time                 : Wed Mar 27 09:51:34 2019
     470! Working directory    : /home/forkel-r/palmstuff/work/trunk20190327/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 15 17:37:41 2019
    497 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     496! Time                 : Wed Mar 27 09:51:34 2019
     497! Working directory    : /home/forkel-r/palmstuff/work/trunk20190327/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 15 17:37:41 2019
    526 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     525! Time                 : Wed Mar 27 09:51:34 2019
     526! Working directory    : /home/forkel-r/palmstuff/work/trunk20190327/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 15 17:37:41 2019
    552 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     551! Time                 : Wed Mar 27 09:51:34 2019
     552! Working directory    : /home/forkel-r/palmstuff/work/trunk20190327/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    553553! Equation file        : chem_gasphase_mod.kpp
    554554! Output root filename : chem_gasphase_mod
     
    656656  END INTERFACE        kppdecomp
    657657 
    658   INTERFACE            get_mechanismname
    659     MODULE PROCEDURE   get_mechanismname
    660   END INTERFACE        get_mechanismname
     658  INTERFACE            get_mechanism_name
     659    MODULE PROCEDURE   get_mechanism_name
     660  END INTERFACE        get_mechanism_name
    661661 
    662662  INTERFACE            chem_gasphase_integrate
     
    22392239  END SUBROUTINE kppdecomp                                           
    22402240 
    2241 SUBROUTINE get_mechanismname                                        
     2241SUBROUTINE get_mechanism_name                                       
    22422242                                                                   
    22432243  IMPLICIT NONE                                                     
     
    22472247                                                                   
    22482248  RETURN                                                           
    2249 END SUBROUTINE get_mechanismname                                    
     2249END SUBROUTINE get_mechanism_name                                   
    22502250                                                                   
    22512251 
  • palm/trunk/UTIL/chemistry/gasphase_preproc/mechanisms/def_phstat/chem_gasphase_mod.f90

    r3800 r3820  
    8282  PUBLIC :: chem_gasphase_integrate
    8383  PUBLIC :: initialize_kpp_ctrl
    84   PUBLIC :: get_mechanismname
     84  PUBLIC :: get_mechanism_name
    8585
    8686! END OF MODULE HEADER TEMPLATE
     
    114114!
    115115! File                 : chem_gasphase_mod_Parameters.f90
    116 ! Time                 : Fri Mar 15 17:37:41 2019
    117 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     116! Time                 : Wed Mar 27 09:51:35 2019
     117! Working directory    : /home/forkel-r/palmstuff/work/trunk20190327/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    118118! Equation file        : chem_gasphase_mod.kpp
    119119! Output root filename : chem_gasphase_mod
     
    190190!
    191191! File                 : chem_gasphase_mod_Global.f90
    192 ! Time                 : Fri Mar 15 17:37:41 2019
    193 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     192! Time                 : Wed Mar 27 09:51:35 2019
     193! Working directory    : /home/forkel-r/palmstuff/work/trunk20190327/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    194194! Equation file        : chem_gasphase_mod.kpp
    195195! Output root filename : chem_gasphase_mod
     
    255255!
    256256! File                 : chem_gasphase_mod_JacobianSP.f90
    257 ! Time                 : Fri Mar 15 17:37:41 2019
    258 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     257! Time                 : Wed Mar 27 09:51:35 2019
     258! Working directory    : /home/forkel-r/palmstuff/work/trunk20190327/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 15 17:37:41 2019
    302 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     301! Time                 : Wed Mar 27 09:51:35 2019
     302! Working directory    : /home/forkel-r/palmstuff/work/trunk20190327/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 15 17:37:41 2019
    362 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     361! Time                 : Wed Mar 27 09:51:35 2019
     362! Working directory    : /home/forkel-r/palmstuff/work/trunk20190327/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 15 17:37:41 2019
    388 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     387! Time                 : Wed Mar 27 09:51:35 2019
     388! Working directory    : /home/forkel-r/palmstuff/work/trunk20190327/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 15 17:37:41 2019
    446 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     445! Time                 : Wed Mar 27 09:51:35 2019
     446! Working directory    : /home/forkel-r/palmstuff/work/trunk20190327/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 15 17:37:41 2019
    473 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     472! Time                 : Wed Mar 27 09:51:35 2019
     473! Working directory    : /home/forkel-r/palmstuff/work/trunk20190327/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 15 17:37:41 2019
    500 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     499! Time                 : Wed Mar 27 09:51:35 2019
     500! Working directory    : /home/forkel-r/palmstuff/work/trunk20190327/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 15 17:37:41 2019
    529 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     528! Time                 : Wed Mar 27 09:51:35 2019
     529! Working directory    : /home/forkel-r/palmstuff/work/trunk20190327/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 15 17:37:41 2019
    555 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     554! Time                 : Wed Mar 27 09:51:35 2019
     555! Working directory    : /home/forkel-r/palmstuff/work/trunk20190327/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    556556! Equation file        : chem_gasphase_mod.kpp
    557557! Output root filename : chem_gasphase_mod
     
    659659  END INTERFACE        kppdecomp
    660660 
    661   INTERFACE            get_mechanismname
    662     MODULE PROCEDURE   get_mechanismname
    663   END INTERFACE        get_mechanismname
     661  INTERFACE            get_mechanism_name
     662    MODULE PROCEDURE   get_mechanism_name
     663  END INTERFACE        get_mechanism_name
    664664 
    665665  INTERFACE            chem_gasphase_integrate
     
    22802280  END SUBROUTINE kppdecomp                                           
    22812281 
    2282 SUBROUTINE get_mechanismname                                        
     2282SUBROUTINE get_mechanism_name                                       
    22832283                                                                   
    22842284  IMPLICIT NONE                                                     
     
    22882288                                                                   
    22892289  RETURN                                                           
    2290 END SUBROUTINE get_mechanismname                                    
     2290END SUBROUTINE get_mechanism_name                                   
    22912291                                                                   
    22922292 
  • palm/trunk/UTIL/chemistry/gasphase_preproc/mechanisms/def_phstatp/chem_gasphase_mod.f90

    r3800 r3820  
    8282  PUBLIC :: chem_gasphase_integrate
    8383  PUBLIC :: initialize_kpp_ctrl
    84   PUBLIC :: get_mechanismname
     84  PUBLIC :: get_mechanism_name
    8585
    8686! END OF MODULE HEADER TEMPLATE
     
    114114!
    115115! File                 : chem_gasphase_mod_Parameters.f90
    116 ! Time                 : Fri Mar 15 17:37:46 2019
    117 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     116! Time                 : Wed Mar 27 09:51:40 2019
     117! Working directory    : /home/forkel-r/palmstuff/work/trunk20190327/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    118118! Equation file        : chem_gasphase_mod.kpp
    119119! Output root filename : chem_gasphase_mod
     
    191191!
    192192! File                 : chem_gasphase_mod_Global.f90
    193 ! Time                 : Fri Mar 15 17:37:46 2019
    194 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     193! Time                 : Wed Mar 27 09:51:40 2019
     194! Working directory    : /home/forkel-r/palmstuff/work/trunk20190327/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    195195! Equation file        : chem_gasphase_mod.kpp
    196196! Output root filename : chem_gasphase_mod
     
    256256!
    257257! File                 : chem_gasphase_mod_JacobianSP.f90
    258 ! Time                 : Fri Mar 15 17:37:46 2019
    259 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     258! Time                 : Wed Mar 27 09:51:40 2019
     259! Working directory    : /home/forkel-r/palmstuff/work/trunk20190327/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 15 17:37:46 2019
    303 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     302! Time                 : Wed Mar 27 09:51:40 2019
     303! Working directory    : /home/forkel-r/palmstuff/work/trunk20190327/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 15 17:37:46 2019
    365 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     364! Time                 : Wed Mar 27 09:51:40 2019
     365! Working directory    : /home/forkel-r/palmstuff/work/trunk20190327/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 15 17:37:46 2019
    391 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     390! Time                 : Wed Mar 27 09:51:40 2019
     391! Working directory    : /home/forkel-r/palmstuff/work/trunk20190327/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 15 17:37:46 2019
    449 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     448! Time                 : Wed Mar 27 09:51:40 2019
     449! Working directory    : /home/forkel-r/palmstuff/work/trunk20190327/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 15 17:37:46 2019
    476 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     475! Time                 : Wed Mar 27 09:51:40 2019
     476! Working directory    : /home/forkel-r/palmstuff/work/trunk20190327/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 15 17:37:46 2019
    503 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     502! Time                 : Wed Mar 27 09:51:40 2019
     503! Working directory    : /home/forkel-r/palmstuff/work/trunk20190327/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 15 17:37:46 2019
    532 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     531! Time                 : Wed Mar 27 09:51:40 2019
     532! Working directory    : /home/forkel-r/palmstuff/work/trunk20190327/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 15 17:37:46 2019
    558 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     557! Time                 : Wed Mar 27 09:51:40 2019
     558! Working directory    : /home/forkel-r/palmstuff/work/trunk20190327/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    559559! Equation file        : chem_gasphase_mod.kpp
    560560! Output root filename : chem_gasphase_mod
     
    662662  END INTERFACE        kppdecomp
    663663 
    664   INTERFACE            get_mechanismname
    665     MODULE PROCEDURE   get_mechanismname
    666   END INTERFACE        get_mechanismname
     664  INTERFACE            get_mechanism_name
     665    MODULE PROCEDURE   get_mechanism_name
     666  END INTERFACE        get_mechanism_name
    667667 
    668668  INTERFACE            chem_gasphase_integrate
     
    22912291  END SUBROUTINE kppdecomp                                           
    22922292 
    2293 SUBROUTINE get_mechanismname                                        
     2293SUBROUTINE get_mechanism_name                                       
    22942294                                                                   
    22952295  IMPLICIT NONE                                                     
     
    22992299                                                                   
    23002300  RETURN                                                           
    2301 END SUBROUTINE get_mechanismname                                    
     2301END SUBROUTINE get_mechanism_name                                   
    23022302                                                                   
    23032303 
  • palm/trunk/UTIL/chemistry/gasphase_preproc/mechanisms/def_salsa+phstat/chem_gasphase_mod.f90

    r3800 r3820  
    8282  PUBLIC :: chem_gasphase_integrate
    8383  PUBLIC :: initialize_kpp_ctrl
    84   PUBLIC :: get_mechanismname
     84  PUBLIC :: get_mechanism_name
    8585
    8686! END OF MODULE HEADER TEMPLATE
     
    114114!
    115115! File                 : chem_gasphase_mod_Parameters.f90
    116 ! Time                 : Fri Mar 15 17:37:43 2019
    117 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     116! Time                 : Wed Mar 27 09:51:37 2019
     117! Working directory    : /home/forkel-r/palmstuff/work/trunk20190327/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    118118! Equation file        : chem_gasphase_mod.kpp
    119119! Output root filename : chem_gasphase_mod
     
    190190!
    191191! File                 : chem_gasphase_mod_Global.f90
    192 ! Time                 : Fri Mar 15 17:37:43 2019
    193 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     192! Time                 : Wed Mar 27 09:51:37 2019
     193! Working directory    : /home/forkel-r/palmstuff/work/trunk20190327/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    194194! Equation file        : chem_gasphase_mod.kpp
    195195! Output root filename : chem_gasphase_mod
     
    264264!
    265265! File                 : chem_gasphase_mod_JacobianSP.f90
    266 ! Time                 : Fri Mar 15 17:37:43 2019
    267 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     266! Time                 : Wed Mar 27 09:51:37 2019
     267! Working directory    : /home/forkel-r/palmstuff/work/trunk20190327/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 15 17:37:43 2019
    311 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     310! Time                 : Wed Mar 27 09:51:37 2019
     311! Working directory    : /home/forkel-r/palmstuff/work/trunk20190327/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 15 17:37:43 2019
    371 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     370! Time                 : Wed Mar 27 09:51:37 2019
     371! Working directory    : /home/forkel-r/palmstuff/work/trunk20190327/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 15 17:37:43 2019
    397 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     396! Time                 : Wed Mar 27 09:51:37 2019
     397! Working directory    : /home/forkel-r/palmstuff/work/trunk20190327/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 15 17:37:43 2019
    455 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     454! Time                 : Wed Mar 27 09:51:37 2019
     455! Working directory    : /home/forkel-r/palmstuff/work/trunk20190327/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 15 17:37:43 2019
    482 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     481! Time                 : Wed Mar 27 09:51:37 2019
     482! Working directory    : /home/forkel-r/palmstuff/work/trunk20190327/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 15 17:37:43 2019
    509 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     508! Time                 : Wed Mar 27 09:51:37 2019
     509! Working directory    : /home/forkel-r/palmstuff/work/trunk20190327/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 15 17:37:43 2019
    538 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     537! Time                 : Wed Mar 27 09:51:37 2019
     538! Working directory    : /home/forkel-r/palmstuff/work/trunk20190327/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 15 17:37:43 2019
    564 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     563! Time                 : Wed Mar 27 09:51:37 2019
     564! Working directory    : /home/forkel-r/palmstuff/work/trunk20190327/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    565565! Equation file        : chem_gasphase_mod.kpp
    566566! Output root filename : chem_gasphase_mod
     
    668668  END INTERFACE        kppdecomp
    669669 
    670   INTERFACE            get_mechanismname
    671     MODULE PROCEDURE   get_mechanismname
    672   END INTERFACE        get_mechanismname
     670  INTERFACE            get_mechanism_name
     671    MODULE PROCEDURE   get_mechanism_name
     672  END INTERFACE        get_mechanism_name
    673673 
    674674  INTERFACE            chem_gasphase_integrate
     
    22892289  END SUBROUTINE kppdecomp                                           
    22902290 
    2291 SUBROUTINE get_mechanismname                                        
     2291SUBROUTINE get_mechanism_name                                       
    22922292                                                                   
    22932293  IMPLICIT NONE                                                     
     
    22972297                                                                   
    22982298  RETURN                                                           
    2299 END SUBROUTINE get_mechanismname                                    
     2299END SUBROUTINE get_mechanism_name                                   
    23002300                                                                   
    23012301 
  • palm/trunk/UTIL/chemistry/gasphase_preproc/mechanisms/def_salsa+simple/chem_gasphase_mod.f90

    r3800 r3820  
    8282  PUBLIC :: chem_gasphase_integrate
    8383  PUBLIC :: initialize_kpp_ctrl
    84   PUBLIC :: get_mechanismname
     84  PUBLIC :: get_mechanism_name
    8585
    8686! END OF MODULE HEADER TEMPLATE
     
    114114!
    115115! File                 : chem_gasphase_mod_Parameters.f90
    116 ! Time                 : Fri Mar 15 17:37:44 2019
    117 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     116! Time                 : Wed Mar 27 09:51:38 2019
     117! Working directory    : /home/forkel-r/palmstuff/work/trunk20190327/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    118118! Equation file        : chem_gasphase_mod.kpp
    119119! Output root filename : chem_gasphase_mod
     
    202202!
    203203! File                 : chem_gasphase_mod_Global.f90
    204 ! Time                 : Fri Mar 15 17:37:44 2019
    205 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     204! Time                 : Wed Mar 27 09:51:38 2019
     205! Working directory    : /home/forkel-r/palmstuff/work/trunk20190327/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    206206! Equation file        : chem_gasphase_mod.kpp
    207207! Output root filename : chem_gasphase_mod
     
    273273!
    274274! File                 : chem_gasphase_mod_JacobianSP.f90
    275 ! Time                 : Fri Mar 15 17:37:44 2019
    276 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     275! Time                 : Wed Mar 27 09:51:38 2019
     276! Working directory    : /home/forkel-r/palmstuff/work/trunk20190327/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    277277! Equation file        : chem_gasphase_mod.kpp
    278278! Output root filename : chem_gasphase_mod
     
    325325!
    326326! File                 : chem_gasphase_mod_Monitor.f90
    327 ! Time                 : Fri Mar 15 17:37:44 2019
    328 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     327! Time                 : Wed Mar 27 09:51:38 2019
     328! Working directory    : /home/forkel-r/palmstuff/work/trunk20190327/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    329329! Equation file        : chem_gasphase_mod.kpp
    330330! Output root filename : chem_gasphase_mod
     
    399399!
    400400! File                 : chem_gasphase_mod_Initialize.f90
    401 ! Time                 : Fri Mar 15 17:37:44 2019
    402 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     401! Time                 : Wed Mar 27 09:51:38 2019
     402! Working directory    : /home/forkel-r/palmstuff/work/trunk20190327/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    403403! Equation file        : chem_gasphase_mod.kpp
    404404! Output root filename : chem_gasphase_mod
     
    425425!
    426426! File                 : chem_gasphase_mod_Integrator.f90
    427 ! Time                 : Fri Mar 15 17:37:44 2019
    428 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     427! Time                 : Wed Mar 27 09:51:38 2019
     428! Working directory    : /home/forkel-r/palmstuff/work/trunk20190327/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    429429! Equation file        : chem_gasphase_mod.kpp
    430430! Output root filename : chem_gasphase_mod
     
    483483!
    484484! File                 : chem_gasphase_mod_LinearAlgebra.f90
    485 ! Time                 : Fri Mar 15 17:37:44 2019
    486 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     485! Time                 : Wed Mar 27 09:51:38 2019
     486! Working directory    : /home/forkel-r/palmstuff/work/trunk20190327/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    487487! Equation file        : chem_gasphase_mod.kpp
    488488! Output root filename : chem_gasphase_mod
     
    510510!
    511511! File                 : chem_gasphase_mod_Jacobian.f90
    512 ! Time                 : Fri Mar 15 17:37:44 2019
    513 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     512! Time                 : Wed Mar 27 09:51:38 2019
     513! Working directory    : /home/forkel-r/palmstuff/work/trunk20190327/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    514514! Equation file        : chem_gasphase_mod.kpp
    515515! Output root filename : chem_gasphase_mod
     
    537537!
    538538! File                 : chem_gasphase_mod_Function.f90
    539 ! Time                 : Fri Mar 15 17:37:44 2019
    540 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     539! Time                 : Wed Mar 27 09:51:38 2019
     540! Working directory    : /home/forkel-r/palmstuff/work/trunk20190327/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    541541! Equation file        : chem_gasphase_mod.kpp
    542542! Output root filename : chem_gasphase_mod
     
    566566!
    567567! File                 : chem_gasphase_mod_Rates.f90
    568 ! Time                 : Fri Mar 15 17:37:44 2019
    569 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     568! Time                 : Wed Mar 27 09:51:38 2019
     569! Working directory    : /home/forkel-r/palmstuff/work/trunk20190327/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    570570! Equation file        : chem_gasphase_mod.kpp
    571571! Output root filename : chem_gasphase_mod
     
    592592!
    593593! File                 : chem_gasphase_mod_Util.f90
    594 ! Time                 : Fri Mar 15 17:37:44 2019
    595 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     594! Time                 : Wed Mar 27 09:51:38 2019
     595! Working directory    : /home/forkel-r/palmstuff/work/trunk20190327/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    596596! Equation file        : chem_gasphase_mod.kpp
    597597! Output root filename : chem_gasphase_mod
     
    699699  END INTERFACE        kppdecomp
    700700 
    701   INTERFACE            get_mechanismname
    702     MODULE PROCEDURE   get_mechanismname
    703   END INTERFACE        get_mechanismname
     701  INTERFACE            get_mechanism_name
     702    MODULE PROCEDURE   get_mechanism_name
     703  END INTERFACE        get_mechanism_name
    704704 
    705705  INTERFACE            chem_gasphase_integrate
     
    24792479  END SUBROUTINE kppdecomp                                           
    24802480 
    2481 SUBROUTINE get_mechanismname                                        
     2481SUBROUTINE get_mechanism_name                                       
    24822482                                                                   
    24832483  IMPLICIT NONE                                                     
     
    24872487                                                                   
    24882488  RETURN                                                           
    2489 END SUBROUTINE get_mechanismname                                    
     2489END SUBROUTINE get_mechanism_name                                   
    24902490                                                                   
    24912491 
  • palm/trunk/UTIL/chemistry/gasphase_preproc/mechanisms/def_salsagas/chem_gasphase_mod.f90

    r3800 r3820  
    8282  PUBLIC :: chem_gasphase_integrate
    8383  PUBLIC :: initialize_kpp_ctrl
    84   PUBLIC :: get_mechanismname
     84  PUBLIC :: get_mechanism_name
    8585
    8686! END OF MODULE HEADER TEMPLATE
     
    114114!
    115115! File                 : chem_gasphase_mod_Parameters.f90
    116 ! Time                 : Fri Mar 15 17:37:42 2019
    117 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     116! Time                 : Wed Mar 27 09:51:36 2019
     117! Working directory    : /home/forkel-r/palmstuff/work/trunk20190327/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    118118! Equation file        : chem_gasphase_mod.kpp
    119119! Output root filename : chem_gasphase_mod
     
    192192!
    193193! File                 : chem_gasphase_mod_Global.f90
    194 ! Time                 : Fri Mar 15 17:37:42 2019
    195 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     194! Time                 : Wed Mar 27 09:51:36 2019
     195! Working directory    : /home/forkel-r/palmstuff/work/trunk20190327/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    196196! Equation file        : chem_gasphase_mod.kpp
    197197! Output root filename : chem_gasphase_mod
     
    259259!
    260260! File                 : chem_gasphase_mod_JacobianSP.f90
    261 ! Time                 : Fri Mar 15 17:37:42 2019
    262 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     261! Time                 : Wed Mar 27 09:51:36 2019
     262! Working directory    : /home/forkel-r/palmstuff/work/trunk20190327/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 15 17:37:42 2019
    306 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     305! Time                 : Wed Mar 27 09:51:36 2019
     306! Working directory    : /home/forkel-r/palmstuff/work/trunk20190327/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 15 17:37:42 2019
    370 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     369! Time                 : Wed Mar 27 09:51:36 2019
     370! Working directory    : /home/forkel-r/palmstuff/work/trunk20190327/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 15 17:37:42 2019
    396 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     395! Time                 : Wed Mar 27 09:51:36 2019
     396! Working directory    : /home/forkel-r/palmstuff/work/trunk20190327/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 15 17:37:42 2019
    454 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     453! Time                 : Wed Mar 27 09:51:36 2019
     454! Working directory    : /home/forkel-r/palmstuff/work/trunk20190327/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 15 17:37:42 2019
    481 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     480! Time                 : Wed Mar 27 09:51:36 2019
     481! Working directory    : /home/forkel-r/palmstuff/work/trunk20190327/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 15 17:37:42 2019
    508 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     507! Time                 : Wed Mar 27 09:51:36 2019
     508! Working directory    : /home/forkel-r/palmstuff/work/trunk20190327/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 15 17:37:42 2019
    537 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     536! Time                 : Wed Mar 27 09:51:36 2019
     537! Working directory    : /home/forkel-r/palmstuff/work/trunk20190327/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 15 17:37:42 2019
    563 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     562! Time                 : Wed Mar 27 09:51:36 2019
     563! Working directory    : /home/forkel-r/palmstuff/work/trunk20190327/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    564564! Equation file        : chem_gasphase_mod.kpp
    565565! Output root filename : chem_gasphase_mod
     
    667667  END INTERFACE        kppdecomp
    668668 
    669   INTERFACE            get_mechanismname
    670     MODULE PROCEDURE   get_mechanismname
    671   END INTERFACE        get_mechanismname
     669  INTERFACE            get_mechanism_name
     670    MODULE PROCEDURE   get_mechanism_name
     671  END INTERFACE        get_mechanism_name
    672672 
    673673  INTERFACE            chem_gasphase_integrate
     
    22822282  END SUBROUTINE kppdecomp                                           
    22832283 
    2284 SUBROUTINE get_mechanismname                                        
     2284SUBROUTINE get_mechanism_name                                       
    22852285                                                                   
    22862286  IMPLICIT NONE                                                     
     
    22902290                                                                   
    22912291  RETURN                                                           
    2292 END SUBROUTINE get_mechanismname                                    
     2292END SUBROUTINE get_mechanism_name                                   
    22932293                                                                   
    22942294 
  • palm/trunk/UTIL/chemistry/gasphase_preproc/mechanisms/def_simple/chem_gasphase_mod.f90

    r3800 r3820  
    8282  PUBLIC :: chem_gasphase_integrate
    8383  PUBLIC :: initialize_kpp_ctrl
    84   PUBLIC :: get_mechanismname
     84  PUBLIC :: get_mechanism_name
    8585
    8686! END OF MODULE HEADER TEMPLATE
     
    114114!
    115115! File                 : chem_gasphase_mod_Parameters.f90
    116 ! Time                 : Fri Mar 15 17:37:44 2019
    117 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     116! Time                 : Wed Mar 27 09:51:38 2019
     117! Working directory    : /home/forkel-r/palmstuff/work/trunk20190327/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    118118! Equation file        : chem_gasphase_mod.kpp
    119119! Output root filename : chem_gasphase_mod
     
    198198!
    199199! File                 : chem_gasphase_mod_Global.f90
    200 ! Time                 : Fri Mar 15 17:37:44 2019
    201 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     200! Time                 : Wed Mar 27 09:51:38 2019
     201! Working directory    : /home/forkel-r/palmstuff/work/trunk20190327/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    202202! Equation file        : chem_gasphase_mod.kpp
    203203! Output root filename : chem_gasphase_mod
     
    263263!
    264264! File                 : chem_gasphase_mod_JacobianSP.f90
    265 ! Time                 : Fri Mar 15 17:37:44 2019
    266 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     265! Time                 : Wed Mar 27 09:51:38 2019
     266! Working directory    : /home/forkel-r/palmstuff/work/trunk20190327/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    267267! Equation file        : chem_gasphase_mod.kpp
    268268! Output root filename : chem_gasphase_mod
     
    313313!
    314314! File                 : chem_gasphase_mod_Monitor.f90
    315 ! Time                 : Fri Mar 15 17:37:44 2019
    316 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     315! Time                 : Wed Mar 27 09:51:38 2019
     316! Working directory    : /home/forkel-r/palmstuff/work/trunk20190327/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    317317! Equation file        : chem_gasphase_mod.kpp
    318318! Output root filename : chem_gasphase_mod
     
    382382!
    383383! File                 : chem_gasphase_mod_Initialize.f90
    384 ! Time                 : Fri Mar 15 17:37:44 2019
    385 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     384! Time                 : Wed Mar 27 09:51:38 2019
     385! Working directory    : /home/forkel-r/palmstuff/work/trunk20190327/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    386386! Equation file        : chem_gasphase_mod.kpp
    387387! Output root filename : chem_gasphase_mod
     
    408408!
    409409! File                 : chem_gasphase_mod_Integrator.f90
    410 ! Time                 : Fri Mar 15 17:37:44 2019
    411 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     410! Time                 : Wed Mar 27 09:51:38 2019
     411! Working directory    : /home/forkel-r/palmstuff/work/trunk20190327/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    412412! Equation file        : chem_gasphase_mod.kpp
    413413! Output root filename : chem_gasphase_mod
     
    466466!
    467467! File                 : chem_gasphase_mod_LinearAlgebra.f90
    468 ! Time                 : Fri Mar 15 17:37:44 2019
    469 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     468! Time                 : Wed Mar 27 09:51:38 2019
     469! Working directory    : /home/forkel-r/palmstuff/work/trunk20190327/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    470470! Equation file        : chem_gasphase_mod.kpp
    471471! Output root filename : chem_gasphase_mod
     
    493493!
    494494! File                 : chem_gasphase_mod_Jacobian.f90
    495 ! Time                 : Fri Mar 15 17:37:44 2019
    496 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     495! Time                 : Wed Mar 27 09:51:38 2019
     496! Working directory    : /home/forkel-r/palmstuff/work/trunk20190327/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    497497! Equation file        : chem_gasphase_mod.kpp
    498498! Output root filename : chem_gasphase_mod
     
    520520!
    521521! File                 : chem_gasphase_mod_Function.f90
    522 ! Time                 : Fri Mar 15 17:37:44 2019
    523 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     522! Time                 : Wed Mar 27 09:51:38 2019
     523! Working directory    : /home/forkel-r/palmstuff/work/trunk20190327/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    524524! Equation file        : chem_gasphase_mod.kpp
    525525! Output root filename : chem_gasphase_mod
     
    549549!
    550550! File                 : chem_gasphase_mod_Rates.f90
    551 ! Time                 : Fri Mar 15 17:37:44 2019
    552 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     551! Time                 : Wed Mar 27 09:51:38 2019
     552! Working directory    : /home/forkel-r/palmstuff/work/trunk20190327/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    553553! Equation file        : chem_gasphase_mod.kpp
    554554! Output root filename : chem_gasphase_mod
     
    575575!
    576576! File                 : chem_gasphase_mod_Util.f90
    577 ! Time                 : Fri Mar 15 17:37:44 2019
    578 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     577! Time                 : Wed Mar 27 09:51:38 2019
     578! Working directory    : /home/forkel-r/palmstuff/work/trunk20190327/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    579579! Equation file        : chem_gasphase_mod.kpp
    580580! Output root filename : chem_gasphase_mod
     
    682682  END INTERFACE        kppdecomp
    683683 
    684   INTERFACE            get_mechanismname
    685     MODULE PROCEDURE   get_mechanismname
    686   END INTERFACE        get_mechanismname
     684  INTERFACE            get_mechanism_name
     685    MODULE PROCEDURE   get_mechanism_name
     686  END INTERFACE        get_mechanism_name
    687687 
    688688  INTERFACE            chem_gasphase_integrate
     
    24312431  END SUBROUTINE kppdecomp                                           
    24322432 
    2433 SUBROUTINE get_mechanismname                                        
     2433SUBROUTINE get_mechanism_name                                       
    24342434                                                                   
    24352435  IMPLICIT NONE                                                     
     
    24392439                                                                   
    24402440  RETURN                                                           
    2441 END SUBROUTINE get_mechanismname                                    
     2441END SUBROUTINE get_mechanism_name                                   
    24422442                                                                   
    24432443 
  • palm/trunk/UTIL/chemistry/gasphase_preproc/mechanisms/def_simplep/chem_gasphase_mod.f90

    r3800 r3820  
    8282  PUBLIC :: chem_gasphase_integrate
    8383  PUBLIC :: initialize_kpp_ctrl
    84   PUBLIC :: get_mechanismname
     84  PUBLIC :: get_mechanism_name
    8585
    8686! END OF MODULE HEADER TEMPLATE
     
    114114!
    115115! File                 : chem_gasphase_mod_Parameters.f90
    116 ! Time                 : Fri Mar 15 17:37:45 2019
    117 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     116! Time                 : Wed Mar 27 09:51:39 2019
     117! Working directory    : /home/forkel-r/palmstuff/work/trunk20190327/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    118118! Equation file        : chem_gasphase_mod.kpp
    119119! Output root filename : chem_gasphase_mod
     
    199199!
    200200! File                 : chem_gasphase_mod_Global.f90
    201 ! Time                 : Fri Mar 15 17:37:45 2019
    202 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     201! Time                 : Wed Mar 27 09:51:39 2019
     202! Working directory    : /home/forkel-r/palmstuff/work/trunk20190327/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    203203! Equation file        : chem_gasphase_mod.kpp
    204204! Output root filename : chem_gasphase_mod
     
    264264!
    265265! File                 : chem_gasphase_mod_JacobianSP.f90
    266 ! Time                 : Fri Mar 15 17:37:45 2019
    267 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     266! Time                 : Wed Mar 27 09:51:39 2019
     267! Working directory    : /home/forkel-r/palmstuff/work/trunk20190327/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    268268! Equation file        : chem_gasphase_mod.kpp
    269269! Output root filename : chem_gasphase_mod
     
    314314!
    315315! File                 : chem_gasphase_mod_Monitor.f90
    316 ! Time                 : Fri Mar 15 17:37:45 2019
    317 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     316! Time                 : Wed Mar 27 09:51:39 2019
     317! Working directory    : /home/forkel-r/palmstuff/work/trunk20190327/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    318318! Equation file        : chem_gasphase_mod.kpp
    319319! Output root filename : chem_gasphase_mod
     
    384384!
    385385! File                 : chem_gasphase_mod_Initialize.f90
    386 ! Time                 : Fri Mar 15 17:37:45 2019
    387 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     386! Time                 : Wed Mar 27 09:51:39 2019
     387! Working directory    : /home/forkel-r/palmstuff/work/trunk20190327/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    388388! Equation file        : chem_gasphase_mod.kpp
    389389! Output root filename : chem_gasphase_mod
     
    410410!
    411411! File                 : chem_gasphase_mod_Integrator.f90
    412 ! Time                 : Fri Mar 15 17:37:45 2019
    413 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     412! Time                 : Wed Mar 27 09:51:39 2019
     413! Working directory    : /home/forkel-r/palmstuff/work/trunk20190327/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    414414! Equation file        : chem_gasphase_mod.kpp
    415415! Output root filename : chem_gasphase_mod
     
    468468!
    469469! File                 : chem_gasphase_mod_LinearAlgebra.f90
    470 ! Time                 : Fri Mar 15 17:37:45 2019
    471 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     470! Time                 : Wed Mar 27 09:51:39 2019
     471! Working directory    : /home/forkel-r/palmstuff/work/trunk20190327/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    472472! Equation file        : chem_gasphase_mod.kpp
    473473! Output root filename : chem_gasphase_mod
     
    495495!
    496496! File                 : chem_gasphase_mod_Jacobian.f90
    497 ! Time                 : Fri Mar 15 17:37:45 2019
    498 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     497! Time                 : Wed Mar 27 09:51:39 2019
     498! Working directory    : /home/forkel-r/palmstuff/work/trunk20190327/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    499499! Equation file        : chem_gasphase_mod.kpp
    500500! Output root filename : chem_gasphase_mod
     
    522522!
    523523! File                 : chem_gasphase_mod_Function.f90
    524 ! Time                 : Fri Mar 15 17:37:45 2019
    525 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     524! Time                 : Wed Mar 27 09:51:39 2019
     525! Working directory    : /home/forkel-r/palmstuff/work/trunk20190327/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    526526! Equation file        : chem_gasphase_mod.kpp
    527527! Output root filename : chem_gasphase_mod
     
    551551!
    552552! File                 : chem_gasphase_mod_Rates.f90
    553 ! Time                 : Fri Mar 15 17:37:45 2019
    554 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     553! Time                 : Wed Mar 27 09:51:39 2019
     554! Working directory    : /home/forkel-r/palmstuff/work/trunk20190327/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    555555! Equation file        : chem_gasphase_mod.kpp
    556556! Output root filename : chem_gasphase_mod
     
    577577!
    578578! File                 : chem_gasphase_mod_Util.f90
    579 ! Time                 : Fri Mar 15 17:37:45 2019
    580 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     579! Time                 : Wed Mar 27 09:51:39 2019
     580! Working directory    : /home/forkel-r/palmstuff/work/trunk20190327/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    581581! Equation file        : chem_gasphase_mod.kpp
    582582! Output root filename : chem_gasphase_mod
     
    684684  END INTERFACE        kppdecomp
    685685 
    686   INTERFACE            get_mechanismname
    687     MODULE PROCEDURE   get_mechanismname
    688   END INTERFACE        get_mechanismname
     686  INTERFACE            get_mechanism_name
     687    MODULE PROCEDURE   get_mechanism_name
     688  END INTERFACE        get_mechanism_name
    689689 
    690690  INTERFACE            chem_gasphase_integrate
     
    24372437  END SUBROUTINE kppdecomp                                           
    24382438 
    2439 SUBROUTINE get_mechanismname                                        
     2439SUBROUTINE get_mechanism_name                                       
    24402440                                                                   
    24412441  IMPLICIT NONE                                                     
     
    24452445                                                                   
    24462446  RETURN                                                           
    2447 END SUBROUTINE get_mechanismname                                    
     2447END SUBROUTINE get_mechanism_name                                   
    24482448                                                                   
    24492449 
  • palm/trunk/UTIL/chemistry/gasphase_preproc/mechanisms/def_smog/chem_gasphase_mod.f90

    r3800 r3820  
    8282  PUBLIC :: chem_gasphase_integrate
    8383  PUBLIC :: initialize_kpp_ctrl
    84   PUBLIC :: get_mechanismname
     84  PUBLIC :: get_mechanism_name
    8585
    8686! END OF MODULE HEADER TEMPLATE
     
    114114!
    115115! File                 : chem_gasphase_mod_Parameters.f90
    116 ! Time                 : Fri Mar 15 17:37:46 2019
    117 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     116! Time                 : Wed Mar 27 09:51:40 2019
     117! Working directory    : /home/forkel-r/palmstuff/work/trunk20190327/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    118118! Equation file        : chem_gasphase_mod.kpp
    119119! Output root filename : chem_gasphase_mod
     
    206206!
    207207! File                 : chem_gasphase_mod_Global.f90
    208 ! Time                 : Fri Mar 15 17:37:46 2019
    209 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     208! Time                 : Wed Mar 27 09:51:40 2019
     209! Working directory    : /home/forkel-r/palmstuff/work/trunk20190327/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    210210! Equation file        : chem_gasphase_mod.kpp
    211211! Output root filename : chem_gasphase_mod
     
    271271!
    272272! File                 : chem_gasphase_mod_JacobianSP.f90
    273 ! Time                 : Fri Mar 15 17:37:46 2019
    274 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     273! Time                 : Wed Mar 27 09:51:40 2019
     274! Working directory    : /home/forkel-r/palmstuff/work/trunk20190327/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    275275! Equation file        : chem_gasphase_mod.kpp
    276276! Output root filename : chem_gasphase_mod
     
    327327!
    328328! File                 : chem_gasphase_mod_Monitor.f90
    329 ! Time                 : Fri Mar 15 17:37:46 2019
    330 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     329! Time                 : Wed Mar 27 09:51:40 2019
     330! Working directory    : /home/forkel-r/palmstuff/work/trunk20190327/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    331331! Equation file        : chem_gasphase_mod.kpp
    332332! Output root filename : chem_gasphase_mod
     
    403403!
    404404! File                 : chem_gasphase_mod_Initialize.f90
    405 ! Time                 : Fri Mar 15 17:37:46 2019
    406 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     405! Time                 : Wed Mar 27 09:51:40 2019
     406! Working directory    : /home/forkel-r/palmstuff/work/trunk20190327/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    407407! Equation file        : chem_gasphase_mod.kpp
    408408! Output root filename : chem_gasphase_mod
     
    429429!
    430430! File                 : chem_gasphase_mod_Integrator.f90
    431 ! Time                 : Fri Mar 15 17:37:46 2019
    432 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     431! Time                 : Wed Mar 27 09:51:40 2019
     432! Working directory    : /home/forkel-r/palmstuff/work/trunk20190327/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    433433! Equation file        : chem_gasphase_mod.kpp
    434434! Output root filename : chem_gasphase_mod
     
    487487!
    488488! File                 : chem_gasphase_mod_LinearAlgebra.f90
    489 ! Time                 : Fri Mar 15 17:37:46 2019
    490 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     489! Time                 : Wed Mar 27 09:51:40 2019
     490! Working directory    : /home/forkel-r/palmstuff/work/trunk20190327/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    491491! Equation file        : chem_gasphase_mod.kpp
    492492! Output root filename : chem_gasphase_mod
     
    514514!
    515515! File                 : chem_gasphase_mod_Jacobian.f90
    516 ! Time                 : Fri Mar 15 17:37:46 2019
    517 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     516! Time                 : Wed Mar 27 09:51:40 2019
     517! Working directory    : /home/forkel-r/palmstuff/work/trunk20190327/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    518518! Equation file        : chem_gasphase_mod.kpp
    519519! Output root filename : chem_gasphase_mod
     
    541541!
    542542! File                 : chem_gasphase_mod_Function.f90
    543 ! Time                 : Fri Mar 15 17:37:46 2019
    544 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     543! Time                 : Wed Mar 27 09:51:40 2019
     544! Working directory    : /home/forkel-r/palmstuff/work/trunk20190327/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    545545! Equation file        : chem_gasphase_mod.kpp
    546546! Output root filename : chem_gasphase_mod
     
    570570!
    571571! File                 : chem_gasphase_mod_Rates.f90
    572 ! Time                 : Fri Mar 15 17:37:46 2019
    573 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     572! Time                 : Wed Mar 27 09:51:40 2019
     573! Working directory    : /home/forkel-r/palmstuff/work/trunk20190327/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    574574! Equation file        : chem_gasphase_mod.kpp
    575575! Output root filename : chem_gasphase_mod
     
    596596!
    597597! File                 : chem_gasphase_mod_Util.f90
    598 ! Time                 : Fri Mar 15 17:37:46 2019
    599 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
     598! Time                 : Wed Mar 27 09:51:40 2019
     599! Working directory    : /home/forkel-r/palmstuff/work/trunk20190327/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    600600! Equation file        : chem_gasphase_mod.kpp
    601601! Output root filename : chem_gasphase_mod
     
    703703  END INTERFACE        kppdecomp
    704704 
    705   INTERFACE            get_mechanismname
    706     MODULE PROCEDURE   get_mechanismname
    707   END INTERFACE        get_mechanismname
     705  INTERFACE            get_mechanism_name
     706    MODULE PROCEDURE   get_mechanism_name
     707  END INTERFACE        get_mechanism_name
    708708 
    709709  INTERFACE            chem_gasphase_integrate
     
    25652565  END SUBROUTINE kppdecomp                                           
    25662566 
    2567 SUBROUTINE get_mechanismname                                        
     2567SUBROUTINE get_mechanism_name                                       
    25682568                                                                   
    25692569  IMPLICIT NONE                                                     
     
    25732573                                                                   
    25742574  RETURN                                                           
    2575 END SUBROUTINE get_mechanismname                                    
     2575END SUBROUTINE get_mechanism_name                                   
    25762576                                                                   
    25772577 
Note: See TracChangeset for help on using the changeset viewer.