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