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

renaming of get_mechanismname, do_emiss and do_depo, sorting in chem_modules

File:
1 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 
Note: See TracChangeset for help on using the changeset viewer.