SURFEX
V8_0
Surfex V8_0 release
Main Page
Data Types List
Files
File List
File Members
All
Classes
Files
Functions
Variables
src
SURFEX
surf_version.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
surf_version
7
! ##################
8
!
9
!!**** *SURF_VERSION * - subroutine to initialize the surface version
10
!!
11
!! PURPOSE
12
!! -------
13
! The purpose of this routine is to initialize NVERSION and NBUGFIX
14
! corresponding to the version chosen by the user.
15
! The user can also set the name of his own binary library
16
! These values will be writen in the output files
17
!
18
!!
19
!! AUTHOR
20
!! ------
21
!! V. Masson * Meteo France *
22
!!
23
!! MODIFICATIONS
24
!! -------------
25
!! Original 02/2004
26
!-------------------------------------------------------------------------------
27
!
28
!* 0. DECLARATIONS
29
! ------------
30
USE
modd_surf_par
, ONLY
: nversion,nbugfix
31
!
32
!
33
USE
yomhook
,ONLY
: lhook, dr_hook
34
USE
parkind1
,ONLY
: jprb
35
!
36
IMPLICIT NONE
37
!
38
39
REAL(KIND=JPRB)
:: zhook_handle
40
41
IF
(lhook) CALL dr_hook(
'SURF_VERSION'
,0,zhook_handle)
42
nversion = 8
43
nbugfix = 0
44
IF
(lhook) CALL dr_hook(
'SURF_VERSION'
,1,zhook_handle)
45
!
46
END SUBROUTINE
surf_version
surf_version
subroutine surf_version
Definition:
surf_version.F90:6
modd_surf_par
Definition:
modd_surf_par.F90:6
Generated on Fri May 13 2016 09:31:05 for SURFEX by
1.8.5