SURFEX
V8_0
Surfex V8_0 release
Main Page
Data Types List
Files
File List
File Members
All
Classes
Files
Functions
Variables
src
SURFEX
read_prep_isba_date_conf.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
read_prep_isba_date_conf
(HPROGRAM,KLUOUT,TPTIME)
7
! #######################################################
8
!
9
!!**** *READ_PREP_ISBA_DATE_CONF* - routine to read the date in namelist
10
!!
11
!! PURPOSE
12
!! -------
13
!!
14
!!** METHOD
15
!! ------
16
!!
17
!! EXTERNAL
18
!! --------
19
!!
20
!!
21
!! IMPLICIT ARGUMENTS
22
!! ------------------
23
!!
24
!! REFERENCE
25
!! ---------
26
!!
27
!!
28
!! AUTHOR
29
!! ------
30
!! S.Malardel *Meteo France*
31
!!
32
!! MODIFICATIONS
33
!! -------------
34
!! Original 01/2004
35
!-------------------------------------------------------------------------------
36
!
37
!* 0. DECLARATIONS
38
! ------------
39
!
40
USE
modd_type_date_surf
41
!
42
USE
modn_prep_isba
43
!
44
!
45
USE
yomhook
,ONLY
: lhook, dr_hook
46
USE
parkind1
,ONLY
: jprb
47
!
48
IMPLICIT NONE
49
!
50
!* 0.1 Declarations of arguments
51
! -------------------------
52
!
53
CHARACTER(LEN=6)
,
INTENT(IN)
:: hprogram
! program calling ISBA
54
INTEGER
,
INTENT(IN)
:: kluout
! logical unit of output listing
55
TYPE (
date_time
)
,
INTENT(OUT)
:: tptime
! current date and time
56
REAL(KIND=JPRB)
:: zhook_handle
57
58
59
!
60
!
61
!* 0.2 Declarations of local variables
62
! -------------------------------
63
!
64
!-------------------------------------------------------------------------------
65
!
66
tptime%TDATE%YEAR = nyear
67
tptime%TDATE%MONTH = nmonth
68
tptime%TDATE%DAY = nday
69
IF
(lhook) CALL dr_hook(
'READ_PREP_ISBA_DATE_CONF'
,0,zhook_handle)
70
tptime%TIME = xtime
71
IF
(lhook) CALL dr_hook(
'READ_PREP_ISBA_DATE_CONF'
,1,zhook_handle)
72
!
73
!
74
!------------------------------------------------------------------------------
75
!
76
END SUBROUTINE
read_prep_isba_date_conf
modn_prep_isba
Definition:
modn_prep_isba.F90:6
modd_type_date_surf::date_time
Definition:
modd_type_date_surf.F90:46
read_prep_isba_date_conf
subroutine read_prep_isba_date_conf(HPROGRAM, KLUOUT, TPTIME)
Definition:
read_prep_isba_date_conf.F90:6
modd_type_date_surf
Definition:
modd_type_date_surf.F90:6
Generated on Fri May 13 2016 09:31:05 for SURFEX by
1.8.5