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_data_seaflux_confn.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_data_seaflux_conf_n
(DTS, &
7
osst_data, ktime)
8
! ########################################
9
!
10
!!**** *GET_DATA_SEAFLUX_CONF_n* - routine to get some ISBA fields
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
!! V. Masson *Meteo France*
32
!!
33
!! MODIFICATIONS
34
!! -------------
35
!! Original 04/2008
36
!! A.L. Gibelin 07/2009 : Dimensions for carbon options
37
!!
38
!-------------------------------------------------------------------------------
39
!
40
!* 0. DECLARATIONS
41
! ------------
42
!
43
!
44
!
45
!
46
USE
modd_data_seaflux_n
, ONLY
:
data_seaflux_t
47
!
48
USE
yomhook
,ONLY
: lhook, dr_hook
49
USE
parkind1
,ONLY
: jprb
50
!
51
IMPLICIT NONE
52
!
53
!* 0.1 Declarations of arguments
54
! -------------------------
55
!
56
!
57
TYPE(
data_seaflux_t
)
,
INTENT(INOUT)
:: dts
58
!
59
LOGICAL
,
INTENT(OUT)
:: osst_data
! number of patchs
60
INTEGER
,
INTENT(OUT)
:: ktime
! number of ground layers
61
REAL(KIND=JPRB)
:: zhook_handle
62
!
63
!
64
!* 0.2 Declarations of local variables
65
! -------------------------------
66
!
67
!
68
!-------------------------------------------------------------------------------
69
IF
(lhook) CALL dr_hook(
'GET_DATA_SEAFLUX_CONF_N'
,0,zhook_handle)
70
osst_data = dts%LSST_DATA
71
IF
(
ASSOCIATED
(dts%TDATA_SST))
THEN
72
ktime =
SIZE
(dts%TDATA_SST)
73
ELSE
74
ktime = 0
75
ENDIF
76
IF
(lhook) CALL dr_hook(
'GET_DATA_SEAFLUX_CONF_N'
,1,zhook_handle)
77
!
78
!==============================================================================
79
!
80
END SUBROUTINE
get_data_seaflux_conf_n
get_data_seaflux_conf_n
subroutine get_data_seaflux_conf_n(DTS, OSST_DATA, KTIME)
Definition:
get_data_seaflux_confn.F90:6
modd_data_seaflux_n
Definition:
modd_data_seafluxn.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