SURFEX
V8_0
Surfex V8_0 release
Main Page
Data Types List
Files
File List
File Members
All
Classes
Files
Functions
Variables
src
SURFEX
modd_sso_canopyn.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
MODULE
modd_sso_canopy_n
7
! ################
8
!
9
!!**** *MODD_SSO_CANOPY_n - declaration of surface parameters for
10
! orographic canopy
11
!!
12
!! PURPOSE
13
!! -------
14
! Declaration of surface parameters
15
!
16
!!
17
!!** IMPLICIT ARGUMENTS
18
!! ------------------
19
!! None
20
!!
21
!! REFERENCE
22
!! ---------
23
!!
24
!! AUTHOR
25
!! ------
26
!! V. Masson *Meteo France*
27
!!
28
!! MODIFICATIONS
29
!! -------------
30
!! Original 07/2006
31
!
32
!* 0. DECLARATIONS
33
! ------------
34
!
35
USE
yomhook
,ONLY
: lhook, dr_hook
36
USE
parkind1
,ONLY
: jprb
37
!
38
IMPLICIT NONE
39
40
TYPE
sso_canopy_t
41
!
42
INTEGER
:: NLVL
! number of levels in canopy
43
REAL
,
POINTER
,
DIMENSION(:,:)
:: XZ
! height of middle of each level grid (m)
44
REAL
,
POINTER
,
DIMENSION(:,:)
:: XU
! wind at each level in canopy (m/s)
45
REAL
,
POINTER
,
DIMENSION(:,:)
:: XTKE
! Tke at each level in canopy (m2/s2)
46
!
47
REAL
,
POINTER
,
DIMENSION(:,:)
:: XDZ
! depth of each level in canopy (m)
48
REAL
,
POINTER
,
DIMENSION(:,:)
:: XZF
! height of bottom of each level grid (m)
49
50
REAL
,
POINTER
,
DIMENSION(:,:)
:: XDZF
! depth between each level in canopy (m)
51
!
52
END TYPE
sso_canopy_t
53
54
55
56
CONTAINS
57
58
!
59
60
61
62
63
64
SUBROUTINE
sso_canopy_init
(YSSO_CANOPY)
65
TYPE(
sso_canopy_t
)
,
INTENT(INOUT)
:: ysso_canopy
66
REAL(KIND=JPRB)
:: zhook_handle
67
IF
(lhook) CALL dr_hook(
"MODD_SSO_CANOPY_N:SSO_CANOPY_INIT"
,0,zhook_handle)
68
nullify(ysso_canopy%XZ)
69
nullify(ysso_canopy%XU)
70
nullify(ysso_canopy%XTKE)
71
nullify(ysso_canopy%XDZ)
72
nullify(ysso_canopy%XZF)
73
nullify(ysso_canopy%XDZF)
74
ysso_canopy%NLVL=0
75
IF
(lhook) CALL dr_hook(
"MODD_SSO_CANOPY_N:SSO_CANOPY_INIT"
,1,zhook_handle)
76
END SUBROUTINE
sso_canopy_init
77
78
79
80
END MODULE
modd_sso_canopy_n
modd_sso_canopy_n::sso_canopy_init
subroutine sso_canopy_init(YSSO_CANOPY)
Definition:
modd_sso_canopyn.F90:64
modd_sso_canopy_n::sso_canopy_t
Definition:
modd_sso_canopyn.F90:40
modd_sso_canopy_n
Definition:
modd_sso_canopyn.F90:6
Generated on Fri May 13 2016 09:31:04 for SURFEX by
1.8.5