SURFEX
V8_0
Surfex V8_0 release
Main Page
Data Types List
Files
File List
File Members
All
Classes
Files
Functions
Variables
src
OFFLIN
get_offline_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
get_offline_conf
(PTSTEP_OUTPUT)
7
! ########################################
8
!
9
!
10
!!**** *GET_OFFLINE_CONF* - 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
!-------------------------------------------------------------------------------
37
!
38
!* 0. DECLARATIONS
39
! ------------
40
!
41
USE
modn_io_offline
, ONLY
: xtstep_output
42
!
43
!
44
USE
yomhook
,ONLY
: lhook, dr_hook
45
USE
parkind1
,ONLY
: jprb
46
!
47
IMPLICIT NONE
48
!
49
!* 0.1 Declarations of arguments
50
! -------------------------
51
!
52
REAL
,
INTENT(OUT)
:: ptstep_output
! time step of output time series
53
REAL(KIND=JPRB)
:: zhook_handle
54
!
55
!
56
!* 0.2 Declarations of local variables
57
! -------------------------------
58
!
59
!
60
!-------------------------------------------------------------------------------
61
IF
(lhook) CALL dr_hook(
'GET_OFFLINE_CONF'
,0,zhook_handle)
62
ptstep_output = xtstep_output
63
IF
(lhook) CALL dr_hook(
'GET_OFFLINE_CONF'
,1,zhook_handle)
64
!
65
!==============================================================================
66
!
67
END SUBROUTINE
get_offline_conf
modn_io_offline
Definition:
modn_io_offline.F90:6
get_offline_conf
subroutine get_offline_conf(PTSTEP_OUTPUT)
Definition:
get_offline_conf.F90:6
Generated on Fri May 13 2016 09:31:00 for SURFEX by
1.8.5