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