|
SURFEX v7.3
General documentation of Surfex
|
|
SURFEX v7.3
General documentation of Surfex
|
00001 ! File %M% from Library %Q% 00002 ! Version %I% from %G% extracted: %H% 00003 !------------------------------------------------------------------------------ 00004 00005 MODULE modd_flake_paramoptic_ref 00006 00007 !------------------------------------------------------------------------------ 00008 ! 00009 ! Description: 00010 ! 00011 ! This module contains "reference" values of the optical characteristics 00012 ! of the lake water, lake ice and snow. These reference values may be used 00013 ! if no information about the optical characteristics of the lake in question 00014 ! is available. An exponential decay law for the solar radiation flux is assumed. 00015 ! In the simplest one-band approximation, 00016 ! the extinction coefficient for water is set to a large value, 00017 ! leading to the absorption of 95% of the incoming radiation 00018 ! within the uppermost 1 m of the lake water. 00019 ! The extinction coefficients for ice and snow are taken from 00020 ! Launiainen and Cheng (1998). The estimates for the ice correspond 00021 ! to the uppermost 0.1 m of the ice layer and to the clear sky conditions 00022 ! (see Table 2 in op. cit.). 00023 ! Very large values of the extinction coefficients for ice and snow ("opaque") 00024 ! can be used to prevent penetration of the solar radiation 00025 ! through the snow-ice cover. 00026 ! 00027 ! 00028 ! Current Code Owner: DWD, Dmitrii Mironov 00029 ! Phone: +49-69-8062 2705 00030 ! Fax: +49-69-8062 3721 00031 ! E-mail: dmitrii.mironov@dwd.de 00032 ! 00033 ! History: 00034 ! Version Date Name 00035 ! ---------- ---------- ---- 00036 ! 1.00 2005/11/17 Dmitrii Mironov 00037 ! Initial release 00038 ! !VERSION! !DATE! <Your name> 00039 ! <Modification comments> 00040 ! 00041 ! Code Description: 00042 ! Language: Fortran 90. 00043 ! Software Standards: "European Standards for Writing and 00044 ! Documenting Exchangeable Fortran 90 Code". 00045 !============================================================================== 00046 ! 00047 ! Declarations: 00048 ! 00049 ! Modules used: 00050 00051 !USE modd_data_parameters, ONLY : & 00052 ! ireals , &! KIND-type parameter for real variables 00053 ! iintegers ! KIND-type parameter for "normal" integer variables 00054 00055 USE modd_flake_derivedtypes, ONLY : & 00056 nband_optic_max , &! Maximum value of the wave-length bands 00057 opticpar_medium ! Derived TYPE 00058 00059 !============================================================================== 00060 00061 IMPLICIT NONE 00062 00063 !============================================================================== 00064 ! 00065 ! Declarations 00066 00067 INTEGER , PRIVATE :: ! Help variable(s) 00068 i ! DO loop index 00069 00070 ! Optical characteristics for water, ice and snow. 00071 ! The simplest one-band approximation is used as a reference. 00072 TYPE (opticpar_medium), PARAMETER :: 00073 opticpar_water_ref = opticpar_medium(1, ! Water (reference) 00074 (/1., (0.,i=2,nband_optic_max)/), 00075 (/3., (1.E+10,i=2,nband_optic_max)/)) , 00076 opticpar_water_trans = opticpar_medium(2, ! Transparent Water (two-band) 00077 (/0.10, 0.90, (0.,i=3,nband_optic_max)/), 00078 (/2.0, 0.20, (1.E+10,i=3,nband_optic_max)/)) , 00079 !_nu opticpar_water_trans = opticpar_medium(1, & ! Transparent Water (one-band) 00080 !_nu (/1., (0.,i=2,nband_optic_max)/), & 00081 !_nu (/0.30, (1.E+10,i=2,nband_optic_max)/)) , & 00082 opticpar_whiteice_ref = opticpar_medium(1, &! White ice 00083 (/1., (0.,i=2,nband_optic_max)/), & 00084 (/17.1, (1.E+10,i=2,nband_optic_max)/)) , & 00085 opticpar_blueice_ref = opticpar_medium(1, &! Blue ice 00086 (/1., (0.,i=2,nband_optic_max)/), & 00087 (/8.4, (1.E+10,i=2,nband_optic_max)/)) , & 00088 opticpar_drysnow_ref = opticpar_medium(1, &! Dry snow 00089 (/1., (0.,i=2,nband_optic_max)/), & 00090 (/25.0, (1.E+10,i=2,nband_optic_max)/)) , & 00091 opticpar_meltingsnow_ref = opticpar_medium(1, &! Melting snow 00092 (/1., (0.,i=2,nband_optic_max)/), & 00093 (/15.0, (1.E+10,i=2,nband_optic_max)/)) , & 00094 opticpar_ice_opaque = opticpar_medium(1, &! Opaque ice 00095 (/1., (0.,i=2,nband_optic_max)/), & 00096 (/1.0E+07, (1.E+10,i=2,nband_optic_max)/)) , & 00097 opticpar_snow_opaque = opticpar_medium(1, &! Opaque snow 00098 (/1., (0.,i=2,nband_optic_max)/), & 00099 (/1.0E+07, (1.E+10,i=2,nband_optic_max)/)) 00100 00101 !============================================================================== 00102 00103 END MODULE modd_flake_paramoptic_ref 00104
1.8.0
