1
2! KGEN-generated Fortran source file
3!
4! Filename    : rrsw_kg21.f90
5! Generated at: 2015-07-31 20:45:42
6! KGEN version: 0.4.13
7
8
9
10    MODULE rrsw_kg21
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: ng21
15        IMPLICIT NONE
16        !-----------------------------------------------------------------
17        ! rrtmg_sw ORIGINAL abs. coefficients for interval 21
18        ! band 21:  6150-7700 cm-1 (low - h2o,co2; high - h2o,co2)
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        !-----------------------------------------------------------------
32        INTEGER :: layreffr
33        REAL(KIND=r8) :: strrat
34        REAL(KIND=r8) :: rayl
35        !-----------------------------------------------------------------
36        ! rrtmg_sw COMBINED abs. coefficients for interval 21
37        ! band 21:  6150-7700 cm-1 (low - h2o,co2; high - h2o,co2)
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        !-----------------------------------------------------------------
53        REAL(KIND=r8) :: absa(585,ng21)
54        REAL(KIND=r8) :: absb(1175,ng21)
55        REAL(KIND=r8) :: forref(4,ng21)
56        REAL(KIND=r8) :: selfref(10,ng21)
57        REAL(KIND=r8) :: sfluxref(ng21,9)
58        PUBLIC kgen_read_externs_rrsw_kg21
59    CONTAINS
60
61    ! write subroutines
62
63    ! module extern variables
64
65    SUBROUTINE kgen_read_externs_rrsw_kg21(kgen_unit)
66        INTEGER, INTENT(IN) :: kgen_unit
67        READ(UNIT=kgen_unit) layreffr
68        READ(UNIT=kgen_unit) strrat
69        READ(UNIT=kgen_unit) rayl
70        READ(UNIT=kgen_unit) absa
71        READ(UNIT=kgen_unit) absb
72        READ(UNIT=kgen_unit) forref
73        READ(UNIT=kgen_unit) selfref
74        READ(UNIT=kgen_unit) sfluxref
75    END SUBROUTINE kgen_read_externs_rrsw_kg21
76
77    END MODULE rrsw_kg21
78