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