SURFEX
V8_0
Surfex V8_0 release
Main Page
Data Types List
Files
File List
File Members
All
Classes
Files
Functions
Variables
src
SURFEX
default_dst.F90
Go to the documentation of this file.
1
!SFX_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier
2
!SFX_LIC This is part of the SURFEX software governed by the CeCILL-C licence
3
!SFX_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt
4
!SFX_LIC for details. version 1.
5
! #########
6
SUBROUTINE
default_dst
7
! ########################################################################
8
!
9
!!**** *DEFAULT_DST* - routine to set default values for the configuration for DST
10
!!
11
!! PURPOSE
12
!! -------
13
!!
14
!!** METHOD
15
!! ------
16
!!
17
!! EXTERNAL
18
!! --------
19
!!
20
!!
21
!! IMPLICIT ARGUMENTS
22
!! ------------------
23
!!
24
!! REFERENCE
25
!! ---------
26
!!
27
!!
28
!! AUTHOR
29
!! ------
30
!! Alf Grini CNRM
31
!!
32
!! MODIFICATIONS
33
!! -------------
34
!! Original 03/2005
35
!-------------------------------------------------------------------------------
36
!
37
!* 0. DECLARATIONS
38
! ------------
39
!
40
!
41
USE
modd_dst_surf
, ONLY
: cemisparam_dst, jpmode_dst, lvarsig_dst, lrgfix_dst, &
42
cvermod, xflx_mss_fdg_fct
43
!
44
USE
yomhook
,ONLY
: lhook, dr_hook
45
USE
parkind1
,ONLY
: jprb
46
!
47
IMPLICIT NONE
48
!
49
!-------------------------------------------------------------------------------
50
!
51
! Set initial values of variables. These are modified by namelist
52
53
54
REAL(KIND=JPRB)
:: zhook_handle
55
56
IF
(lhook) CALL dr_hook(
'DEFAULT_DST'
,0,zhook_handle)
57
cemisparam_dst =
"AMMA "
58
jpmode_dst = 3
59
lvarsig_dst = .false.
60
lrgfix_dst = .true.
61
cvermod =
'NONE '
62
xflx_mss_fdg_fct = 12.0e-4
63
IF
(lhook) CALL dr_hook(
'DEFAULT_DST'
,1,zhook_handle)
64
65
!-------------------------------------------------------------------------------
66
!
67
END SUBROUTINE
default_dst
default_dst
subroutine default_dst
Definition:
default_dst.F90:6
modd_dst_surf
Definition:
modd_dst_surf.F90:5
Generated on Fri May 13 2016 09:31:02 for SURFEX by
1.8.5