1
2! KGEN-generated Fortran source file
3!
4! Filename    : rrsw_kg20.f90
5! Generated at: 2015-07-07 00:48:24
6! KGEN version: 0.4.13
7
8
9
10    MODULE rrsw_kg20
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        USE parrrsw, ONLY: ng20
15        IMPLICIT NONE
16        !-----------------------------------------------------------------
17        ! rrtmg_sw ORIGINAL abs. coefficients for interval 20
18        ! band 20:  5150-6150 cm-1 (low - h2o; high - h2o)
19        !
20        ! Initial version:  JJMorcrette, ECMWF, oct1999
21        ! Revised: MJIacono, AER, jul2006
22        !-----------------------------------------------------------------
23        !
24        !  name     type     purpose
25        !  ----   : ----   : ---------------------------------------------
26        ! kao     : real
27        ! kbo     : real
28        ! selfrefo: real
29        ! forrefo : real
30        !sfluxrefo: real
31        ! absch4o : real
32        !-----------------------------------------------------------------
33        INTEGER :: layreffr
34        REAL(KIND=r8) :: rayl
35        !-----------------------------------------------------------------
36        ! rrtmg_sw COMBINED abs. coefficients for interval 20
37        ! band 20:  5150-6150 cm-1 (low - h2o; high - h2o)
38        !
39        ! Initial version:  JJMorcrette, ECMWF, oct1999
40        ! Revised: MJIacono, AER, jul2006
41        !-----------------------------------------------------------------
42        !
43        !  name     type     purpose
44        !  ----   : ----   : ---------------------------------------------
45        ! ka      : real
46        ! kb      : real
47        ! absa    : real
48        ! absb    : real
49        ! selfref : real
50        ! forref  : real
51        ! sfluxref: real
52        ! absch4  : real
53        !-----------------------------------------------------------------
54        REAL(KIND=r8) :: absa(65,ng20)
55        REAL(KIND=r8) :: absb(235,ng20)
56        REAL(KIND=r8) :: forref(4,ng20)
57        REAL(KIND=r8) :: selfref(10,ng20)
58        REAL(KIND=r8) :: sfluxref(ng20)
59        REAL(KIND=r8) :: absch4(ng20)
60        PUBLIC kgen_read_externs_rrsw_kg20
61    CONTAINS
62
63    ! write subroutines
64
65    ! module extern variables
66
67    SUBROUTINE kgen_read_externs_rrsw_kg20(kgen_unit)
68        INTEGER, INTENT(IN) :: kgen_unit
69        READ(UNIT=kgen_unit) layreffr
70        READ(UNIT=kgen_unit) rayl
71        READ(UNIT=kgen_unit) absa
72        READ(UNIT=kgen_unit) absb
73        READ(UNIT=kgen_unit) forref
74        READ(UNIT=kgen_unit) selfref
75        READ(UNIT=kgen_unit) sfluxref
76        READ(UNIT=kgen_unit) absch4
77    END SUBROUTINE kgen_read_externs_rrsw_kg20
78
79    END MODULE rrsw_kg20
80