SURFEX v7.3
General documentation of Surfex
 All Classes Files Functions Variables Typedefs
/home/dasprezs/EXPORT_v7_3/src/SURFEX/modd_flake_configure.F90
Go to the documentation of this file.
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