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