MODULE module_ra_rrtmg_swk
      CONTAINS
      SUBROUTINE rrtmg_sw
         REAL :: dummy
         dummy = 1
      END SUBROUTINE rrtmg_sw
      END MODULE module_ra_rrtmg_swk