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_configure 00006 00007 !------------------------------------------------------------------------------ 00008 ! 00009 ! Description: 00010 ! 00011 ! Switches and reference values of parameters 00012 ! that configure the lake model FLake are set. 00013 ! 00014 ! 00015 ! Current Code Owner: DWD, Dmitrii Mironov 00016 ! Phone: +49-69-8062 2705 00017 ! Fax: +49-69-8062 3721 00018 ! E-mail: dmitrii.mironov@dwd.de 00019 ! 00020 ! History: 00021 ! Version Date Name 00022 ! ---------- ---------- ---- 00023 ! 1.00 2005/11/17 Dmitrii Mironov 00024 ! Initial release 00025 ! !VERSION! !DATE! <Your name> 00026 ! <Modification comments> 00027 ! 00028 ! Code Description: 00029 ! Language: Fortran 90. 00030 ! Software Standards: "European Standards for Writing and 00031 ! Documenting Exchangeable Fortran 90 Code". 00032 !============================================================================== 00033 ! 00034 ! Declarations: 00035 ! 00036 ! Modules used: 00037 00038 !USE modd_data_parameters , ONLY : & 00039 ! ireals , &! KIND-type parameter for real variables 00040 ! iintegers ! KIND-type parameter for "normal" integer variables 00041 00042 !============================================================================== 00043 00044 IMPLICIT NONE 00045 00046 !============================================================================== 00047 ! 00048 ! Declarations 00049 00050 !---------<Dutra> ---------------------- 00051 00052 !LOGICAL, PARAMETER :: & 00053 ! lflk_botsed_use = .TRUE. ! .TRUE. indicates that the bottom-sediment scheme is used 00054 ! to compute the depth penetrated by the thermal wave, 00055 ! the temperature at this depth and the bottom heat flux. 00056 ! Otherwise, the heat flux at the water-bottom sediment interface 00057 ! is set to zero, the depth penetrated by the thermal wave 00058 ! is set to a reference value defined below, 00059 ! and the temperature at this depth is set to 00060 ! the temperature of maximum density of the fresh water. 00061 00062 LOGICAL :: 00063 lflk_botsed_use 00064 !------------<Dutra> ----------------- 00065 00066 00067 REAL , PARAMETER :: 00068 rflk_depth_bs_ref = 10.0 ! Reference value of the depth of the thermally active 00069 ! layer of bottom sediments [m]. 00070 ! This value is used to (formally) define 00071 ! the depth penetrated by the thermal wave 00072 ! in case the bottom-sediment scheme is not used. 00073 00074 !============================================================================== 00075 00076 END MODULE modd_flake_configure 00077