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_nc.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_nc
7
! ######################
8
!
9
!!**** *MODD_IO_SURF_NC* 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
!! S. Faroux *Meteo France*
25
!!
26
!! MODIFICATIONS
27
!! -------------
28
!
29
!* 0. DECLARATIONS
30
! ------------
31
!
32
!
33
IMPLICIT NONE
34
!------------------------------------------------------------------------------
35
!
36
!* variables for each patch
37
!
38
CHARACTER(LEN=28)
,
SAVE
:: CFILEIN_NC
39
CHARACTER(LEN=28)
,
SAVE
:: CFILEIN_NC_SAVE
! Name of the input
40
CHARACTER(LEN=28)
,
SAVE
:: CFILEOUT_NC
! Name of the output
41
CHARACTER(LEN=28)
,
SAVE
:: CFILEOUT_NC_SAVE =
''
! Name of the output
42
CHARACTER(LEN=28)
,
SAVE
:: CFILEPGD_NC
! Name of the pgd file
43
CHARACTER(LEN=28)
,
SAVE
:: CLUOUT_NC
44
!
45
INTEGER
:: NID_NC
46
INTEGER
:: NLUOUT
! logical unit of output file
47
LOGICAL
,
SAVE
:: LCREATED = .FALSE.
48
LOGICAL
:: LDEF = .FALSE.
49
!
50
INTEGER
,
DIMENSION(:)
,
POINTER
:: NMASK
51
!$OMP THREADPRIVATE(NMASK)
52
CHARACTER(LEN=6)
:: CMASK
! surface mask type
53
!$OMP THREADPRIVATE(CMASK)
54
INTEGER
:: NFULL
55
!$OMP THREADPRIVATE(NFULL)
56
INTEGER
:: NFULL_AUX
! total number fo points of surface (Auxilarry file for prep)
57
!
58
LOGICAL
,
SAVE
:: LMASK = .FALSE.
59
!
60
INTEGER
,
DIMENSION(:)
,
ALLOCATABLE
:: NMASK_IGN
61
!
62
!------------------------------------------------------------------------------
63
!
64
END MODULE
modd_io_surf_nc
65
modd_io_surf_nc
Definition:
modd_io_surf_nc.F90:6
Generated on Fri May 13 2016 09:31:00 for SURFEX by
1.8.5