BROWSER/out_doc80/modd__flake__configure_8F90_source.html

 !SFX_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier

 !SFX_LIC This is part of the SURFEX software governed by the CeCILL-C licence

 !SFX_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt

 !SFX_LIC for details. version 1.

 ! File %M% from Library %Q%

 ! Version %I% from %G% extracted: %H%

 !------------------------------------------------------------------------------


 MODULE modd_flake_configure


 !------------------------------------------------------------------------------

 !

 ! Description:

 !

 !  Switches and reference values of parameters

 !  that configure the lake model FLake are set.

 !

 !

 ! Current Code Owner: DWD, Dmitrii Mironov

 !  Phone:  +49-69-8062 2705

 !  Fax:    +49-69-8062 3721

 !  E-mail: dmitrii.mironov@dwd.de

 !

 ! History:

 ! Version    Date       Name

 ! ---------- ---------- ----

 ! 1.00       2005/11/17 Dmitrii Mironov

 !  Initial release

 ! !VERSION!  !DATE!     <Your name>

 !  <Modification comments>

 !

 ! Code Description:

 ! Language: Fortran 90.

 ! Software Standards: "European Standards for Writing and

 ! Documenting Exchangeable Fortran 90 Code".

 !==============================================================================

 !

 ! Declarations:

 !

 ! Modules used:


 !USE modd_data_parameters , ONLY : &

 !    ireals                   ,  &! KIND-type parameter for real variables

 !    iintegers                    ! KIND-type parameter for "normal" integer variables


 !==============================================================================


 IMPLICIT NONE


 !==============================================================================

 !

 ! Declarations


 !---------<Dutra> ----------------------


 !LOGICAL, PARAMETER :: &

 !  lflk_botsed_use   = .TRUE.         ! .TRUE. indicates that the bottom-sediment scheme is used

                                      ! to compute the depth penetrated by the thermal wave,

                                      ! the temperature at this depth and the bottom heat flux.

                                      ! Otherwise, the heat flux at the water-bottom sediment interface

                                      ! is set to zero, the depth penetrated by the thermal wave

                                      ! is set to a reference value defined below,

                                      ! and the temperature at this depth is set to

                                      ! the temperature of maximum density of the fresh water.


 LOGICAL :: &

     lflk_botsed_use

 !------------<Dutra> -----------------


 REAL , PARAMETER :: &

     rflk_depth_bs_ref = 10.0    ! Reference value of the depth of the thermally active

                                      ! layer of bottom sediments [m].

                                      ! This value is used to (formally) define

                                      ! the depth penetrated by the thermal wave

                                      ! in case the bottom-sediment scheme is not used.


 !==============================================================================


 END MODULE modd_flake_configure


modd_flake_configure
Definition: modd_flake_configure.F90:9