1
2! KGEN-generated Fortran source file
3!
4! Filename    : rrlw_kg16.f90
5! Generated at: 2015-07-06 23:28:43
6! KGEN version: 0.4.13
7
8
9
10    MODULE rrlw_kg16
11        USE kgen_utils_mod, ONLY : kgen_dp, check_t, kgen_init_check, kgen_print_check
12        USE shr_kind_mod, ONLY: r8 => shr_kind_r8
13        !      use parkind ,only : jpim, jprb
14        IMPLICIT NONE
15        !-----------------------------------------------------------------
16        ! rrtmg_lw ORIGINAL abs. coefficients for interval 16
17        ! band 16:  2600-3000 cm-1 (low - h2o,ch4; high - nothing)
18        !
19        ! Initial version:  JJMorcrette, ECMWF, jul1998
20        ! Revised: MJIacono, AER, jun2006
21        !-----------------------------------------------------------------
22        !
23        !  name     type     purpose
24        !  ----   : ----   : ---------------------------------------------
25        !fracrefao: real
26        ! kao     : real
27        ! kbo     : real
28        ! selfrefo: real
29        ! forrefo : real
30        !-----------------------------------------------------------------
31        !-----------------------------------------------------------------
32        ! rrtmg_lw COMBINED abs. coefficients for interval 16
33        ! band 16:  2600-3000 cm-1 (low - h2o,ch4; high - nothing)
34        !
35        ! Initial version:  JJMorcrette, ECMWF, jul1998
36        ! Revised: MJIacono, AER, jun2006
37        !-----------------------------------------------------------------
38        !
39        !  name     type     purpose
40        !  ----   : ----   : ---------------------------------------------
41        !fracrefa : real
42        ! ka      : real
43        ! kb      : real
44        ! selfref : real
45        ! forref  : real
46        !
47        ! absa    : real
48        ! absb    : real
49        !-----------------------------------------------------------------
50        INTEGER, parameter :: ng16 = 2
51        REAL(KIND=r8), dimension(ng16) :: fracrefb
52        REAL(KIND=r8) :: fracrefa(ng16,9)
53        REAL(KIND=r8) :: absa(585,ng16)
54        REAL(KIND=r8) :: absb(235,ng16)
55        REAL(KIND=r8) :: selfref(10,ng16)
56        REAL(KIND=r8) :: forref(4,ng16)
57        PUBLIC kgen_read_externs_rrlw_kg16
58    CONTAINS
59
60    ! write subroutines
61
62    ! module extern variables
63
64    SUBROUTINE kgen_read_externs_rrlw_kg16(kgen_unit)
65        INTEGER, INTENT(IN) :: kgen_unit
66        READ(UNIT=kgen_unit) fracrefb
67        READ(UNIT=kgen_unit) fracrefa
68        READ(UNIT=kgen_unit) absa
69        READ(UNIT=kgen_unit) absb
70        READ(UNIT=kgen_unit) selfref
71        READ(UNIT=kgen_unit) forref
72    END SUBROUTINE kgen_read_externs_rrlw_kg16
73
74    END MODULE rrlw_kg16
75