1 2! KGEN-generated Fortran source file 3! 4! Filename : chem_mods.F90 5! Generated at: 2015-05-13 11:02:22 6! KGEN version: 0.4.10 7 8 9 10 MODULE chem_mods 11 USE kgen_utils_mod, ONLY : kgen_dp, check_t, kgen_init_check, kgen_print_check 12 !-------------------------------------------------------------- 13 ! ... Basic chemistry parameters and arrays 14 !-------------------------------------------------------------- 15 IMPLICIT NONE 16 INTEGER, parameter :: extcnt = 18 17 INTEGER, parameter :: gas_pcnst = 158 18 INTEGER, parameter :: rxntot = 449 19 INTEGER, parameter :: clscnt4 = 135 20 INTEGER, parameter :: nzcnt = 1509 21 INTEGER, parameter :: nfs = 2 22 INTEGER, parameter :: indexm = 1 ! number of photolysis reactions 23 ! number of total reactions 24 ! number of gas phase reactions 25 ! number of absorbing column densities 26 ! number of "gas phase" species 27 ! number of "fixed" species 28 ! number of relationship species 29 ! number of group members 30 ! number of non-zero matrix entries 31 ! number of species with external forcing 32 ! number of species in explicit class 33 ! number of species in hov class 34 ! number of species in ebi class 35 ! number of species in implicit class 36 ! number of species in rodas class 37 ! index of total atm density in invariant array 38 ! index of water vapor density 39 ! loop length for implicit chemistry 40 INTEGER :: cls_rxt_cnt(4,5) = 0 41 INTEGER :: clsmap(gas_pcnst,5) = 0 42 INTEGER :: permute(gas_pcnst,5) = 0 43 PUBLIC kgen_read_externs_chem_mods 44 CONTAINS 45 46 ! write subroutines 47 48 ! module extern variables 49 50 SUBROUTINE kgen_read_externs_chem_mods(kgen_unit) 51 INTEGER, INTENT(IN) :: kgen_unit 52 READ(UNIT=kgen_unit) cls_rxt_cnt 53 READ(UNIT=kgen_unit) clsmap 54 READ(UNIT=kgen_unit) permute 55 END SUBROUTINE kgen_read_externs_chem_mods 56 57 END MODULE chem_mods 58