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_ol.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_ol
7
! ######################
8
!
9
!!**** *MODD_IO_SURF_OL* Keep in memory the netcdf ID of the output files
10
!!
11
!! PURPOSE
12
!! -------
13
!
14
!!
15
!!** IMPLICIT ARGUMENTS
16
!! ------------------
17
!! None
18
!!
19
!! REFERENCE
20
!! ---------
21
!!
22
!! AUTHOR
23
!! ------
24
!! F. Habets *Meteo France*
25
!!
26
!! MODIFICATIONS
27
!! -------------
28
!! modified 04/04 by P. LeMoigne: add logical for town, sea and water
29
!! modified 07/11 by B. Decharme: add mask for IGN grid
30
!
31
!* 0. DECLARATIONS
32
! ------------
33
!
34
!
35
IMPLICIT NONE
36
!------------------------------------------------------------------------------
37
!
38
!* variables for each patch
39
!
40
INTEGER
,
DIMENSION(:)
,
POINTER
:: NMASK
41
!$OMP THREADPRIVATE(NMASK)
42
INTEGER
:: NSTEP_OUTPUT
43
LOGICAL
:: LMASK = .FALSE.
44
LOGICAL
:: LPARTR,LPARTW
45
LOGICAL
:: LDEFINED_NATURE
46
LOGICAL
:: LDEFINED_SEA
47
LOGICAL
:: LDEFINED_WATER
48
LOGICAL
:: LDEFINED_TOWN
49
LOGICAL
:: LDEFINED_SURF_ATM
50
LOGICAL
,
DIMENSION(5)
:: LTIME_WRITTEN
51
INTEGER
:: XTYPE
52
INTEGER
:: XSTART,XCOUNT,XSTRIDE
53
INTEGER
:: XSTARTW,XCOUNTW
54
55
INTEGER
,
DIMENSION(:)
,
ALLOCATABLE
:: NMASK_IGN
56
57
!------------------------------------------------------------------------------
58
!
59
END MODULE
modd_io_surf_ol
60
modd_io_surf_ol
Definition:
modd_io_surf_ol.F90:6
Generated on Fri May 13 2016 09:31:00 for SURFEX by
1.8.5