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_data_seafluxn.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_data_seaflux_n
7
! ##########################
8
!
9
!!**** *MODD_DATA_SEAFLUX - declaration of SEAFLUX surface parameters for SEAFLUX scheme
10
!!
11
!! PURPOSE
12
!! -------
13
!
14
!!
15
!!** IMPLICIT ARGUMENTS
16
!! ------------------
17
!! None
18
!!
19
!! REFERENCE
20
!! ---------
21
!!
22
!! AUTHOR
23
!! ------
24
!! P. Le Moigne *Meteo France*
25
!!
26
!! MODIFICATIONS
27
!! -------------
28
!! Original 09/2007
29
!
30
!* 0. DECLARATIONS
31
! ------------
32
!
33
!
34
USE
modd_type_date_surf
35
!
36
USE
yomhook
,ONLY
: lhook, dr_hook
37
USE
parkind1
,ONLY
: jprb
38
!
39
IMPLICIT NONE
40
41
TYPE
data_seaflux_t
42
!-------------------------------------------------------------------------------
43
!
44
TYPE (
date_time
)
,
POINTER
,
DIMENSION(:)
:: TDATA_SST
! date of sst field
45
!
46
!-------------------------------------------------------------------------------
47
!
48
REAL
,
POINTER
,
DIMENSION(:,:)
:: XDATA_SST
! sea surface temperature for
49
! ! each grid mesh (-)
50
!
51
!-------------------------------------------------------------------------------
52
!
53
INTEGER
:: NTIME
! number of time data
54
! ! for SST
55
!
56
!-------------------------------------------------------------------------------
57
!
58
LOGICAL
:: LSST_DATA
! flag to use SST data
59
!
60
!-------------------------------------------------------------------------------
61
END TYPE
data_seaflux_t
62
63
64
65
CONTAINS
66
67
!
68
69
70
71
72
SUBROUTINE
data_seaflux_init
(YDATA_SEAFLUX)
73
TYPE(
data_seaflux_t
)
,
INTENT(INOUT)
:: ydata_seaflux
74
REAL(KIND=JPRB)
:: zhook_handle
75
IF
(lhook) CALL dr_hook(
"MODD_DATA_SEAFLUX_N:DATA_SEAFLUX_INIT"
,0,zhook_handle)
76
nullify(ydata_seaflux%XDATA_SST)
77
ydata_seaflux%NTIME=0
78
ydata_seaflux%LSST_DATA=.false.
79
IF
(lhook) CALL dr_hook(
"MODD_DATA_SEAFLUX_N:DATA_SEAFLUX_INIT"
,1,zhook_handle)
80
END SUBROUTINE
data_seaflux_init
81
82
83
END MODULE
modd_data_seaflux_n
modd_data_seaflux_n
Definition:
modd_data_seafluxn.F90:6
modd_type_date_surf::date_time
Definition:
modd_type_date_surf.F90:46
modd_data_seaflux_n::data_seaflux_init
subroutine data_seaflux_init(YDATA_SEAFLUX)
Definition:
modd_data_seafluxn.F90:72
modd_type_date_surf
Definition:
modd_type_date_surf.F90:6
modd_data_seaflux_n::data_seaflux_t
Definition:
modd_data_seafluxn.F90:41
Generated on Fri May 13 2016 09:31:04 for SURFEX by
1.8.5