!--------------------------------------------------------------------------------------------------
!  DOXYGEN
!> @brief Brief of Module SWRSAV...
!! @details Details of Module SWRSAV...
!! @author Lucci 
!! @date 18-03-20 \n
!<
!> @details <b>Use Module:</b>   
!! @arg @c F77KINDS
!! @arg @c RDPARM
!! @details <b>Driver:</b> 
!! @arg @c RADFS
!! @arg @c RADTN
!! @arg @c SWR93
!<
!--------------------------------------------------------------------------------------------------
    MODULE SWRSAV
!--------------------------------------------------------------------------------------------------
! MODULE SWRSAV
!
! USE MODULES: F77KINDS
!              RDPARM
!
! DRIVER     : RADFS
!              RADTN
!              SWR93
!--------------------------------------------------------------------------------------------------
    USE F77KINDS
    USE RDPARM  , ONLY : NB
!
    IMPLICIT NONE
!
    REAL   (KIND=R4)    , DIMENSION(NB)                                                         ::&
    & ABCFF   , PWTS
!
    REAL   (KIND=R4)                                                                            ::&
    & CFCO2   , CFO3    , REFLO3  , RRAYAV
!-------------------------------------------------------------------------------------------------- 
! SPECIFICATION OF DATA STATEMENTS:
! ABCFF - ABSORPTION COEFFICIENTS FOR BANDS IN K-DISTRIBUTION.
! ORIGINALLY GIVEN BY LACIS AND HANSEN, REVISED BY RAMASWAMY
! PWTS - CORRESPONDING WEIGHTS ASSIGNED TO BANDS IN THE K-DISTRIBUTION
! REFLO3, RRAYAV - REFLECTION COEFFICIENTS GIVEN BY LACIS AND HANSEN TO ACCOUNT FOR EFFECTS OF 
!                  RAYLEIGH SCATTERING IN THE VISIBLE FREQUENCIES (BAND 1)
! CFCO2, CFO3 = CONVERSION FACTORS FROM GM / CM ** 2 TO CM-ATM(STP)
!
! THE FOLLOWING ARE THE COEFFICIENTS FOR THE 12-BAND SHORTWAVE RADIATION CODE, SPECIFIED BY
! RAMASWAMY.
!--------------------------------------------------------------------------------------------------
    DATA ABCFF /                                                                                  &
    & 2*4.0E-5, .002   , .035 , .377 , 1.95 , 9.40 , 44.6 , 190. , 989. , 2706.  , 39011./
!
    DATA PWTS /                                                                                   &
    & .5000  , .121416, .0698, .1558, .0631, .0362, .0243, .0158, .0087, .001467, .002342, .001075/
!--------------------------------------------------------------------------------------------------
! THE ORIGINAL 9-BAND LACIS-HANSEN COEFFICIENTS ARE GIVEN HERE; IT THE USER INSISTS ON USING THESE
! VALUES, SHE MUST ALSO CHANGE THE PARAMETER NB FROM 12 TO 9.
! THIS PARAMETER IS DEFINED IN RDPARM. H. NO OTHER CHANGES ARE REQUIRED
!--------------------------------------------------------------------------------------------------
    DATA CFCO2  / 508.96   /
    DATA CFO3   / 466.64   /
    DATA REFLO3 /   1.9    /
    DATA RRAYAV /   0.144  /
!
    END MODULE SWRSAV