SURFEX
V8_0
Surfex V8_0 release
Main Page
Data Types List
Files
File List
File Members
All
Classes
Files
Functions
Variables
src
SURFEX
open_namelist_fa.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
open_namelist_fa
(HPROGRAM,KLUNAM,HFILE)
7
! #######################################################
8
!
9
!!**** *OPEN_NAMELIST_FA* - opens namelists files for surface (OFFLINE universe)
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
!! V. Masson *Meteo France*
31
!!
32
!! MODIFICATIONS
33
!! -------------
34
!! Original 01/2004
35
!-------------------------------------------------------------------------------
36
!
37
!* 0. DECLARATIONS
38
! ------------
39
!
40
USE
yomhook
,ONLY
: lhook, dr_hook
41
USE
parkind1
,ONLY
: jprb
42
!
43
IMPLICIT NONE
44
!
45
!* 0.1 Declarations of arguments
46
! -------------------------
47
!
48
CHARACTER(LEN=6)
,
INTENT(IN)
:: hprogram
! main program
49
INTEGER
,
INTENT(OUT)
:: klunam
! logical unit of namelist
50
CHARACTER(LEN=28)
,
INTENT(IN)
:: hfile
! FAII file to open
51
!
52
!* 0.2 Declarations of local variables
53
! -------------------------------
54
!
55
CHARACTER(LEN=28)
:: ynam
56
REAL(KIND=JPRB)
:: zhook_handle
57
!
58
!-------------------------------------------------------------------------------
59
!
60
!* reading of namelist
61
! -------------------
62
!
63
IF
(lhook) CALL dr_hook(
'OPEN_NAMELIST_FA'
,0,zhook_handle)
64
IF
(len_trim(hfile)>0)
THEN
65
ynam = hfile
66
ELSE
67
ynam=
'OPTIONS.nam'
68
END IF
69
!
70
klunam=11
71
OPEN
(klunam,file=ynam,action=
'READ'
,form=
"FORMATTED"
,position=
"REWIND"
)
72
IF
(lhook) CALL dr_hook(
'OPEN_NAMELIST_FA'
,1,zhook_handle)
73
!-------------------------------------------------------------------------------
74
!
75
END SUBROUTINE
open_namelist_fa
open_namelist_fa
subroutine open_namelist_fa(HPROGRAM, KLUNAM, HFILE)
Definition:
open_namelist_fa.F90:6
Generated on Fri May 13 2016 09:31:04 for SURFEX by
1.8.5