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_var_sean.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_var_sea_n
(DGS, &
7
hprogram,ki,pqs,pz0,pz0h)
8
! ##################################################
9
!
10
!!**** *GET_VAR_SEA_n* - routine to get variables defined only over sea
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
! M. Jidane 08/2008 Z0 and Z0H recovery from sea tiles
37
!-------------------------------------------------------------------------------
38
!
39
!* 0. DECLARATIONS
40
! ------------
41
!
42
!
43
USE
modd_diag_seaflux_n
, ONLY
:
diag_seaflux_t
44
!
45
USE
modi_get_luout
46
USE
modd_surf_par
, ONLY
: xundef
47
!
48
!
49
!
50
USE
yomhook
,ONLY
: lhook, dr_hook
51
USE
parkind1
,ONLY
: jprb
52
!
53
IMPLICIT NONE
54
!
55
!* 0.1 Declarations of arguments
56
! -------------------------
57
!
58
!
59
TYPE(
diag_seaflux_t
)
,
INTENT(INOUT)
:: dgs
60
!
61
CHARACTER(LEN=6)
,
INTENT(IN)
:: hprogram
62
INTEGER
,
INTENT(IN)
:: ki
! Number of points
63
REAL
,
DIMENSION(KI)
,
INTENT(OUT)
:: pqs
! surface humidity
64
REAL
,
DIMENSION(KI)
,
INTENT(OUT)
:: pz0
! surface roughness length
65
REAL
,
DIMENSION(KI)
,
INTENT(OUT)
:: pz0h
! surface roughness length for heat
66
!
67
!
68
!* 0.2 Declarations of local variables
69
! -------------------------------
70
!
71
INTEGER
:: iluout
72
REAL(KIND=JPRB)
:: zhook_handle
73
!
74
!-------------------------------------------------------------------------------
75
IF
(lhook) CALL dr_hook(
'GET_VAR_SEA_N'
,0,zhook_handle)
76
CALL
get_luout
(hprogram,iluout)
77
!-------------------------------------------------------------------------------
78
!
79
IF
(dgs%LSURF_VARS)
THEN
80
pqs = dgs%XQS
81
ELSE
82
pqs = xundef
83
ENDIF
84
IF
(dgs%LCOEF)
THEN
85
pz0 = dgs%XZ0
86
pz0h = dgs%XZ0H
87
ELSE
88
pz0 = xundef
89
pz0h = xundef
90
ENDIF
91
IF
(lhook) CALL dr_hook(
'GET_VAR_SEA_N'
,1,zhook_handle)
92
!
93
!==============================================================================
94
!
95
END SUBROUTINE
get_var_sea_n
get_var_sea_n
subroutine get_var_sea_n(DGS, HPROGRAM, KI, PQS, PZ0, PZ0H)
Definition:
get_var_sean.F90:6
modd_diag_seaflux_n
Definition:
modd_diag_seafluxn.F90:6
get_luout
subroutine get_luout(HPROGRAM, KLUOUT)
Definition:
get_luout.F90:6
modd_diag_seaflux_n::diag_seaflux_t
Definition:
modd_diag_seafluxn.F90:42
modd_surf_par
Definition:
modd_surf_par.F90:6
Generated on Fri May 13 2016 09:31:04 for SURFEX by
1.8.5