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