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_prep_watflux.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_prep_watflux
7
! ###########################
8
!
9
!!**** *DEFAULT_PREP_WATFLUX* - routine to set default values for the configuration for WATFLUX fields preparation
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
!! S. Malardel *Meteo France*
31
!!
32
!! MODIFICATIONS
33
!! -------------
34
!! Original 10/2003
35
!-------------------------------------------------------------------------------
36
!
37
!* 0. DECLARATIONS
38
! ------------
39
!
40
USE
modd_prep_watflux
, ONLY
: cfile_watflx, ctype, cfilepgd_watflx, ctypepgd, xts_water_unif
41
42
USE
modn_prep_watflux
, ONLY
: lwat_sbl
43
44
USE
modd_surf_par
, ONLY
: xundef
45
!
46
!
47
USE
yomhook
,ONLY
: lhook, dr_hook
48
USE
parkind1
,ONLY
: jprb
49
!
50
IMPLICIT NONE
51
!
52
!* 0.1 Declarations of arguments
53
! -------------------------
54
!
55
!
56
!
57
!* 0.2 Declarations of local variables
58
! -------------------------------
59
!
60
!-------------------------------------------------------------------------------
61
!
62
63
REAL(KIND=JPRB)
:: zhook_handle
64
65
IF
(lhook) CALL dr_hook(
'DEFAULT_PREP_WATFLUX'
,0,zhook_handle)
66
cfile_watflx =
' '
67
ctype =
'GRIB '
68
!
69
cfilepgd_watflx =
' '
70
ctypepgd =
' '
71
!
72
xts_water_unif = xundef
73
!
74
lwat_sbl = .false.
75
IF
(lhook) CALL dr_hook(
'DEFAULT_PREP_WATFLUX'
,1,zhook_handle)
76
!-------------------------------------------------------------------------------
77
!
78
END SUBROUTINE
default_prep_watflux
modd_prep_watflux
Definition:
modd_prep_watflux.F90:6
default_prep_watflux
subroutine default_prep_watflux
Definition:
default_prep_watflux.F90:6
modn_prep_watflux
Definition:
modn_prep_watflux.F90:6
modd_surf_par
Definition:
modd_surf_par.F90:6
Generated on Fri May 13 2016 09:31:03 for SURFEX by
1.8.5