SURFEX
V8_0
Surfex V8_0 release
Main Page
Data Types List
Files
File List
File Members
All
Classes
Files
Functions
Variables
src
SURFEX
init_from_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
SUBROUTINE
init_from_data_seaflux_n
(DTS, &
7
psst)
8
! ##############################################################
9
!
10
!!**** *CONVERT_COVER* convert surface cover classes into secondary
11
!! physiographic variables for SEAFLUX
12
!!
13
!! PURPOSE
14
!! -------
15
!!
16
!! METHOD
17
!! ------
18
!!
19
!! EXTERNAL
20
!! --------
21
!!
22
!! IMPLICIT ARGUMENTS
23
!! ------------------
24
!!
25
!! REFERENCE
26
!! ---------
27
!!
28
!! AUTHOR
29
!! ------
30
!!
31
!! P. Le Moigne Meteo-France
32
!!
33
!! MODIFICATION
34
!! ------------
35
!!
36
!! Original 09/2007
37
!
38
!----------------------------------------------------------------------------
39
!
40
!* 0. DECLARATION
41
! -----------
42
!
43
!
44
USE
modd_data_seaflux_n
, ONLY
:
data_seaflux_t
45
!
46
USE
modd_type_date_surf
47
48
!
49
!
50
USE
yomhook
,ONLY
: lhook, dr_hook
51
USE
parkind1
,ONLY
: jprb
52
!
53
IMPLICIT NONE
54
!
55
!* 0.1 Declaration of arguments
56
! ------------------------
57
!
58
!
59
TYPE(
data_seaflux_t
)
,
INTENT(INOUT)
:: dts
60
!
61
REAL
,
DIMENSION(:)
,
OPTIONAL
,
INTENT(OUT)
:: psst
62
!
63
!* 0.2 Declaration of local variables
64
! ------------------------------
65
!
66
INTEGER
:: itime
67
INTEGER
:: iluout
68
REAL(KIND=JPRB)
:: zhook_handle
69
!-------------------------------------------------------------------------------
70
!
71
!* 1. TIME INITIALIZATION
72
! -------------------
73
!
74
IF
(lhook) CALL dr_hook(
'INIT_FROM_DATA_SEAFLUX_N'
,0,zhook_handle)
75
itime = dts%NTIME
76
itime = 1
77
!
78
!* 2. VARIABLES
79
! ---------
80
!
81
! sea surface temperature
82
! -----------------------
83
!
84
IF
(present(psst)) psst(:) = dts%XDATA_SST (:,itime)
85
IF
(present(psst)) psst(:) = dts%XDATA_SST (:,1)
86
IF
(lhook) CALL dr_hook(
'INIT_FROM_DATA_SEAFLUX_N'
,1,zhook_handle)
87
!
88
!-------------------------------------------------------------------------------
89
!
90
END SUBROUTINE
init_from_data_seaflux_n
modd_data_seaflux_n
Definition:
modd_data_seafluxn.F90:6
init_from_data_seaflux_n
subroutine init_from_data_seaflux_n(DTS, PSST)
Definition:
init_from_data_seafluxn.F90:6
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