SURFEX v8.1
General documentation of Surfex
modd_albedo_rs14_par.F90
Go to the documentation of this file.
1 !SFX_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier
2 !SFX_LIC This is part of the SURFEX software governed by the CeCILL-C licence
3 !SFX_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt
4 !SFX_LIC for details. version 1.
5 ! ######################
6  MODULE modd_albedo_rs14_par
7 ! ######################
8 !
9 !!**** *MOD_DALBEDO_RS14* - declaration of ISBA parameters
10 !!
11 !! PURPOSE
12 !! -------
13 ! The purpose of this declarative module is to specify the
14 ! parameters related to direct & diffuse albedo over open water
15 !
16 !!
17 !!
18 !!
19 !! AUTHOR
20 !! ------
21 !! R. Séférian * Meteo-France *
22 !!
23 !! MODIFICATIONS
24 !! -------------
25 !-------------------------------------------------------------------------------
26 !
27 !* 0. DECLARATIONS
28 ! ------------
29 !
30 IMPLICIT NONE
31 !
32 ! number of wavelength (200nm - 4000nm by 10nm apart)
33 INTEGER, PARAMETER :: nnwl = 381
34 !
35 ! absorption coefficients for seawater et 440 nm
36 REAL, PARAMETER :: xaw440 = 0.00635
37 !
38 ! table of wavelength discretization (by 10nm apart)
39 REAL, PARAMETER, DIMENSION(NNWL):: xakwl= &
40  (/ 200.0, 210.0, 220.0, 230.0, 240.0, 250.0, 260.0, 270.0, 280.0, &
41  290.0, 300.0, 310.0, 320.0, 330.0, 340.0, 350.0, 360.0, 370.0, &
42  380.0, 390.0, 400.0, 410.0, 420.0, 430.0, 440.0, 450.0, 460.0, &
43  470.0, 480.0, 490.0, 500.0, 510.0, 520.0, 530.0, 540.0, 550.0, &
44  560.0, 570.0, 580.0, 590.0, 600.0, 610.0, 620.0, 630.0, 640.0, &
45  650.0, 660.0, 670.0, 680.0, 690.0, 700.0, 710.0, 720.0, 730.0, &
46  740.0, 750.0, 760.0, 770.0, 780.0, 790.0, 800.0, 810.0, 820.0, &
47  830.0, 840.0, 850.0, 860.0, 870.0, 880.0, 890.0, 900.0, 910.0, &
48  920.0, 930.0, 940.0, 950.0, 960.0, 970.0, 980.0, 990.0, 1000.0, 1010.0, &
49  1020.0, 1030.0, 1040.0, 1050.0, 1060.0, 1070.0, 1080.0, 1090.0, 1100.0, &
50  1110.0, 1120.0, 1130.0, 1140.0, 1150.0, 1160.0, 1170.0, 1180.0, 1190.0, &
51  1200.0, 1210.0, 1220.0, 1230.0, 1240.0, 1250.0, 1260.0, 1270.0, 1280.0, &
52  1290.0, 1300.0, 1310.0, 1320.0, 1330.0, 1340.0, 1350.0, 1360.0, 1370.0, &
53  1380.0, 1390.0, 1400.0, 1410.0, 1420.0, 1430.0, 1440.0, 1450.0, 1460.0, &
54  1470.0, 1480.0, 1490.0, 1500.0, 1510.0, 1520.0, 1530.0, 1540.0, 1550.0, &
55  1560.0, 1570.0, 1580.0, 1590.0, 1600.0, 1610.0, 1620.0, 1630.0, 1640.0, &
56  1650.0, 1660.0, 1670.0, 1680.0, 1690.0, 1700.0, 1710.0, 1720.0, 1730.0, &
57  1740.0, 1750.0, 1760.0, 1770.0, 1780.0, 1790.0, 1800.0, 1810.0, 1820.0, &
58  1830.0, 1840.0, 1850.0, 1860.0, 1870.0, 1880.0, 1890.0, 1900.0, 1910.0, &
59 1920.0, 1930.0, 1940.0, 1950.0, 1960.0, 1970.0, 1980.0, 1990.0, 2000.0, 2010.0,&
60 2020.0, 2030.0, 2040.0, 2050.0, 2060.0, 2070.0, 2080.0, 2090.0, 2100.0, 2110.0,&
61 2120.0, 2130.0, 2140.0, 2150.0, 2160.0, 2170.0, 2180.0, 2190.0, 2200.0, 2210.0,&
62 2220.0, 2230.0, 2240.0, 2250.0, 2260.0, 2270.0, 2280.0, 2290.0, 2300.0, 2310.0,&
63 2320.0, 2330.0, 2340.0, 2350.0, 2360.0, 2370.0, 2380.0, 2390.0, 2400.0, 2410.0,&
64 2420.0, 2430.0, 2440.0, 2450.0, 2460.0, 2470.0, 2480.0, 2490.0, 2500.0, 2510.0,&
65 2520.0, 2530.0, 2540.0, 2550.0, 2560.0, 2570.0, 2580.0, 2590.0, 2600.0, 2610.0,&
66 2620.0, 2630.0, 2640.0, 2650.0, 2660.0, 2670.0, 2680.0, 2690.0, 2700.0, 2710.0,&
67 2720.0, 2730.0, 2740.0, 2750.0, 2760.0, 2770.0, 2780.0, 2790.0, 2800.0, 2810.0,&
68 2820.0, 2830.0, 2840.0, 2850.0, 2860.0, 2870.0, 2880.0, 2890.0, 2900.0, 2910.0,&
69 2920.0, 2930.0, 2940.0, 2950.0, 2960.0, 2970.0, 2980.0, 2990.0, 3000.0, 3010.0,&
70 3020.0, 3030.0, 3040.0, 3050.0, 3060.0, 3070.0, 3080.0, 3090.0, 3100.0, 3110.0,&
71 3120.0, 3130.0, 3140.0, 3150.0, 3160.0, 3170.0, 3180.0, 3190.0, 3200.0, 3210.0,&
72 3220.0, 3230.0, 3240.0, 3250.0, 3260.0, 3270.0, 3280.0, 3290.0, 3300.0, 3310.0,&
73 3320.0, 3330.0, 3340.0, 3350.0, 3360.0, 3370.0, 3380.0, 3390.0, 3400.0, 3410.0,&
74 3420.0, 3430.0, 3440.0, 3450.0, 3460.0, 3470.0, 3480.0, 3490.0, 3500.0, 3510.0,&
75 3520.0, 3530.0, 3540.0, 3550.0, 3560.0, 3570.0, 3580.0, 3590.0, 3600.0, 3610.0,&
76 3620.0, 3630.0, 3640.0, 3650.0, 3660.0, 3670.0, 3680.0, 3690.0, 3700.0, 3710.0,&
77 3720.0, 3730.0, 3740.0, 3750.0, 3760.0, 3770.0, 3780.0, 3790.0, 3800.0, 3810.0,&
78 3820.0, 3830.0, 3840.0, 3850.0, 3860.0, 3870.0, 3880.0, 3890.0, 3900.0, 3910.0,&
79 3920.0, 3930.0, 3940.0, 3950.0, 3960.0, 3970.0, 3980.0, 3990.0, 4000.0 /)
80 !
81 ! proportion of each wavelength
82 REAL, PARAMETER, DIMENSION(NNWL):: xfrwl= &
83 (/0.5399519e-04, 0.2057802e-03, 0.3488387e-03, 0.3841427e-03, 0.2915711e-03, &
84 0.4429581e-03, 0.6302387e-03, 0.1970095e-02, 0.6974564e-03, 0.4431792e-02, &
85 0.3095547e-02, 0.4587307e-02, 0.5933870e-02, 0.7488277e-02, 0.7421943e-02, &
86 0.7738869e-02, 0.7155137e-02, 0.8394831e-02, 0.8859162e-02, 0.9190828e-02, &
87 0.1239693e-01, 0.1129138e-01, 0.1294971e-01, 0.8365349e-02, 0.1262541e-01,&
88 0.1580203e-01, 0.1503552e-01, 0.1383415e-01, 0.1499867e-01, 0.1479230e-01,&
89 0.1368674e-01, 0.1435007e-01, 0.1349511e-01, 0.1438693e-01, 0.1303815e-01,&
90 0.1372359e-01, 0.1358356e-01, 0.1303815e-01, 0.1354671e-01, 0.1336245e-01,&
91 0.1286863e-01, 0.1255171e-01, 0.1278019e-01, 0.1208001e-01, 0.1189575e-01,&
92 0.1183678e-01, 0.1157882e-01, 0.1117345e-01, 0.1099656e-01, 0.1067227e-01,&
93 0.1021531e-01, 0.1020794e-01, 0.9809937e-02, 0.9773086e-02, 0.9271902e-02,&
94 0.9301383e-02, 0.9117125e-02, 0.8873903e-02, 0.8748608e-02, 0.8534866e-02,&
95 0.8416941e-02, 0.8210571e-02, 0.7959980e-02, 0.7834683e-02, 0.7665165e-02,&
96 0.7119759e-02, 0.7347503e-02, 0.7183881e-02, 0.7041634e-02, 0.7023945e-02,&
97 0.6749768e-02, 0.6571406e-02, 0.6565509e-02, 0.6395254e-02, 0.6219103e-02,&
98 0.6168247e-02, 0.6007574e-02, 0.5866062e-02, 0.5709074e-02, 0.5557982e-02,&
99 0.5512286e-02, 0.5389938e-02, 0.5189464e-02, 0.5112813e-02, 0.4983095e-02,&
100 0.4880646e-02, 0.4728080e-02, 0.4599837e-02, 0.4604259e-02, 0.4568881e-02,&
101 0.4453166e-02, 0.4352930e-02, 0.4231319e-02, 0.4166460e-02, 0.4075804e-02,&
102 0.4045586e-02, 0.3921027e-02, 0.3888597e-02, 0.3861327e-02, 0.3747823e-02,&
103 0.3687387e-02, 0.3598206e-02, 0.3593046e-02, 0.3531872e-02, 0.3429424e-02,&
104 0.3408050e-02, 0.3338769e-02, 0.3282018e-02, 0.3210525e-02, 0.3136085e-02,&
105 0.3085229e-02, 0.3026266e-02, 0.2959933e-02, 0.2858222e-02, 0.2793363e-02,&
106 0.2744719e-02, 0.2707130e-02, 0.2652589e-02, 0.2637849e-02, 0.2584045e-02,&
107 0.2525819e-02, 0.2519186e-02, 0.2474227e-02, 0.2400524e-02, 0.2349668e-02,&
108 0.2348931e-02, 0.2326083e-02, 0.2286283e-02, 0.2261224e-02, 0.2222161e-02,&
109 0.2219213e-02, 0.2172043e-02, 0.2112343e-02, 0.2037902e-02, 0.2012106e-02,&
110 0.1999576e-02, 0.1977465e-02, 0.1949458e-02, 0.1953143e-02, 0.1772569e-02,&
111 0.1851432e-02, 0.1768884e-02, 0.1746036e-02, 0.1763725e-02, 0.1667173e-02,&
112 0.1674544e-02, 0.1654644e-02, 0.1639903e-02, 0.1533033e-02, 0.1551459e-02,&
113 0.1520504e-02, 0.1483652e-02, 0.1468911e-02, 0.1462278e-02, 0.1404052e-02,&
114 0.1369411e-02, 0.1349511e-02, 0.1320030e-02, 0.1294234e-02, 0.1277282e-02,&
115 0.1252223e-02, 0.1242641e-02, 0.1176308e-02, 0.1183679e-02, 0.1151249e-02,&
116 0.1139456e-02, 0.1107764e-02, 0.1111449e-02, 0.1077545e-02, 0.1049538e-02,&
117 0.1029638e-02, 0.1015634e-02, 0.9824679e-03, 0.9677272e-03, 0.9574086e-03,&
118 0.9294013e-03, 0.9294013e-03, 0.9131865e-03, 0.8814940e-03, 0.8829681e-03,&
119 0.8623311e-03, 0.8468534e-03, 0.8225312e-03, 0.8004201e-03, 0.7945239e-03,&
120 0.7805202e-03, 0.7576721e-03, 0.7392463e-03, 0.7280433e-03, 0.7214100e-03,&
121 0.7079960e-03, 0.6925183e-03, 0.6836001e-03, 0.6787357e-03, 0.6694490e-03,&
122 0.6601624e-03, 0.6471906e-03, 0.6306809e-03, 0.6262587e-03, 0.6120340e-03,&
123 0.6091595e-03, 0.5955244e-03, 0.5894070e-03, 0.5771722e-03, 0.5630211e-03,&
124 0.5557982e-03, 0.5469538e-03, 0.5378146e-03, 0.5280857e-03, 0.5240319e-03,&
125 0.5124605e-03, 0.5063431e-03, 0.4988254e-03, 0.4876225e-03, 0.4805469e-03,&
126 0.4756088e-03, 0.4649218e-03, 0.4577725e-03, 0.4548981e-03, 0.4443585e-03,&
127 0.4380937e-03, 0.4349982e-03, 0.4252693e-03, 0.4209945e-03, 0.4156141e-03,&
128 0.4025686e-03, 0.4022001e-03, 0.3895231e-03, 0.3815631e-03, 0.3851009e-03,&
129 0.3799416e-03, 0.3736400e-03, 0.3673383e-03, 0.3610735e-03, 0.3548087e-03,&
130 0.3495758e-03, 0.3443428e-03, 0.3398469e-03, 0.3353510e-03, 0.3319237e-03,&
131 0.3284966e-03, 0.3228951e-03, 0.3172936e-03, 0.3138296e-03, 0.3103655e-03,&
132 0.3055011e-03, 0.3006366e-03, 0.2965461e-03, 0.2924555e-03, 0.2887335e-03,&
133 0.2850115e-03, 0.2811789e-03, 0.2773463e-03, 0.2736611e-03, 0.2699760e-03,&
134 0.2656643e-03, 0.2613527e-03, 0.2584782e-03, 0.2556038e-03, 0.2525451e-03,&
135 0.2494864e-03, 0.2462434e-03, 0.2430005e-03, 0.2397575e-03, 0.2365146e-03,&
136 0.2331979e-03, 0.2298813e-03, 0.2266752e-03, 0.2234690e-03, 0.2211474e-03,&
137 0.2188257e-03, 0.2159144e-03, 0.2130031e-03, 0.2103130e-03, 0.2076228e-03,&
138 0.2051537e-03, 0.2026847e-03, 0.2001787e-03, 0.1976728e-03, 0.1950932e-03,&
139 0.1925136e-03, 0.1901182e-03, 0.1877228e-03, 0.1847010e-03, 0.1816792e-03,&
140 0.1800945e-03, 0.1785099e-03, 0.1763725e-03, 0.1742351e-03, 0.1720977e-03,&
141 0.1699603e-03, 0.1677492e-03, 0.1655381e-03, 0.1637692e-03, 0.1620003e-03,&
142 0.1600103e-03, 0.1580203e-03, 0.1562514e-03, 0.1544826e-03, 0.1527137e-03,&
143 0.1509448e-03, 0.1491759e-03, 0.1474070e-03, 0.1456013e-03, 0.1437956e-03,&
144 0.1421741e-03, 0.1405526e-03, 0.1387469e-03, 0.1369411e-03, 0.1348774e-03,&
145 0.1328137e-03, 0.1315608e-03, 0.1303078e-03, 0.1291654e-03, 0.1280230e-03,&
146 0.1265489e-03, 0.1250749e-03, 0.1236745e-03, 0.1222741e-03, 0.1206526e-03,&
147 0.1190312e-03, 0.1178888e-03, 0.1167464e-03, 0.1156408e-03, 0.1145353e-03,&
148 0.1132823e-03, 0.1120294e-03, 0.1107764e-03, 0.1095234e-03, 0.1084179e-03,&
149 0.1073123e-03, 0.1061699e-03, 0.1050275e-03, 0.1038483e-03, 0.1026690e-03,&
150 0.1015266e-03, 0.1003842e-03, 0.9935234e-04, 0.9832049e-04, 0.9732549e-04,&
151 0.9633049e-04, 0.9537235e-04, 0.9441420e-04, 0.9330864e-04, 0.9220310e-04,&
152 0.9113440e-04, 0.9006570e-04, 0.8899700e-04, 0.8792829e-04, 0.8678589e-04,&
153 0.8564349e-04, 0.8501700e-04, 0.8439052e-04, 0.8302701e-04, 0.8166349e-04,&
154 0.8122127e-04, 0.8077905e-04, 0.8011572e-04, 0.7945239e-04, 0.7867850e-04,&
155 0.7790462e-04, 0.7720443e-04, 0.7650425e-04, 0.7580406e-04, 0.7510388e-04,&
156 0.7434105e-04, 0.7357822e-04, 0.7283750e-04, 0.7209678e-04, 0.7142239e-04,&
157 0.7074801e-04, 0.7011415e-04, 0.6948030e-04, 0.6876537e-04, 0.6805045e-04,&
158 0.6730973e-04, 0.6656901e-04, 0.6592411e-04, 0.6527920e-04, 0.6458639e-04,&
159 0.6389357e-04 /)
160 !
161 ! Table for computing Reflectance just below ocean surface (bounded to 200-800 nm)
162 ! table of refractive index as function of wavelength
163 REAL, PARAMETER, DIMENSION(NNWL):: xakrefm= &
164 (/ 1.4517, 1.4345, 1.4214, 1.4108, 1.4022, 1.3950, 1.3889, 1.3836, &
165 1.3790, 1.3750, 1.3714, 1.3682, 1.3653, 1.3627, 1.3604, 1.3582, 1.3562,&
166 1.3544, 1.3528, 1.3512, 1.3498, 1.3484, 1.3472, 1.3460, 1.3449, 1.3439,&
167 1.3429, 1.3420, 1.3411, 1.3402, 1.3394, 1.3387, 1.3379, 1.3372, 1.3366,&
168 1.3359, 1.3353, 1.3347, 1.3342, 1.3336, 1.3331, 1.3326, 1.3321, 1.3316,&
169 1.3311, 1.3307, 1.3303, 1.3299, 1.3295, 1.3291, 1.3288, 1.3284, 1.3281,&
170 1.3278, 1.3275, 1.3272, 1.3269, 1.3266, 1.3264, 1.3261, 1.3259, 1.3256,&
171 1.3254, 1.3252, 1.3249, 1.3247, 1.3245, 1.3243, 1.3241, 1.3238, 1.3236,&
172 1.3234, 1.3232, 1.3230, 1.3228, 1.3226, 1.3225, 1.3223, 1.3221, 1.3219,&
173 1.3217, 1.3215, 1.3213, 1.3211, 1.3210, 1.3208, 1.3206, 1.3204, 1.3202,&
174 1.3200, 1.3198, 1.3197, 1.3195, 1.3193, 1.3191, 1.3189, 1.3187, 1.3186,&
175 1.3184, 1.3182, 1.3180, 1.3178, 1.3176, 1.3174, 1.3172, 1.3170, 1.3169,&
176 1.3167, 1.3165, 1.3163, 1.3161, 1.3159, 1.3156, 1.3154, 1.3152, 1.3150,&
177 1.3148, 1.3146, 1.3143, 1.3141, 1.3139, 1.3137, 1.3135, 1.3134, 1.3132,&
178 1.3130, 1.3129, 1.3127, 1.3125, 1.3123, 1.3121, 1.3119, 1.3116, 1.3114,&
179 1.3111, 1.3109, 1.3106, 1.3104, 1.3101, 1.3099, 1.3096, 1.3094, 1.3091,&
180 1.3088, 1.3086, 1.3083, 1.3080, 1.3077, 1.3074, 1.3071, 1.3068, 1.3065,&
181 1.3061, 1.3058, 1.3055, 1.3051, 1.3048, 1.3044, 1.3041, 1.3037, 1.3034,&
182 1.3030, 1.3026, 1.3022, 1.3017, 1.3013, 1.3007, 1.3002, 1.2998, 1.2995,&
183 1.2990, 1.2988, 1.2988, 1.2987, 1.2986, 1.2985, 1.2983, 1.2980, 1.2977,&
184 1.2973, 1.2969, 1.2965, 1.2960, 1.2955, 1.2950, 1.2945, 1.2940, 1.2935,&
185 1.2929, 1.2924, 1.2918, 1.2913, 1.2907, 1.2901, 1.2895, 1.2889, 1.2883,&
186 1.2876, 1.2870, 1.2863, 1.2856, 1.2849, 1.2842, 1.2835, 1.2828, 1.2820,&
187 1.2812, 1.2804, 1.2796, 1.2788, 1.2779, 1.2770, 1.2761, 1.2751, 1.2741,&
188 1.2731, 1.2721, 1.2711, 1.2699, 1.2688, 1.2676, 1.2664, 1.2652, 1.2639,&
189 1.2625, 1.2612, 1.2597, 1.2582, 1.2567, 1.2552, 1.2535, 1.2518, 1.2499,&
190 1.2480, 1.2459, 1.2436, 1.2413, 1.2388, 1.2361, 1.2331, 1.2299, 1.2263,&
191 1.2223, 1.2182, 1.2140, 1.2091, 1.2034, 1.1973, 1.1910, 1.1850, 1.1780,&
192 1.1691, 1.1564, 1.1489, 1.1430, 1.1351, 1.1318, 1.1323, 1.1308, 1.1277,&
193 1.1294, 1.1286, 1.1255, 1.1271, 1.1348, 1.1417, 1.1480, 1.1612, 1.1736,&
194 1.1847, 1.2008, 1.2177, 1.2336, 1.2505, 1.2678, 1.2840, 1.3007, 1.3149,&
195 1.3281, 1.3407, 1.3539, 1.3661, 1.3782, 1.3903, 1.4024, 1.4136, 1.4217,&
196 1.4299, 1.4380, 1.4461, 1.4528, 1.4557, 1.4587, 1.4616, 1.4645, 1.4665,&
197 1.4655, 1.4645, 1.4634, 1.4624, 1.4613, 1.4589, 1.4566, 1.4543, 1.4519,&
198 1.4496, 1.4465, 1.4433, 1.4401, 1.4369, 1.4338, 1.4304, 1.4271, 1.4237,&
199 1.4203, 1.4170, 1.4144, 1.4117, 1.4091, 1.4065, 1.4041, 1.4020, 1.3999,&
200 1.3977, 1.3956, 1.3936, 1.3916, 1.3897, 1.3879, 1.3860, 1.3841, 1.3824,&
201 1.3808, 1.3791, 1.3774, 1.3758, 1.3743, 1.3729, 1.3714, 1.3700, 1.3685,&
202 1.3673, 1.3660, 1.3647, 1.3635, 1.3623, 1.3612, 1.3601, 1.3589, 1.3578,&
203 1.3568, 1.3558, 1.3548, 1.3538, 1.3528, 1.3519, 1.3510, 1.3501, 1.3493,&
204 1.3484, 1.3476, 1.3468, 1.3460, 1.3452, 1.3444, 1.3437, 1.3430, 1.3422,&
205 1.3415, 1.3408, 1.3401, 1.3395, 1.3388, 1.3382, 1.3375, 1.3369, 1.3363,&
206 1.3357, 1.3351, 1.3345, 1.3339 /)
207 !
208 ! table of chlorophyll absorption coefficient as function of wavelength
209 REAL, PARAMETER, DIMENSION(NNWL):: xakachl= &
210 (/0.4629505e+00, 0.4694205e+00, 0.4758904e+00, 0.4823604e+00, 0.4888304e+00,&
211 0.4953003e+00, 0.5017703e+00, 0.5082403e+00, 0.5147102e+00, 0.5211802e+00,&
212 0.5276502e+00, 0.5341201e+00, 0.5405901e+00, 0.5470601e+00, 0.5535300e+00,&
213 0.5600000e+00, 0.5700000e+00, 0.5900000e+00, 0.6100000e+00, 0.6600000e+00,&
214 0.6870000e+00, 0.8280000e+00, 0.9130000e+00, 0.9730000e+00, 0.1000000e+01,&
215 0.9440000e+00, 0.9170000e+00, 0.8700000e+00, 0.7980000e+00, 0.7500000e+00,&
216 0.6680000e+00, 0.6180000e+00, 0.5280000e+00, 0.4740000e+00, 0.4160000e+00,&
217 0.3570000e+00, 0.2940000e+00, 0.2760000e+00, 0.2910000e+00, 0.2820000e+00,&
218 0.2360000e+00, 0.2520000e+00, 0.2760000e+00, 0.3170000e+00, 0.3340000e+00,&
219 0.3560000e+00, 0.4410000e+00, 0.5950000e+00, 0.5020000e+00, 0.3290000e+00,&
220 0.2150000e+00, 0.2150000e+00, 0.2083276e+00, 0.2016552e+00, 0.1949828e+00,&
221 0.1883103e+00, 0.1816379e+00, 0.1749655e+00, 0.1682931e+00, 0.1616207e+00,&
222 0.1549483e+00, 0.1482759e+00, 0.1416035e+00, 0.1349310e+00, 0.1282586e+00,&
223 0.1215862e+00, 0.1149138e+00, 0.1082414e+00, 0.1015690e+00, 0.9489655e-01,&
224 0.8822414e-01, 0.8155172e-01, 0.7487931e-01, 0.6820690e-01, 0.6153448e-01,&
225 0.5486207e-01, 0.4818965e-01, 0.4151724e-01, 0.3484483e-01, 0.2817241e-01,&
226 0.2150000e-01, 0.2143550e-01, 0.2137100e-01, 0.2130650e-01, 0.2124200e-01,&
227 0.2117750e-01, 0.2111300e-01, 0.2104850e-01, 0.2098400e-01, 0.2091950e-01,&
228 0.2085500e-01, 0.2079050e-01, 0.2072600e-01, 0.2066150e-01, 0.2059700e-01,&
229 0.2053250e-01, 0.2046800e-01, 0.2040350e-01, 0.2033900e-01, 0.2027450e-01,&
230 0.2021000e-01, 0.2014550e-01, 0.2008100e-01, 0.2001650e-01, 0.1995200e-01,&
231 0.1988750e-01, 0.1982300e-01, 0.1975850e-01, 0.1969400e-01, 0.1962950e-01,&
232 0.1956500e-01, 0.1950050e-01, 0.1943600e-01, 0.1937150e-01, 0.1930700e-01,&
233 0.1924250e-01, 0.1917800e-01, 0.1911350e-01, 0.1904900e-01, 0.1898450e-01,&
234 0.1892000e-01, 0.1885550e-01, 0.1879100e-01, 0.1872650e-01, 0.1866200e-01,&
235 0.1859750e-01, 0.1853300e-01, 0.1846850e-01, 0.1840400e-01, 0.1833950e-01,&
236 0.1827500e-01, 0.1821050e-01, 0.1814600e-01, 0.1808150e-01, 0.1801700e-01,&
237 0.1795250e-01, 0.1788800e-01, 0.1782350e-01, 0.1775900e-01, 0.1769450e-01,&
238 0.1763000e-01, 0.1756550e-01, 0.1750100e-01, 0.1743650e-01, 0.1737200e-01,&
239 0.1730750e-01, 0.1724300e-01, 0.1717850e-01, 0.1711400e-01, 0.1704950e-01,&
240 0.1698500e-01, 0.1692050e-01, 0.1685600e-01, 0.1679150e-01, 0.1672700e-01,&
241 0.1666250e-01, 0.1659800e-01, 0.1653350e-01, 0.1646900e-01, 0.1640450e-01,&
242 0.1634000e-01, 0.1627550e-01, 0.1621100e-01, 0.1614650e-01, 0.1608200e-01,&
243 0.1601750e-01, 0.1595300e-01, 0.1588850e-01, 0.1582400e-01, 0.1575950e-01,&
244 0.1569500e-01, 0.1563050e-01, 0.1556600e-01, 0.1550150e-01, 0.1543700e-01,&
245 0.1537250e-01, 0.1530800e-01, 0.1524350e-01, 0.1517900e-01, 0.1511450e-01,&
246 0.1505000e-01, 0.1498550e-01, 0.1492100e-01, 0.1485650e-01, 0.1479200e-01,&
247 0.1472750e-01, 0.1466300e-01, 0.1459850e-01, 0.1453400e-01, 0.1446950e-01,&
248 0.1440500e-01, 0.1434050e-01, 0.1427600e-01, 0.1421150e-01, 0.1414700e-01,&
249 0.1408250e-01, 0.1401800e-01, 0.1395350e-01, 0.1388900e-01, 0.1382450e-01,&
250 0.1376000e-01, 0.1369550e-01, 0.1363100e-01, 0.1356650e-01, 0.1350200e-01,&
251 0.1343750e-01, 0.1337300e-01, 0.1330850e-01, 0.1324400e-01, 0.1317950e-01,&
252 0.1311500e-01, 0.1305050e-01, 0.1298600e-01, 0.1292150e-01, 0.1285700e-01,&
253 0.1279250e-01, 0.1272800e-01, 0.1266350e-01, 0.1259900e-01, 0.1253450e-01,&
254 0.1247000e-01, 0.1240550e-01, 0.1234100e-01, 0.1227650e-01, 0.1221200e-01,&
255 0.1214750e-01, 0.1208300e-01, 0.1201850e-01, 0.1195400e-01, 0.1188950e-01,&
256 0.1182500e-01, 0.1176050e-01, 0.1169600e-01, 0.1163150e-01, 0.1156700e-01,&
257 0.1150250e-01, 0.1143800e-01, 0.1137350e-01, 0.1130900e-01, 0.1124450e-01,&
258 0.1118000e-01, 0.1111550e-01, 0.1105100e-01, 0.1098650e-01, 0.1092200e-01,&
259 0.1085750e-01, 0.1079300e-01, 0.1072850e-01, 0.1066400e-01, 0.1059950e-01,&
260 0.1053500e-01, 0.1047050e-01, 0.1040600e-01, 0.1034150e-01, 0.1027700e-01,&
261 0.1021250e-01, 0.1014800e-01, 0.1008350e-01, 0.1001900e-01, 0.9954500e-02,&
262 0.9890000e-02, 0.9825500e-02, 0.9761000e-02, 0.9696500e-02, 0.9632000e-02,&
263 0.9567500e-02, 0.9503000e-02, 0.9438500e-02, 0.9374000e-02, 0.9309500e-02,&
264 0.9245000e-02, 0.9180500e-02, 0.9116000e-02, 0.9051500e-02, 0.8987000e-02,&
265 0.8922500e-02, 0.8858000e-02, 0.8793500e-02, 0.8729000e-02, 0.8664500e-02,&
266 0.8600000e-02, 0.8535500e-02, 0.8471000e-02, 0.8406500e-02, 0.8342000e-02,&
267 0.8277500e-02, 0.8213000e-02, 0.8148500e-02, 0.8084000e-02, 0.8019500e-02,&
268 0.7955000e-02, 0.7890500e-02, 0.7826000e-02, 0.7761500e-02, 0.7697000e-02,&
269 0.7632500e-02, 0.7568000e-02, 0.7503500e-02, 0.7439000e-02, 0.7374500e-02,&
270 0.7310000e-02, 0.7245500e-02, 0.7181000e-02, 0.7116500e-02, 0.7052000e-02,&
271 0.6987500e-02, 0.6923000e-02, 0.6858500e-02, 0.6794000e-02, 0.6729500e-02,&
272 0.6665000e-02, 0.6600500e-02, 0.6536000e-02, 0.6471500e-02, 0.6407000e-02,&
273 0.6342500e-02, 0.6278000e-02, 0.6213500e-02, 0.6149000e-02, 0.6084500e-02,&
274 0.6020000e-02, 0.5955500e-02, 0.5891000e-02, 0.5826500e-02, 0.5762000e-02,&
275 0.5697500e-02, 0.5633000e-02, 0.5568500e-02, 0.5504000e-02, 0.5439500e-02,&
276 0.5375000e-02, 0.5310500e-02, 0.5246000e-02, 0.5181500e-02, 0.5117000e-02,&
277 0.5052500e-02, 0.4988000e-02, 0.4923500e-02, 0.4859000e-02, 0.4794500e-02,&
278 0.4730000e-02, 0.4665500e-02, 0.4601000e-02, 0.4536500e-02, 0.4472000e-02,&
279 0.4407500e-02, 0.4343000e-02, 0.4278500e-02, 0.4214000e-02, 0.4149500e-02,&
280 0.4085000e-02, 0.4020500e-02, 0.3956000e-02, 0.3891500e-02, 0.3827000e-02,&
281 0.3762500e-02, 0.3698000e-02, 0.3633500e-02, 0.3569000e-02, 0.3504500e-02,&
282 0.3440000e-02, 0.3375500e-02, 0.3311000e-02, 0.3246500e-02, 0.3182000e-02,&
283 0.3117500e-02, 0.3053000e-02, 0.2988500e-02, 0.2924000e-02, 0.2859500e-02,&
284 0.2795000e-02, 0.2730500e-02, 0.2666000e-02, 0.2601500e-02, 0.2537000e-02,&
285 0.2472500e-02, 0.2408000e-02, 0.2343500e-02, 0.2279000e-02, 0.2214500e-02,&
286 0.2150000e-02 /)
287 !
288 REAL, PARAMETER, DIMENSION(NNWL):: xakachl2= &
289 (/0.7745835e+00, 0.7522619e+00, 0.7299404e+00, 0.7076188e+00, 0.6852972e+00,&
290 0.6629756e+00, 0.5767828e+00, 0.5011461e+00, 0.4285168e+00, 0.3946458e+00,&
291 0.4330427e+00, 0.5309876e+00, 0.6371105e+00, 0.7297136e+00, 0.7904093e+00,&
292 0.8097131e+00, 0.8760642e+00, 0.9381161e+00, 0.9457293e+00, 0.9258360e+00,&
293 0.9025422e+00, 0.9252829e+00, 0.9270173e+00, 0.9995731e+00, 0.8171211e+00,&
294 0.5353835e+00, 0.5329482e+00, 0.5348938e+00, 0.3804893e+00, 0.2089162e+00,&
295 0.1108572e+00, 0.7056972e-01, 0.6340462e-01, 0.7044097e-01, 0.8182860e-01,&
296 0.9896376e-01, 0.1267309e+00, 0.1598070e+00, 0.1993082e+00, 0.2502128e+00,&
297 0.3026099e+00, 0.3196909e+00, 0.2917686e+00, 0.2666667e+00, 0.3314760e+00,&
298 0.5711130e+00, 0.7452133e+00, 0.5497976e+00, 0.2406984e+00, 0.1315954e+00,&
299 0.1197734e+00, 0.1258391e+00, 0.1367452e+00, 0.1552781e+00, 0.1936057e+00,&
300 0.2571016e+00, 0.3363165e+00, 0.4064784e+00, 0.4289439e+00, 0.3819179e+00,&
301 0.2987019e+00, 0.2160145e+00, 0.1343931e+00, 0.6321464e-01, 0.2241001e-01,&
302 0.5134957e-02, -0.1242093e-02, -0.2531676e-02, -0.4085609e-02, -0.4713067e-02,&
303 -0.5693497e-02, -0.1090849e-01, -0.1407841e-01, -0.1816251e-01, -0.2587014e-01,&
304 -0.3565745e-01, -0.4546714e-01, -0.5446691e-01, -0.5650476e-01, -0.5981312e-01,&
305 -0.5981312e-01, -0.6451318e-01, -0.4835265e-01, -0.4864828e-01, -0.4876773e-01,&
306 -0.4840301e-01, -0.4866588e-01, -0.4836091e-01, -0.4851014e-01, -0.4860595e-01,&
307 -0.4852568e-01, -0.4805798e-01, -0.4859427e-01, -0.4795901e-01, -0.4846919e-01,&
308 -0.4850669e-01, -0.4854093e-01, -0.4849193e-01, -0.4841270e-01, -0.4855558e-01,&
309 -0.4827924e-01, -0.4906723e-01, -0.4822920e-01, -0.4818162e-01, -0.4854826e-01,&
310 -0.4875536e-01, -0.4863250e-01, -0.4843162e-01, -0.4836087e-01, -0.4913286e-01,&
311 -0.4884187e-01, -0.4864121e-01, -0.4865143e-01, -0.4821299e-01, -0.4880581e-01,&
312 -0.4887014e-01, -0.4868441e-01, -0.4861962e-01, -0.4806854e-01, -0.4918258e-01,&
313 -0.4813463e-01, -0.4876416e-01, -0.4831872e-01, -0.4867297e-01, -0.4862849e-01,&
314 -0.4836460e-01, -0.4858448e-01, -0.4886762e-01, -0.4875397e-01, -0.4863992e-01,&
315 -0.4862744e-01, -0.4887019e-01, -0.4816946e-01, -0.4892569e-01, -0.4864310e-01,&
316 -0.4881326e-01, -0.4819329e-01, -0.4852681e-01, -0.4803719e-01, -0.4831237e-01,&
317 -0.4866472e-01, -0.4815419e-01, -0.4873738e-01, -0.4851730e-01, -0.4848577e-01,&
318 -0.4881878e-01, -0.4878175e-01, -0.4839409e-01, -0.4850954e-01, -0.4846783e-01,&
319 -0.4847389e-01, -0.4833271e-01, -0.4859281e-01, -0.4863393e-01, -0.4839972e-01,&
320 -0.4851298e-01, -0.4831513e-01, -0.4842690e-01, -0.4784760e-01, -0.4914954e-01,&
321 -0.4866549e-01, -0.4890948e-01, -0.4834954e-01, -0.4830681e-01, -0.4859897e-01,&
322 -0.4838582e-01, -0.4851704e-01, -0.4866422e-01, -0.4881537e-01, -0.4851842e-01,&
323 -0.4877209e-01, -0.4873482e-01, -0.4825956e-01, -0.4852063e-01, -0.4867407e-01,&
324 -0.4878135e-01, -0.4830102e-01, -0.4826979e-01, -0.4870005e-01, -0.4902764e-01,&
325 -0.4871316e-01, -0.4853799e-01, -0.4867663e-01, -0.4823785e-01, -0.4855946e-01,&
326 -0.4875993e-01, -0.4846177e-01, -0.4886679e-01, -0.4859700e-01, -0.4809872e-01,&
327 -0.4822881e-01, -0.4837712e-01, -0.4855768e-01, -0.4867230e-01, -0.4838317e-01,&
328 -0.4876311e-01, -0.4812689e-01, -0.4820772e-01, -0.4904227e-01, -0.4871970e-01,&
329 -0.4853304e-01, -0.4859587e-01, -0.4845879e-01, -0.4837155e-01, -0.4874718e-01,&
330 -0.4873789e-01, -0.4851343e-01, -0.4851316e-01, -0.4901856e-01, -0.4836449e-01,&
331 -0.4880954e-01, -0.4853077e-01, -0.4898909e-01, -0.4812662e-01, -0.4832583e-01,&
332 -0.4847423e-01, -0.4846226e-01, -0.4844360e-01, -0.4835512e-01, -0.4893025e-01,&
333 -0.4853777e-01, -0.4873621e-01, -0.4832436e-01, -0.4854396e-01, -0.4848187e-01,&
334 -0.4850079e-01, -0.4843526e-01, -0.4818938e-01, -0.4874043e-01, -0.4847353e-01,&
335 -0.4865320e-01, -0.4853667e-01, -0.4859223e-01, -0.4872705e-01, -0.4821515e-01,&
336 -0.4844453e-01, -0.4870005e-01, -0.4881809e-01, -0.4865348e-01, -0.4871232e-01,&
337 -0.4859998e-01, -0.4833980e-01, -0.4860161e-01, -0.4839900e-01, -0.4853466e-01,&
338 -0.4864573e-01, -0.4863669e-01, -0.4901951e-01, -0.4832310e-01, -0.4890333e-01,&
339 -0.4880714e-01, -0.4855986e-01, -0.4852934e-01, -0.4818182e-01, -0.4795438e-01,&
340 -0.4834752e-01, -0.4810626e-01, -0.4861891e-01, -0.4872801e-01, -0.4814039e-01,&
341 -0.4894429e-01, -0.4881275e-01, -0.4903332e-01, -0.4835438e-01, -0.4865217e-01,&
342 -0.4853667e-01, -0.4841790e-01, -0.4869760e-01, -0.4900452e-01, -0.4856053e-01,&
343 -0.4825166e-01, -0.4837719e-01, -0.4872088e-01, -0.4873605e-01, -0.4868101e-01,&
344 -0.4883375e-01, -0.4870022e-01, -0.4875332e-01, -0.4836111e-01, -0.4863061e-01,&
345 -0.4875719e-01, -0.4874192e-01, -0.4847357e-01, -0.4867528e-01, -0.4836407e-01,&
346 -0.4828474e-01, -0.4860063e-01, -0.4861546e-01, -0.4864795e-01, -0.4844943e-01,&
347 -0.4904242e-01, -0.4843469e-01, -0.4866992e-01, -0.4900254e-01, -0.4864337e-01,&
348 -0.4844130e-01, -0.4837940e-01, -0.4855977e-01, -0.4874923e-01, -0.4906257e-01,&
349 -0.4864537e-01, -0.4834532e-01, -0.4869347e-01, -0.4858449e-01, -0.4877963e-01,&
350 -0.4863986e-01, -0.4848931e-01, -0.4836552e-01, -0.4849740e-01, -0.4887220e-01,&
351 -0.4904565e-01, -0.4872388e-01, -0.4810480e-01, -0.4806256e-01, -0.4874242e-01,&
352 -0.4819115e-01, -0.4862189e-01, -0.4871701e-01, -0.4839065e-01, -0.4877597e-01,&
353 -0.4905847e-01, -0.4861049e-01, -0.4812144e-01, -0.4872767e-01, -0.4891870e-01,&
354 -0.4890406e-01, -0.4818467e-01, -0.4847043e-01, -0.4841457e-01, -0.4821321e-01,&
355 -0.4847127e-01, -0.4868549e-01, -0.4910397e-01, -0.4863713e-01, -0.4831791e-01,&
356 -0.4807175e-01, -0.4877013e-01, -0.4882632e-01, -0.4808306e-01, -0.4848078e-01,&
357 -0.4849469e-01, -0.4864521e-01, -0.4823979e-01, -0.4866831e-01, -0.4870176e-01,&
358 -0.4837111e-01, -0.4899544e-01, -0.4904284e-01, -0.4913362e-01, -0.4821655e-01,&
359 -0.4833322e-01, -0.4831560e-01, -0.4840073e-01, -0.4852060e-01, -0.4897843e-01,&
360 -0.4829322e-01, -0.4884781e-01, -0.4827255e-01, -0.4827960e-01, -0.4864042e-01,&
361 -0.4828514e-01, -0.4897902e-01, -0.4855954e-01, -0.4855975e-01, -0.4858216e-01,&
362 -0.4827806e-01, -0.4847189e-01, -0.4860275e-01, -0.4906456e-01, -0.4853636e-01,&
363 -0.4862808e-01, -0.4848551e-01, -0.4869109e-01, -0.4848604e-01, -0.4866388e-01,&
364 -0.4846765e-01, -0.4875867e-01, -0.4807435e-01, -0.4867530e-01, -0.4888080e-01,&
365 -0.4844930e-01 /)
366 !
367 ! table of seawater absorption coefficient as function of wavelength
368 REAL, PARAMETER, DIMENSION(NNWL):: xakaw3= &
369 (/0.3067439e+01, 0.1993737e+01, 0.1309263e+01, 0.9275307e+00, 0.7183294e+00,&
370 0.5608010e+00, 0.4552411e+00, 0.3738498e+00, 0.2879400e+00, 0.2145172e+00,&
371 0.1415658e+00, 0.1048958e+00, 0.8411996e-01, 0.6814662e-01, 0.5585442e-01,&
372 0.4638546e-01, 0.3791143e-01, 0.2984669e-01, 0.2234093e-01, 0.1870175e-01,&
373 0.1737227e-01, 0.1609624e-01, 0.1530537e-01, 0.1443961e-01, 0.1437088e-01,&
374 0.1480803e-01, 0.1517563e-01, 0.1592806e-01, 0.1743279e-01, 0.1967369e-01,&
375 0.2564243e-01, 0.3598580e-01, 0.4703195e-01, 0.5145027e-01, 0.5534469e-01,&
376 0.6400512e-01, 0.7030880e-01, 0.8172981e-01, 0.1033439e+00, 0.1638825e+00,&
377 0.2387544e+00, 0.2908335e+00, 0.3086321e+00, 0.3193000e+00, 0.3277702e+00,&
378 0.3523264e+00, 0.3957919e+00, 0.4326377e+00, 0.4485145e+00, 0.5016078e+00,&
379 0.6481431e+00, 0.8408502e+00, 0.1165249e+01, 0.1810640e+01, 0.2364421e+01,&
380 0.2479177e+01, 0.2547112e+01, 0.2511108e+01, 0.2356959e+01, 0.2164139e+01,&
381 0.2068389e+01, 0.2334173e+01, 0.3101571e+01, 0.3715746e+01, 0.4069374e+01,&
382 0.4055130e+01, 0.3662220e+01, 0.3265983e+01, 0.3338288e+01, 0.4351006e+01,&
383 0.6776006e+01, 0.1092508e+02, 0.1646968e+02, 0.2292120e+02, 0.2979101e+02,&
384 0.3659049e+02, 0.4255537e+02, 0.4581877e+02, 0.4488433e+02, 0.4084045e+02,&
385 0.3542173e+02, 0.3008784e+02, 0.2519888e+02, 0.2084002e+02, 0.1709645e+02,&
386 0.1405336e+02, 0.1179592e+02, 0.1051821e+02, 0.1084989e+02, 0.1352949e+02,&
387 0.1929556e+02, 0.2856379e+02, 0.4045844e+02, 0.5378094e+02, 0.6733270e+02,&
388 0.7991512e+02, 0.9045451e+02, 0.9837671e+02, 0.1032324e+03, 0.1045724e+03,&
389 0.1024582e+03, 0.9870555e+02, 0.9448188e+02, 0.9066481e+02, 0.8813195e+02,&
390 0.8776093e+02, 0.9009315e+02, 0.9432506e+02, 0.9931691e+02, 0.1039289e+03,&
391 0.1070213e+03, 0.1091415e+03, 0.1175854e+03, 0.1413362e+03, 0.1893769e+03,&
392 0.2706907e+03, 0.3927593e+03, 0.5570592e+03, 0.7635654e+03, 0.1012253e+04,&
393 0.1303097e+04, 0.1629710e+04, 0.1960254e+04, 0.2256530e+04, 0.2480335e+04,&
394 0.2593472e+04, 0.2570322e+04, 0.2435603e+04, 0.2226617e+04, 0.1980665e+04,&
395 0.1735048e+04, 0.1520186e+04, 0.1338970e+04, 0.1187410e+04, 0.1061517e+04,&
396 0.9572996e+03, 0.8707689e+03, 0.7979346e+03, 0.7348066e+03, 0.6773950e+03,&
397 0.6217097e+03, 0.5658621e+03, 0.5163686e+03, 0.4818471e+03, 0.4709154e+03,&
398 0.4921914e+03, 0.5339673e+03, 0.5283995e+03, 0.4879842e+03, 0.4503842e+03,&
399 0.4532622e+03, 0.5219655e+03, 0.6325787e+03, 0.7488713e+03, 0.8346125e+03,&
400 0.8535717e+03, 0.7823218e+03, 0.6486514e+03, 0.4931527e+03, 0.3564180e+03,&
401 0.2790396e+03, 0.2973530e+03, 0.4306661e+03, 0.6940303e+03, 0.1102497e+04,&
402 0.1671116e+04, 0.2414941e+04, 0.3349021e+04, 0.4488408e+04, 0.5848154e+04,&
403 0.7443309e+04, 0.9216590e+04, 0.1082137e+05, 0.1183869e+05, 0.1184960e+05,&
404 0.1078493e+05, 0.9686200e+04, 0.8790378e+04, 0.8045845e+04, 0.7400985e+04,&
405 0.6804181e+04, 0.6214741e+04, 0.5635665e+04, 0.5080881e+04, 0.4564313e+04,&
406 0.4099888e+04, 0.3697940e+04, 0.3354440e+04, 0.3061767e+04, 0.2812299e+04,&
407 0.2598416e+04, 0.2413350e+04, 0.2253741e+04, 0.2117085e+04, 0.2000874e+04,&
408 0.1902603e+04, 0.1819767e+04, 0.1749858e+04, 0.1690372e+04, 0.1638801e+04,&
409 0.1592640e+04, 0.1555394e+04, 0.1548293e+04, 0.1573317e+04, 0.1626133e+04,&
410 0.1702405e+04, 0.1797857e+04, 0.1908438e+04, 0.2030156e+04, 0.2159016e+04,&
411 0.2291026e+04, 0.2423482e+04, 0.2558843e+04, 0.2700856e+04, 0.2853272e+04,&
412 0.3019837e+04, 0.3204129e+04, 0.3409039e+04, 0.3637285e+04, 0.3891587e+04,&
413 0.4174664e+04, 0.4489235e+04, 0.4838020e+04, 0.5223737e+04, 0.5649106e+04,&
414 0.6116846e+04, 0.6622627e+04, 0.7133928e+04, 0.7611180e+04, 0.8014812e+04,&
415 0.8305254e+04, 0.8466704e+04, 0.8578431e+04, 0.8743467e+04, 0.9064849e+04,&
416 0.9645611e+04, 0.1051240e+05, 0.1138630e+05, 0.1191200e+05, 0.1173420e+05,&
417 0.1049759e+05, 0.8305364e+04, 0.7094721e+04, 0.9142031e+04, 0.1397930e+05,&
418 0.1839416e+05, 0.1986234e+05, 0.1908920e+05, 0.1758752e+05, 0.1687005e+05,&
419 0.1844957e+05, 0.2383885e+05, 0.3455066e+05, 0.5209777e+05, 0.7799295e+05,&
420 0.1137490e+06, 0.1602886e+06, 0.2161751e+06, 0.2793814e+06, 0.3478807e+06,&
421 0.4196461e+06, 0.4928405e+06, 0.5663854e+06, 0.6393920e+06, 0.7109715e+06,&
422 0.7802351e+06, 0.8462941e+06, 0.9082596e+06, 0.9652429e+06, 0.1016355e+07,&
423 0.1060708e+07, 0.1097549e+07, 0.1126679e+07, 0.1148035e+07, 0.1161554e+07,&
424 0.1167173e+07, 0.1164996e+07, 0.1155796e+07, 0.1140514e+07, 0.1120088e+07,&
425 0.1095461e+07, 0.1067479e+07, 0.1036628e+07, 0.1003298e+07, 0.9678839e+06,&
426 0.9307769e+06, 0.8923695e+06, 0.8530543e+06, 0.8132238e+06, 0.7732703e+06,&
427 0.7335864e+06, 0.6945089e+06, 0.6561521e+06, 0.6185746e+06, 0.5818354e+06,&
428 0.5459929e+06, 0.5111060e+06, 0.4772333e+06, 0.4444336e+06, 0.4127655e+06,&
429 0.3822878e+06, 0.3530592e+06, 0.3251383e+06, 0.2985839e+06, 0.2734547e+06,&
430 0.2498094e+06, 0.2277067e+06, 0.2072053e+06, 0.1883639e+06, 0.1712413e+06,&
431 0.1558960e+06, 0.1423474e+06, 0.1304565e+06, 0.1200447e+06, 0.1109338e+06,&
432 0.1029451e+06, 0.9590033e+05, 0.8962092e+05, 0.8392845e+05, 0.7864446e+05,&
433 0.7359050e+05, 0.6862405e+05, 0.6374646e+05, 0.5899502e+05, 0.5440700e+05,&
434 0.5001969e+05, 0.4587039e+05, 0.4199638e+05, 0.3843495e+05, 0.3522339e+05,&
435 0.3239897e+05, 0.2998538e+05, 0.2795181e+05, 0.2625384e+05, 0.2484704e+05,&
436 0.2368700e+05, 0.2272929e+05, 0.2192950e+05, 0.2124319e+05, 0.2062596e+05,&
437 0.2003338e+05, 0.1942931e+05, 0.1881074e+05, 0.1818297e+05, 0.1755126e+05,&
438 0.1692090e+05, 0.1629717e+05, 0.1568535e+05, 0.1509072e+05, 0.1451856e+05,&
439 0.1397415e+05, 0.1346277e+05, 0.1298970e+05, 0.1256022e+05, 0.1217961e+05,&
440 0.1185315e+05, 0.1158473e+05, 0.1137272e+05, 0.1121409e+05, 0.1110580e+05,&
441 0.1104483e+05, 0.1102816e+05, 0.1105274e+05, 0.1111556e+05, 0.1121359e+05,&
442 0.1134380e+05, 0.1150316e+05, 0.1168864e+05, 0.1189722e+05, 0.1212586e+05,&
443 0.1237155e+05, 0.1263124e+05, 0.1290192e+05, 0.1318056e+05, 0.1346412e+05,&
444 0.1374958e+05, 0.1403392e+05, 0.1431409e+05, 0.1458709e+05, 0.1484987e+05,&
445 0.1509941e+05 /)
446 !
447 ! table of seawater backscattering coefficient as function of wavelength
448 REAL, PARAMETER, DIMENSION(NNWL):: xakbw= &
449 (/0.1510000e+00, 0.1190000e+00, 0.9950015e-01, 0.8199944e-01, 0.6850207e-01,&
450 0.5749506e-01, 0.4850663e-01, 0.4149505e-01, 0.3530210e-01, 0.3049935e-01,&
451 0.2620052e-01, 0.2289856e-01, 0.2000336e-01, 0.1749553e-01, 0.1530325e-01,&
452 0.1339897e-01, 0.1199900e-01, 0.1060502e-01, 0.9387780e-02, 0.8416411e-02,&
453 0.7587748e-02, 0.6805146e-02, 0.6098530e-02, 0.5500733e-02, 0.4898538e-02,&
454 0.4503288e-02, 0.4095613e-02, 0.3703303e-02, 0.3398477e-02, 0.3100964e-02,&
455 0.2897666e-02, 0.2608371e-02, 0.2380034e-02, 0.2226757e-02, 0.2080041e-02,&
456 0.1908345e-02, 0.1797763e-02, 0.1700603e-02, 0.1599833e-02, 0.1500036e-02,&
457 0.1400066e-02, 0.1299673e-02, 0.1201250e-02, 0.1095326e-02, 0.1017446e-02,&
458 0.9582712e-03, 0.8559384e-03, 0.7582711e-03, 0.7174466e-03, 0.6953252e-03,&
459 0.7012525e-03, 0.6996646e-03, 0.6000893e-03, 0.5999768e-03, 0.6000058e-03,&
460 0.4999986e-03, 0.5000004e-03, 0.4999999e-03, 0.4000000e-03, 0.4000000e-03,&
461 0.4000000e-03, 0.4000000e-03, 0.3987586e-03, 0.3975172e-03, 0.3962759e-03,&
462 0.3950345e-03, 0.3937931e-03, 0.3925517e-03, 0.3913103e-03, 0.3900690e-03,&
463 0.3888276e-03, 0.3875862e-03, 0.3863448e-03, 0.3851035e-03, 0.3838621e-03,&
464 0.3826207e-03, 0.3813793e-03, 0.3801379e-03, 0.3788965e-03, 0.3776552e-03,&
465 0.3764138e-03, 0.3751724e-03, 0.3739310e-03, 0.3726897e-03, 0.3714483e-03,&
466 0.3702069e-03, 0.3689655e-03, 0.3677241e-03, 0.3664828e-03, 0.3652414e-03,&
467 0.3640000e-03, 0.3627586e-03, 0.3615172e-03, 0.3602759e-03, 0.3590345e-03,&
468 0.3577931e-03, 0.3565517e-03, 0.3553103e-03, 0.3540690e-03, 0.3528276e-03,&
469 0.3515862e-03, 0.3503448e-03, 0.3491034e-03, 0.3478621e-03, 0.3466207e-03,&
470 0.3453793e-03, 0.3441379e-03, 0.3428966e-03, 0.3416552e-03, 0.3404138e-03,&
471 0.3391724e-03, 0.3379310e-03, 0.3366896e-03, 0.3354483e-03, 0.3342069e-03,&
472 0.3329655e-03, 0.3317241e-03, 0.3304828e-03, 0.3292414e-03, 0.3280000e-03,&
473 0.3267586e-03, 0.3255172e-03, 0.3242759e-03, 0.3230345e-03, 0.3217931e-03,&
474 0.3205517e-03, 0.3193103e-03, 0.3180690e-03, 0.3168276e-03, 0.3155862e-03,&
475 0.3143448e-03, 0.3131035e-03, 0.3118621e-03, 0.3106207e-03, 0.3093793e-03,&
476 0.3081379e-03, 0.3068965e-03, 0.3056552e-03, 0.3044138e-03, 0.3031724e-03,&
477 0.3019310e-03, 0.3006897e-03, 0.2994483e-03, 0.2982069e-03, 0.2969655e-03,&
478 0.2957241e-03, 0.2944828e-03, 0.2932414e-03, 0.2920000e-03, 0.2907586e-03,&
479 0.2895173e-03, 0.2882759e-03, 0.2870345e-03, 0.2857931e-03, 0.2845517e-03,&
480 0.2833103e-03, 0.2820690e-03, 0.2808276e-03, 0.2795862e-03, 0.2783448e-03,&
481 0.2771034e-03, 0.2758621e-03, 0.2746207e-03, 0.2733793e-03, 0.2721379e-03,&
482 0.2708966e-03, 0.2696552e-03, 0.2684138e-03, 0.2671724e-03, 0.2659310e-03,&
483 0.2646896e-03, 0.2634483e-03, 0.2622069e-03, 0.2609655e-03, 0.2597241e-03,&
484 0.2584828e-03, 0.2572414e-03, 0.2560000e-03, 0.2547586e-03, 0.2535172e-03,&
485 0.2522759e-03, 0.2510345e-03, 0.2497931e-03, 0.2485517e-03, 0.2473104e-03,&
486 0.2460690e-03, 0.2448276e-03, 0.2435862e-03, 0.2423448e-03, 0.2411035e-03,&
487 0.2398621e-03, 0.2386207e-03, 0.2373793e-03, 0.2361379e-03, 0.2348965e-03,&
488 0.2336552e-03, 0.2324138e-03, 0.2311724e-03, 0.2299310e-03, 0.2286896e-03,&
489 0.2274483e-03, 0.2262069e-03, 0.2249655e-03, 0.2237241e-03, 0.2224828e-03,&
490 0.2212414e-03, 0.2200000e-03, 0.2187586e-03, 0.2175172e-03, 0.2162759e-03,&
491 0.2150345e-03, 0.2137931e-03, 0.2125517e-03, 0.2113103e-03, 0.2100690e-03,&
492 0.2088276e-03, 0.2075862e-03, 0.2063448e-03, 0.2051035e-03, 0.2038621e-03,&
493 0.2026207e-03, 0.2013793e-03, 0.2001379e-03, 0.1988966e-03, 0.1976552e-03,&
494 0.1964138e-03, 0.1951724e-03, 0.1939310e-03, 0.1926897e-03, 0.1914483e-03,&
495 0.1902069e-03, 0.1889655e-03, 0.1877241e-03, 0.1864828e-03, 0.1852414e-03,&
496 0.1840000e-03, 0.1827586e-03, 0.1815172e-03, 0.1802759e-03, 0.1790345e-03,&
497 0.1777931e-03, 0.1765517e-03, 0.1753103e-03, 0.1740690e-03, 0.1728276e-03,&
498 0.1715862e-03, 0.1703448e-03, 0.1691034e-03, 0.1678621e-03, 0.1666207e-03,&
499 0.1653793e-03, 0.1641379e-03, 0.1628966e-03, 0.1616552e-03, 0.1604138e-03,&
500 0.1591724e-03, 0.1579310e-03, 0.1566897e-03, 0.1554483e-03, 0.1542069e-03,&
501 0.1529655e-03, 0.1517241e-03, 0.1504828e-03, 0.1492414e-03, 0.1480000e-03,&
502 0.1467586e-03, 0.1455172e-03, 0.1442759e-03, 0.1430345e-03, 0.1417931e-03,&
503 0.1405517e-03, 0.1393103e-03, 0.1380690e-03, 0.1368276e-03, 0.1355862e-03,&
504 0.1343448e-03, 0.1331034e-03, 0.1318621e-03, 0.1306207e-03, 0.1293793e-03,&
505 0.1281379e-03, 0.1268966e-03, 0.1256552e-03, 0.1244138e-03, 0.1231724e-03,&
506 0.1219310e-03, 0.1206897e-03, 0.1194483e-03, 0.1182069e-03, 0.1169655e-03,&
507 0.1157241e-03, 0.1144828e-03, 0.1132414e-03, 0.1120000e-03, 0.1107586e-03,&
508 0.1095172e-03, 0.1082759e-03, 0.1070345e-03, 0.1057931e-03, 0.1045517e-03,&
509 0.1033103e-03, 0.1020690e-03, 0.1008276e-03, 0.9958621e-04, 0.9834483e-04,&
510 0.9710345e-04, 0.9586207e-04, 0.9462069e-04, 0.9337931e-04, 0.9213793e-04,&
511 0.9089655e-04, 0.8965517e-04, 0.8841379e-04, 0.8717241e-04, 0.8593103e-04,&
512 0.8468966e-04, 0.8344828e-04, 0.8220690e-04, 0.8096552e-04, 0.7972414e-04,&
513 0.7848276e-04, 0.7724138e-04, 0.7600000e-04, 0.7475862e-04, 0.7351724e-04,&
514 0.7227586e-04, 0.7103448e-04, 0.6979310e-04, 0.6855172e-04, 0.6731034e-04,&
515 0.6606896e-04, 0.6482759e-04, 0.6358621e-04, 0.6234483e-04, 0.6110345e-04,&
516 0.5986207e-04, 0.5862069e-04, 0.5737931e-04, 0.5613793e-04, 0.5489655e-04,&
517 0.5365517e-04, 0.5241379e-04, 0.5117241e-04, 0.4993103e-04, 0.4868966e-04,&
518 0.4744828e-04, 0.4620690e-04, 0.4496552e-04, 0.4372414e-04, 0.4248276e-04,&
519 0.4124138e-04, 0.4000000e-04, 0.3875862e-04, 0.3751724e-04, 0.3627586e-04,&
520 0.3503448e-04, 0.3379311e-04, 0.3255172e-04, 0.3131034e-04, 0.3006897e-04,&
521 0.2882759e-04, 0.2758621e-04, 0.2634483e-04, 0.2510345e-04, 0.2386207e-04,&
522 0.2262069e-04, 0.2137931e-04, 0.2013793e-04, 0.1889655e-04, 0.1765517e-04,&
523 0.1641379e-04, 0.1517241e-04, 0.1393103e-04, 0.1268965e-04, 0.1144828e-04,&
524 0.1020690e-04, 0.8965517e-05, 0.7724138e-05, 0.6482759e-05, 0.5241379e-05,&
525 0.4000000e-05 /)
526 
527 ! white-caps reflectance (Koepke and Whitlock)
528 ! Whitlock fit varid 400nm - 2.4nm. set whitecap's albedo 0 otherwise
529 REAL, PARAMETER, DIMENSION(NNWL):: xrwc = &
530 (/0.0000000e+00, 0.0000000e+00, 0.0000000e+00, 0.0000000e+00, 0.0000000e+00,&
531 0.0000000e+00, 0.0000000e+00, 0.0000000e+00, 0.0000000e+00, 0.0000000e+00,&
532 0.0000000e+00, 0.0000000e+00, 0.0000000e+00, 0.0000000e+00, 0.0000000e+00,&
533 0.0000000e+00, 0.0000000e+00, 0.0000000e+00, 0.0000000e+00, 0.0000000e+00,&
534 0.1986623e+00, 0.1968392e+00, 0.1955961e+00, 0.1941208e+00, 0.1939980e+00,&
535 0.1947642e+00, 0.1953830e+00, 0.1965826e+00, 0.1987437e+00, 0.2014820e+00,&
536 0.2068586e+00, 0.2125197e+00, 0.2160829e+00, 0.2171109e+00, 0.2178881e+00,&
537 0.2192886e+00, 0.2200949e+00, 0.2212391e+00, 0.2227055e+00, 0.2247944e+00,&
538 0.2262073e+00, 0.2270383e+00, 0.2273185e+00, 0.2274869e+00, 0.2276210e+00,&
539 0.2280129e+00, 0.2287211e+00, 0.2293381e+00, 0.2296089e+00, 0.2305354e+00,&
540 0.2332379e+00, 0.2370188e+00, 0.2373674e+00, 0.2314480e+00, 0.2291741e+00,&
541 0.2288465e+00, 0.2286684e+00, 0.2287614e+00, 0.2291967e+00, 0.2298426e+00,&
542 0.2302154e+00, 0.2292666e+00, 0.2275362e+00, 0.2266957e+00, 0.2263213e+00,&
543 0.2263353e+00, 0.2267580e+00, 0.2272800e+00, 0.2271755e+00, 0.2260595e+00,&
544 0.2243821e+00, 0.2219912e+00, 0.2188027e+00, 0.2151597e+00, 0.2114653e+00,&
545 0.2080255e+00, 0.2051811e+00, 0.2036894e+00, 0.2041120e+00, 0.2059829e+00,&
546 0.2086015e+00, 0.2113106e+00, 0.2139111e+00, 0.2163195e+00, 0.2184435e+00,&
547 0.2201926e+00, 0.2214916e+00, 0.2222242e+00, 0.2220343e+00, 0.2204943e+00,&
548 0.2171906e+00, 0.2121093e+00, 0.2061633e+00, 0.2002262e+00, 0.1948388e+00,&
549 0.1903174e+00, 0.1868275e+00, 0.1843590e+00, 0.1829052e+00, 0.1825115e+00,&
550 0.1831341e+00, 0.1842591e+00, 0.1855570e+00, 0.1867604e+00, 0.1875755e+00,&
551 0.1876960e+00, 0.1869431e+00, 0.1856059e+00, 0.1840741e+00, 0.1827001e+00,&
552 0.1818000e+00, 0.1811922e+00, 0.1788437e+00, 0.1727826e+00, 0.1624180e+00,&
553 0.1487052e+00, 0.1334511e+00, 0.1185638e+00, 0.1049801e+00, 0.9298412e-01,&
554 0.8257660e-01, 0.7379698e-01, 0.6696978e-01, 0.6208307e-01, 0.5897739e-01,&
555 0.5756657e-01, 0.5784728e-01, 0.5956322e-01, 0.6253327e-01, 0.6660015e-01,&
556 0.7143353e-01, 0.7647427e-01, 0.8148541e-01, 0.8635699e-01, 0.9099500e-01,&
557 0.9533520e-01, 0.9935633e-01, 0.1030906e+00, 0.1066306e+00, 0.1101345e+00,&
558 0.1138333e+00, 0.1178890e+00, 0.1218228e+00, 0.1247853e+00, 0.1257652e+00,&
559 0.1238772e+00, 0.1203841e+00, 0.1208343e+00, 0.1242444e+00, 0.1276640e+00,&
560 0.1273930e+00, 0.1213602e+00, 0.1130860e+00, 0.1058152e+00, 0.1011666e+00,&
561 0.1002071e+00, 0.1039381e+00, 0.1120040e+00, 0.1237937e+00, 0.1375058e+00,&
562 0.1474928e+00, 0.1449352e+00, 0.1295643e+00, 0.1090889e+00, 0.8941860e-01,&
563 0.7284467e-01, 0.5983944e-01, 0.5022947e-01, 0.4366299e-01, 0.3977196e-01,&
564 0.3822227e-01, 0.3867308e-01, 0.4026759e-01, 0.4166813e-01, 0.4168444e-01,&
565 0.4022229e-01, 0.3904642e-01, 0.3841435e-01, 0.3817649e-01, 0.3823472e-01,&
566 0.3855810e-01, 0.3919018e-01, 0.4018588e-01, 0.4157600e-01, 0.4335490e-01,&
567 0.4545942e-01, 0.4776782e-01, 0.5018748e-01, 0.5264894e-01, 0.5509888e-01,&
568 0.5750712e-01, 0.5986086e-01, 0.6212466e-01, 0.6426051e-01, 0.6623940e-01,&
569 0.6804333e-01, 0.6966664e-01, 0.7111643e-01, 0.7241227e-01, 0.7358521e-01,&
570 0.7467659e-01, 0.7558735e-01, 0.7576417e-01, 0.7514564e-01, 0.7388073e-01,&
571 0.7214532e-01, 0.7011285e-01, 0.6793264e-01, 0.6572567e-01, 0.6358425e-01,&
572 0.6157472e-01, 0.5972482e-01, 0.5798797e-01, 0.5631501e-01, 0.5467161e-01,&
573 0.5303634e-01, 0.5140076e-01, 0.4977145e-01, 0.4816243e-01, 0.4659231e-01,&
574 0.0000000e+00, 0.0000000e+00, 0.0000000e+00, 0.0000000e+00, 0.0000000e+00,&
575 0.0000000e+00, 0.0000000e+00, 0.0000000e+00, 0.0000000e+00, 0.0000000e+00,&
576 0.0000000e+00, 0.0000000e+00, 0.0000000e+00, 0.0000000e+00, 0.0000000e+00,&
577 0.0000000e+00, 0.0000000e+00, 0.0000000e+00, 0.0000000e+00, 0.0000000e+00,&
578 0.0000000e+00, 0.0000000e+00, 0.0000000e+00, 0.0000000e+00, 0.0000000e+00,&
579 0.0000000e+00, 0.0000000e+00, 0.0000000e+00, 0.0000000e+00, 0.0000000e+00,&
580 0.0000000e+00, 0.0000000e+00, 0.0000000e+00, 0.0000000e+00, 0.0000000e+00,&
581 0.0000000e+00, 0.0000000e+00, 0.0000000e+00, 0.0000000e+00, 0.0000000e+00,&
582 0.0000000e+00, 0.0000000e+00, 0.0000000e+00, 0.0000000e+00, 0.0000000e+00,&
583 0.0000000e+00, 0.0000000e+00, 0.0000000e+00, 0.0000000e+00, 0.0000000e+00,&
584 0.0000000e+00, 0.0000000e+00, 0.0000000e+00, 0.0000000e+00, 0.0000000e+00,&
585 0.0000000e+00, 0.0000000e+00, 0.0000000e+00, 0.0000000e+00, 0.0000000e+00,&
586 0.0000000e+00, 0.0000000e+00, 0.0000000e+00, 0.0000000e+00, 0.0000000e+00,&
587 0.0000000e+00, 0.0000000e+00, 0.0000000e+00, 0.0000000e+00, 0.0000000e+00,&
588 0.0000000e+00, 0.0000000e+00, 0.0000000e+00, 0.0000000e+00, 0.0000000e+00,&
589 0.0000000e+00, 0.0000000e+00, 0.0000000e+00, 0.0000000e+00, 0.0000000e+00,&
590 0.0000000e+00, 0.0000000e+00, 0.0000000e+00, 0.0000000e+00, 0.0000000e+00,&
591 0.0000000e+00, 0.0000000e+00, 0.0000000e+00, 0.0000000e+00, 0.0000000e+00,&
592 0.0000000e+00, 0.0000000e+00, 0.0000000e+00, 0.0000000e+00, 0.0000000e+00,&
593 0.0000000e+00, 0.0000000e+00, 0.0000000e+00, 0.0000000e+00, 0.0000000e+00,&
594 0.0000000e+00, 0.0000000e+00, 0.0000000e+00, 0.0000000e+00, 0.0000000e+00,&
595 0.0000000e+00, 0.0000000e+00, 0.0000000e+00, 0.0000000e+00, 0.0000000e+00,&
596 0.0000000e+00, 0.0000000e+00, 0.0000000e+00, 0.0000000e+00, 0.0000000e+00,&
597 0.0000000e+00, 0.0000000e+00, 0.0000000e+00, 0.0000000e+00, 0.0000000e+00,&
598 0.0000000e+00, 0.0000000e+00, 0.0000000e+00, 0.0000000e+00, 0.0000000e+00,&
599 0.0000000e+00, 0.0000000e+00, 0.0000000e+00, 0.0000000e+00, 0.0000000e+00,&
600 0.0000000e+00, 0.0000000e+00, 0.0000000e+00, 0.0000000e+00, 0.0000000e+00,&
601 0.0000000e+00, 0.0000000e+00, 0.0000000e+00, 0.0000000e+00, 0.0000000e+00,&
602 0.0000000e+00, 0.0000000e+00, 0.0000000e+00, 0.0000000e+00, 0.0000000e+00,&
603 0.0000000e+00, 0.0000000e+00, 0.0000000e+00, 0.0000000e+00, 0.0000000e+00,&
604 0.0000000e+00, 0.0000000e+00, 0.0000000e+00, 0.0000000e+00, 0.0000000e+00,&
605 0.0000000e+00, 0.0000000e+00, 0.0000000e+00, 0.0000000e+00, 0.0000000e+00,&
606 0.0000000e+00 /)
607 !
608 !--------------------------------------------------------------------------------
609 !
610 END MODULE modd_albedo_rs14_par
611 
612 
613 
614 
615 
616 
617 
618 
619 
620 
621 
622 
Generated on Tue Jan 16 2018 16:23:29 for SURFEX v8.1 by   doxygen 1.8.13