71 INTEGER ,
PRIVATE :: &
77 opticpar_water_ref = opticpar_medium(1, &
78 (/1., (0.,i=2,nband_optic_max)/), &
79 (/3., (1.E+10,i=2,nband_optic_max)/)) , &
80 opticpar_water_trans = opticpar_medium(2, &
81 (/0.10, 0.90, (0.,i=3,nband_optic_max)/), &
82 (/2.0, 0.20, (1.E+10,i=3,nband_optic_max)/)) , &
87 (/1., (0.,i=2,nband_optic_max)/), &
88 (/17.1, (1.e+10,i=2,nband_optic_max)/)) , &
90 (/1., (0.,i=2,nband_optic_max)/), &
91 (/8.4, (1.e+10,i=2,nband_optic_max)/)) , &
93 (/1., (0.,i=2,nband_optic_max)/), &
94 (/25.0, (1.e+10,i=2,nband_optic_max)/)) , &
96 (/1., (0.,i=2,nband_optic_max)/), &
97 (/15.0, (1.e+10,i=2,nband_optic_max)/)) , &
99 (/1., (0.,i=2,nband_optic_max)/), &
100 (/1.0e+07, (1.e+10,i=2,nband_optic_max)/)) , &
102 (/1., (0.,i=2,nband_optic_max)/), &
103 (/1.0e+07, (1.e+10,i=2,nband_optic_max)/))