SURFEX
V8_0
Surfex V8_0 release
Main Page
Data Types List
Files
File List
File Members
All
Classes
Files
Functions
Variables
src
SURFEX
convert_teb.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
! ######spl
6
SUBROUTINE
convert_teb
(TOP, &
7
pcover,pteb_patch)
8
! ##############################################################
9
!
10
!!**** *CONVERT_TEB* initialisation of TEB parameters valid for all patches
11
!!
12
!! PURPOSE
13
!! -------
14
!!
15
!! METHOD
16
!! ------
17
!!
18
!
19
!! EXTERNAL
20
!! --------
21
!!
22
!! IMPLICIT ARGUMENTS
23
!! ------------------
24
!!
25
!! REFERENCE
26
!! ---------
27
!!
28
!! AUTHOR
29
!! ------
30
!!
31
!! V. Masson Meteo-France
32
!!
33
!! MODIFICATION
34
!! ------------
35
!!
36
!! Original 11/11
37
!!
38
!----------------------------------------------------------------------------
39
!
40
!* 0. DECLARATION
41
! -----------
42
!
43
!
44
USE
modd_teb_option_n
, ONLY
:
teb_options_t
45
!
46
USE
modd_surf_par
, ONLY
: xundef
47
!
48
!
49
USE
modi_ini_data_param
50
USE
modi_av_pgd
51
!
52
USE
yomhook
,ONLY
: lhook, dr_hook
53
USE
parkind1
,ONLY
: jprb
54
!
55
USE
modi_abor1_sfx
56
!
57
IMPLICIT NONE
58
!
59
!* 0.1 Declaration of arguments
60
! ------------------------
61
!
62
!
63
TYPE(
teb_options_t
)
,
INTENT(INOUT)
:: top
64
!
65
REAL
,
DIMENSION(:,:)
,
INTENT(IN)
:: pcover
66
!
67
REAL
,
DIMENSION(:,:)
,
INTENT(OUT)
,
OPTIONAL
:: pteb_patch
! fraction of each TEB patch
68
!
69
!* 0.2 Declaration of local variables
70
! ------------------------------
71
!
72
INTEGER
:: jpatch
! loop counter on patch
73
INTEGER
:: jcover
! loop counter
74
!
75
!* 0.3 Declaration of namelists
76
! ------------------------
77
!
78
REAL(KIND=JPRB)
:: zhook_handle
79
!
80
!-------------------------------------------------------------------------------
81
!
82
!* 1. Initializations
83
! ---------------
84
!
85
IF
(lhook) CALL dr_hook(
'CONVERT_TEB'
,0,zhook_handle)
86
!
87
!-------------------------------------------------------------------------------
88
!
89
! GARDEN fraction
90
! ---------------
91
IF
(present(pteb_patch))
THEN
92
DO
jpatch=1,top%NTEB_PATCH
93
pteb_patch(:,jpatch) = 1./float(top%NTEB_PATCH)
94
END DO
95
ENDIF
96
!
97
!
98
IF
(lhook) CALL dr_hook(
'CONVERT_TEB'
,1,zhook_handle)
99
!
100
!-------------------------------------------------------------------------------
101
!
102
END SUBROUTINE
convert_teb
modd_teb_option_n
Definition:
modd_teb_optionn.F90:6
modi_av_pgd
Definition:
av_pgd.F90:6
convert_teb
subroutine convert_teb(TOP, PCOVER, PTEB_PATCH)
Definition:
convert_teb.F90:6
modd_teb_option_n::teb_options_t
Definition:
modd_teb_optionn.F90:45
modd_surf_par
Definition:
modd_surf_par.F90:6
Generated on Fri May 13 2016 09:31:01 for SURFEX by
1.8.5