SURFEX
V8_0
Surfex V8_0 release
Main Page
Data Types List
Files
File List
File Members
All
Classes
Files
Functions
Variables
src
SURFEX
modd_io_surf_asc.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
MODULE
modd_io_surf_asc
7
! ##################
8
!
9
!!**** *MODD_IO_SURF_ASC -
10
!!
11
!! PURPOSE
12
!! -------
13
!
14
!!
15
!!** IMPLICIT ARGUMENTS
16
!! ------------------
17
!! None
18
!!
19
!! REFERENCE
20
!! ---------
21
!!
22
!! AUTHOR
23
!! ------
24
!! V. Masson *Meteo France*
25
!!
26
!! MODIFICATIONS
27
!! -------------
28
!!
29
!! P. LeMoigne 04/2004 : distinguish in and out file name
30
!
31
!* 0. DECLARATIONS
32
!
33
IMPLICIT NONE
34
CHARACTER(LEN=28)
,
SAVE
:: CFILEIN =
'SURFIN.txt'
! Name of the input
35
CHARACTER(LEN=28)
,
SAVE
:: CFILEIN_SAVE =
'SURFIN.txt'
! Name of the input
36
CHARACTER(LEN=28)
,
SAVE
:: CFILEOUT=
'SURFOUT.txt'
! Name of the output
37
CHARACTER(LEN=28)
,
SAVE
:: CFILEPGD =
'PGD.txt'
! Name of the pgd file
38
INTEGER
:: NUNIT
! logical unit of surface file
39
INTEGER
:: NLUOUT
! logical unit of output file
40
INTEGER
,
DIMENSION(:)
,
POINTER
:: NMASK
! 1D mask to read only interesting
41
!$OMP THREADPRIVATE(NMASK)
42
CHARACTER(LEN=6)
:: CMASK
! surface mask type
43
!$OMP THREADPRIVATE(CMASK)
44
INTEGER
:: NFULL
! total number fo points of surface
45
!$OMP THREADPRIVATE(NFULL)
46
LOGICAL
,
SAVE
:: LCREATED=.FALSE.
! flag to know if the output file was created
47
LOGICAL
:: LOPEN
! flag to know if the file has been openned during the surface call and is to be read
48
INTEGER
:: NNI_FORC
! number of points in forcing files.
49
!
50
END MODULE
modd_io_surf_asc
modd_io_surf_asc
Definition:
modd_io_surf_asc.F90:6
Generated on Fri May 13 2016 09:31:04 for SURFEX by
1.8.5