1
2! KGEN-generated Fortran source file
3!
4! Filename    : mo_tracname.F90
5! Generated at: 2015-05-13 11:02:21
6! KGEN version: 0.4.10
7
8
9
10    MODULE mo_tracname
11        USE kgen_utils_mod, ONLY : kgen_dp, check_t, kgen_init_check, kgen_print_check
12        !-----------------------------------------------------------
13        !       ... List of advected and non-advected trace species, and
14        !           surface fluxes for the advected species.
15        !-----------------------------------------------------------
16        USE chem_mods, ONLY: gas_pcnst
17        IMPLICIT NONE
18        CHARACTER(LEN=16) :: solsym(gas_pcnst) ! species names
19        PUBLIC kgen_read_externs_mo_tracname
20    CONTAINS
21
22    ! write subroutines
23
24    ! module extern variables
25
26    SUBROUTINE kgen_read_externs_mo_tracname(kgen_unit)
27        INTEGER, INTENT(IN) :: kgen_unit
28        READ(UNIT=kgen_unit) solsym
29    END SUBROUTINE kgen_read_externs_mo_tracname
30
31    END MODULE mo_tracname
32