1
2! KGEN-generated Fortran source file
3!
4! Filename    : rrlw_kg07.f90
5! Generated at: 2015-07-06 23:28:45
6! KGEN version: 0.4.13
7
8
9
10    MODULE rrlw_kg07
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 7
17        ! band 7:  980-1080 cm-1 (low - h2o,o3; high - o3)
18        !
19        ! Initial version:  JJMorcrette, ECMWF, jul1998
20        ! Revised: MJIacono, AER, jun2006
21        !-----------------------------------------------------------------
22        !
23        !  name     type     purpose
24        !  ----   : ----   : ---------------------------------------------
25        !fracrefao: real
26        !fracrefbo: real
27        ! kao     : real
28        ! kbo     : real
29        ! kao_mco2: real
30        ! kbo_mco2: real
31        ! selfrefo: real
32        ! forrefo : real
33        !-----------------------------------------------------------------
34        !-----------------------------------------------------------------
35        ! rrtmg_lw COMBINED abs. coefficients for interval 7
36        ! band 7:  980-1080 cm-1 (low - h2o,o3; high - o3)
37        !
38        ! Initial version:  JJMorcrette, ECMWF, jul1998
39        ! Revised: MJIacono, AER, jun2006
40        !-----------------------------------------------------------------
41        !
42        !  name     type     purpose
43        !  ----   : ----   : ---------------------------------------------
44        !fracrefa : real
45        !fracrefb : real
46        ! ka      : real
47        ! kb      : real
48        ! ka_mco2 : real
49        ! kb_mco2 : real
50        ! selfref : real
51        ! forref  : real
52        !
53        ! absa    : real
54        !-----------------------------------------------------------------
55        INTEGER, parameter :: ng7  = 12
56        REAL(KIND=r8), dimension(ng7) :: fracrefb
57        REAL(KIND=r8) :: fracrefa(ng7,9)
58        REAL(KIND=r8) :: absa(585,ng7)
59        REAL(KIND=r8) :: absb(235,ng7)
60        REAL(KIND=r8) :: ka_mco2(9,19,ng7)
61        REAL(KIND=r8) :: kb_mco2(19,ng7)
62        REAL(KIND=r8) :: selfref(10,ng7)
63        REAL(KIND=r8) :: forref(4,ng7)
64        PUBLIC kgen_read_externs_rrlw_kg07
65    CONTAINS
66
67    ! write subroutines
68
69    ! module extern variables
70
71    SUBROUTINE kgen_read_externs_rrlw_kg07(kgen_unit)
72        INTEGER, INTENT(IN) :: kgen_unit
73        READ(UNIT=kgen_unit) fracrefb
74        READ(UNIT=kgen_unit) fracrefa
75        READ(UNIT=kgen_unit) absa
76        READ(UNIT=kgen_unit) absb
77        READ(UNIT=kgen_unit) ka_mco2
78        READ(UNIT=kgen_unit) kb_mco2
79        READ(UNIT=kgen_unit) selfref
80        READ(UNIT=kgen_unit) forref
81    END SUBROUTINE kgen_read_externs_rrlw_kg07
82
83    END MODULE rrlw_kg07
84