module rrlw_cld use parkind, only : rb => kind_rb implicit none save !------------------------------------------------------------------ ! rrtmg_lw cloud property coefficients ! Revised: MJIacono, AER, jun2006 ! Revised: MJIacono, AER, aug2008 !------------------------------------------------------------------ ! name type purpose ! ----- : ---- : ---------------------------------------------- ! abscld1: real : ! absice0: real : ! absice1: real : ! absice2: real : ! absice3: real : ! absliq0: real : ! absliq1: real : !------------------------------------------------------------------ real(kind=rb) :: abscld1 real(kind=rb) , dimension(2) :: absice0 real(kind=rb) , dimension(2,5) :: absice1 real(kind=rb) , dimension(43,16) :: absice2 real(kind=rb) , dimension(46,16) :: absice3 real(kind=rb) :: absliq0 real(kind=rb) , dimension(58,16) :: absliq1 end module rrlw_cld