SURFEX
V8_0
Surfex V8_0 release
Main Page
Data Types List
Files
File List
File Members
All
Classes
Files
Functions
Variables
src
SURFEX
get_z0n.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
get_z0_n
(DGU, &
7
hprogram,ki,pz0,pz0h)
8
! #########################################
9
!
10
!!**** *GET_Z0_n* - routine to get roughness lengths
11
!!
12
!! PURPOSE
13
!! -------
14
!!
15
!!** METHOD
16
!! ------
17
!!
18
!! EXTERNAL
19
!! --------
20
!!
21
!!
22
!! IMPLICIT ARGUMENTS
23
!! ------------------
24
!!
25
!! REFERENCE
26
!! ---------
27
!!
28
!!
29
!! AUTHOR
30
!! ------
31
!! P. Le Moigne *Meteo France*
32
!!
33
!! MODIFICATIONS
34
!! -------------
35
!! Original 02/2006
36
!-------------------------------------------------------------------------------
37
!
38
!* 0. DECLARATIONS
39
! ------------
40
!
41
!
42
USE
modd_diag_surf_atm_n
, ONLY
:
diag_surf_atm_t
43
!
44
USE
modi_get_luout
45
USE
modd_surf_par
, ONLY
: xundef
46
!
47
!
48
!
49
USE
yomhook
,ONLY
: lhook, dr_hook
50
USE
parkind1
,ONLY
: jprb
51
!
52
IMPLICIT NONE
53
!
54
!* 0.1 Declarations of arguments
55
! -------------------------
56
!
57
!
58
TYPE(
diag_surf_atm_t
)
,
INTENT(INOUT)
:: dgu
59
!
60
CHARACTER(LEN=6)
,
INTENT(IN)
:: hprogram
61
INTEGER
,
INTENT(IN)
:: ki
! Number of points
62
REAL
,
DIMENSION(KI)
,
INTENT(OUT)
:: pz0
! roughness length for momentum (m)
63
REAL
,
DIMENSION(KI)
,
INTENT(OUT)
:: pz0h
! roughness length for heat (m)
64
!
65
!
66
!* 0.2 Declarations of local variables
67
! -------------------------------
68
!
69
INTEGER
:: iluout
70
REAL(KIND=JPRB)
:: zhook_handle
71
!
72
!-------------------------------------------------------------------------------
73
IF
(lhook) CALL dr_hook(
'GET_Z0_N'
,0,zhook_handle)
74
CALL
get_luout
(hprogram,iluout)
75
!-------------------------------------------------------------------------------
76
!
77
IF
(dgu%LCOEF)
THEN
78
pz0 = dgu%XAVG_Z0
79
pz0h = dgu%XAVG_Z0H
80
ELSE
81
pz0 = xundef
82
pz0h = xundef
83
ENDIF
84
IF
(lhook) CALL dr_hook(
'GET_Z0_N'
,1,zhook_handle)
85
!
86
!==============================================================================
87
!
88
END SUBROUTINE
get_z0_n
modd_diag_surf_atm_n
Definition:
modd_diag_surf_atmn.F90:6
get_luout
subroutine get_luout(HPROGRAM, KLUOUT)
Definition:
get_luout.F90:6
modd_surf_par
Definition:
modd_surf_par.F90:6
modd_diag_surf_atm_n::diag_surf_atm_t
Definition:
modd_diag_surf_atmn.F90:44
get_z0_n
subroutine get_z0_n(DGU, HPROGRAM, KI, PZ0, PZ0H)
Definition:
get_z0n.F90:6
Generated on Fri May 13 2016 09:31:04 for SURFEX by
1.8.5