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