
! KGEN-generated Fortran source file
!
! Filename    : rrlw_ref.f90
! Generated at: 2015-07-06 23:28:43
! KGEN version: 0.4.13



    MODULE rrlw_ref
        USE kgen_utils_mod, ONLY : kgen_dp, check_t, kgen_init_check, kgen_print_check
        USE shr_kind_mod, ONLY: r8 => shr_kind_r8
        !      use parkind, only : jpim, jprb
        IMPLICIT NONE
        !------------------------------------------------------------------
        ! rrtmg_lw reference atmosphere
        ! Based on standard mid-latitude summer profile
        !
        ! Initial version:  JJMorcrette, ECMWF, jul1998
        ! Revised: MJIacono, AER, jun2006
        !------------------------------------------------------------------
        !  name     type     purpose
        ! -----  :  ----   : ----------------------------------------------
        ! pref   :  real   : Reference pressure levels
        ! preflog:  real   : Reference pressure levels, ln(pref)
        ! tref   :  real   : Reference temperature levels for MLS profile
        ! chi_mls:  real   :
        !------------------------------------------------------------------
        REAL(KIND=r8), dimension(59) :: preflog
        REAL(KIND=r8), dimension(59) :: tref
        REAL(KIND=r8) :: chi_mls(7,59)
        PUBLIC kgen_read_externs_rrlw_ref
    CONTAINS

    ! write subroutines

    ! module extern variables

    SUBROUTINE kgen_read_externs_rrlw_ref(kgen_unit)
        INTEGER, INTENT(IN) :: kgen_unit
        READ(UNIT=kgen_unit) preflog
        READ(UNIT=kgen_unit) tref
        READ(UNIT=kgen_unit) chi_mls
    END SUBROUTINE kgen_read_externs_rrlw_ref

    END MODULE rrlw_ref
