SURFEX
V8_0
Surfex V8_0 release
Main Page
Data Types List
Files
File List
File Members
All
Classes
Files
Functions
Variables
src
OFFLIN
modd_io_surf_lfi.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_lfi
7
! ##################
8
!
9
!!**** *MODD_IO_SURF_LFI -
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
USE
modd_surf_par
, ONLY
: nundef
30
!
31
!* 0. DECLARATIONS
32
!
33
IMPLICIT NONE
34
CHARACTER(LEN=28)
,
SAVE
:: CLUOUT_LFI
! Name of the listing
35
CHARACTER(LEN=28)
,
SAVE
:: CFILE_LFI
! Name of the current file
36
CHARACTER(LEN=28)
,
SAVE
:: CFILEIN_LFI
! Name of the input
37
CHARACTER(LEN=28)
,
SAVE
:: CFILEIN_LFI_SAVE
! Name of the input
38
CHARACTER(LEN=28)
,
SAVE
:: CFILEOUT_LFI
! Name of the output
39
CHARACTER(LEN=28)
,
SAVE
:: CFILEDIAG_LFI
! Name of the output
40
CHARACTER(LEN=28)
,
SAVE
:: CFILEPGD_LFI
! Name of the pgd file
41
INTEGER
:: NUNIT_LFI
! logical unit of surface file (LFI part)
42
INTEGER
:: NLUOUT
! logical unit of output file
43
!
44
INTEGER
,
DIMENSION(:)
,
POINTER
:: NMASK
! 1D mask to read only interesting
45
!$OMP THREADPRIVATE(NMASK)
46
CHARACTER(LEN=6)
:: CMASK
! surface mask type
47
!$OMP THREADPRIVATE(CMASK)
48
INTEGER
:: NFULL = NUNDEF
! total number fo points of surface
49
!$OMP THREADPRIVATE(NFULL)
50
INTEGER
:: NFULL_AUX = NUNDEF
! total number fo points of surface (Auxilarry file for prep)
51
INTEGER
:: NFULL_SURF= NUNDEF
! total number fo points of surface (PGD, PREP or SURFace prognostic file)
52
!
53
!* variables to insure compatibility with MesoNH and AROME files
54
!
55
LOGICAL
:: LMNH_COMPATIBLE = .FALSE.
! true if grid is compatible with MesoNH
56
LOGICAL
:: LCARTESIAN
! flag for cartesian grid
57
INTEGER
:: NIU = 0
! horizontal indexes of the grid (any file, including auxilliary file in PREP)
58
INTEGER
:: NIB = NUNDEF
! horizontal indexes of the grid (any file, including auxilliary file in PREP)
59
INTEGER
:: NIE = NUNDEF
! horizontal indexes of the grid (any file, including auxilliary file in PREP)
60
INTEGER
:: NJU = 0
! horizontal indexes of the grid (any file, including auxilliary file in PREP)
61
INTEGER
:: NJB = NUNDEF
! horizontal indexes of the grid (any file, including auxilliary file in PREP)
62
INTEGER
:: NJE = NUNDEF
! horizontal indexes of the grid (any file, including auxilliary file in PREP)
63
INTEGER
:: NIU_SURF = NUNDEF
64
INTEGER
:: NIB_SURF = NUNDEF
65
INTEGER
:: NIE_SURF = NUNDEF
66
INTEGER
:: NJU_SURF = NUNDEF
67
INTEGER
:: NJB_SURF = NUNDEF
68
INTEGER
:: NJE_SURF = NUNDEF
69
! horizontal indexes of the grid (PGD, PREP or SURFACE file)
70
!
71
END MODULE
modd_io_surf_lfi
modd_surf_par
Definition:
modd_surf_par.F90:6
modd_io_surf_lfi
Definition:
modd_io_surf_lfi.F90:6
Generated on Fri May 13 2016 09:31:00 for SURFEX by
1.8.5