    MODULE SSALB
!>--------------------------------------------------------------------------------------------------
!> MODULE SSALB
!>
!> USE MODULES: F77KINDS
!>
!> DRIVER     : GFDLRD
!>--------------------------------------------------------------------------------------------------
    USE F77KINDS
!
    IMPLICIT NONE
!
    SAVE
!
    REAL   (KIND=R4KIND), DIMENSION(20)                                                         ::&
    & ZA
!
    REAL   (KIND=R4KIND), DIMENSION(21)                                                         ::&
    & TRN
!
    REAL   (KIND=R4KIND), DIMENSION(19)                                                         ::&
    & DZA
!
    REAL   (KIND=R4KIND), DIMENSION(21, 20)                                                     ::&
    & ALBD
!------------ 
! FROM GFDLRD
!------------
    REAL   (KIND=R4KIND), DIMENSION(21, 7)                                                      ::&
    & ALB1    , ALB2
!
    REAL   (KIND=R4KIND), DIMENSION(21, 6)                                                      ::&
    & ALB3                
!
    EQUIVALENCE (ALB1(1,1),ALBD(1,1)), (ALB2(1,1),ALBD(1,8)), (ALB3(1,1),ALBD(1,15))
!
    DATA ALB1 /                                                                                   &
    & .061, .062, .072, .087, .115, .163, .235, .318, .395, .472, .542, .604, .655, .693, .719,   &
    & .732, .730, .681, .581, .453, .425, .061, .062, .070, .083, .108, .145, .198, .263, .336,   &
    & .415, .487, .547, .595, .631, .656, .670, .652, .602, .494, .398, .370, .061, .061, .068,   &
    & .079, .098, .130, .174, .228, .290, .357, .424, .498, .556, .588, .603, .592, .556, .488,   &
    & .393, .342, .325, .061, .061, .065, .073, .086, .110, .150, .192, .248, .306, .360, .407,   &
    & .444, .469, .480, .474, .444, .386, .333, .301, .290, .061, .061, .065, .070, .082, .101,   &
    & .131, .168, .208, .252, .295, .331, .358, .375, .385, .377, .356, .320, .288, .266, .255,   &
    & .061, .061, .063, .068, .077, .092, .114, .143, .176, .210, .242, .272, .288, .296, .300,   &
    & .291, .273, .252, .237, .266, .220, .061, .061, .062, .066, .072, .084, .103, .127, .151,   &
    & .176, .198, .219, .236, .245, .250, .246, .235, .222, .211, .205, .200/
!
    DATA ALB2/                                                                                    &
    & .061, .061, .061, .065, .071, .079, .094, .113, .134, .154, .173, .185, .190, .193, .193,   &
    & .190, .188, .185, .182, .180, .178, .061, .061, .061, .064, .067, .072, .083, .099, .117,   &
    & .135, .150, .160, .164, .165, .164, .162, .160, .159, .158, .157, .157, .061, .061, .061,   &
    & .062, .065, .068, .074, .084, .097, .111, .121, .127, .130, .131, .131, .130, .129, .127,   &
    & .126, .125, .122, .061, .061, .061, .061, .062, .064, .070, .076, .085, .094, .101, .105,   &
    & .107, .106, .103, .100, .097, .096, .095, .095, .095, .061, .061, .061, .060, .061, .062,   &
    & .065, .070, .075, .081, .086, .089, .090, .088, .084, .080, .077, .075, .074, .074, .074,   &
    & .061, .061, .060, .060, .060, .061, .063, .065, .068, .072, .076, .077, .076, .074, .071,   &
    & .067, .064, .062, .061, .061, .061, .061, .061, .060, .060, .060, .060, .061, .062, .065,   &
    & .068, .069, .069, .068, .065, .061, .058, .055, .054, .053, .052, .052/
!
    DATA ALB3/                                                                                    &
    & .061, .061, .060, .060, .060, .060, .060, .060, .062, .065, .065, .063, .060, .057, .054,   &
    & .050, .047, .046, .045, .044, .044, .061, .061, .060, .060, .060, .059, .059, .059, .059,   &
    & .059, .058, .055, .051, .047, .043, .039, .035, .033, .032, .031, .031, .061, .061, .060,   &
    & .060, .060, .059, .059, .058, .057, .056, .054, .051, .047, .043, .039, .036, .033, .030,   &
    & .028, .027, .026, .061, .061, .060, .060, .060, .059, .059, .058, .057, .055, .052, .049,   &
    & .045, .040, .036, .032, .029, .027, .026, .025, .025, .061, .061, .060, .060, .060, .059,   &
    & .059, .058, .056, .053, .050, .046, .042, .038, .034, .031, .028, .026, .025, .025, .025,   &
    & .061, .061, .060, .060, .059, .058, .058, .057, .055, .053, .050, .046, .042, .038, .034,   &
    & .030, .028, .029, .025, .025, .025/
!
    DATA ZA /                                                                                     &
    & 90., 88. , 86., 84., 82., 80., 78., 76., 74., 70., 66., 62., 58., 54., 50., 40., 30., 20.,  &
    & 10.,  0.0/
!
    DATA TRN /                                                                                    &
    & .00, .05,  .10, .15, .20, .25, .30, .35, .40, .45, .50, .55, .60, .65, .70, .75, .80, .85,  &
    & .90, .95, 1.00/
!
    DATA DZA /                                                                                    &
    & 8*2.0, 6*4.0, 5*10.0/
!
    END MODULE SSALB
