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_teb_gridn.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_teb_grid_n
7
! ##################
8
!
9
!!**** *MODD_TEB_GRID - declaration of TEB grid
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
!! Original 01/2004
29
!
30
!* 0. DECLARATIONS
31
! ------------
32
!
33
!
34
USE
yomhook
,ONLY
: lhook, dr_hook
35
USE
parkind1
,ONLY
: jprb
36
!
37
IMPLICIT NONE
38
39
TYPE
teb_grid_t
40
!-------------------------------------------------------------------------------
41
!
42
! Grid definition
43
!
44
INTEGER
:: NDIM
! number of points
45
CHARACTER(LEN=10)
:: CGRID
! grid type
46
! ! "NONE " : no grid computations
47
! ! "CONF PROJ " : conformal projection
48
! ! "SURF ATM " : town points of surf. atm. grid
49
!
50
REAL
,
POINTER
,
DIMENSION(:)
:: XGRID_PAR
! lits of parameters used to define the grid
51
! ! (depends on value of CGRID)
52
!
53
!-------------------------------------------------------------------------------
54
!
55
! General surface parameters:
56
!
57
REAL
,
POINTER
,
DIMENSION(:)
:: XLAT
! latitude (degrees +North) (-)
58
REAL
,
POINTER
,
DIMENSION(:)
:: XLON
! longitude (degrees +East) (-)
59
REAL
,
POINTER
,
DIMENSION(:)
:: XMESH_SIZE
! mesh size (m2)
60
!-------------------------------------------------------------------------------
61
!
62
63
END TYPE
teb_grid_t
64
65
66
67
CONTAINS
68
69
!
70
71
72
73
74
SUBROUTINE
teb_grid_init
(YTEB_GRID)
75
TYPE(
teb_grid_t
)
,
INTENT(INOUT)
:: yteb_grid
76
REAL(KIND=JPRB)
:: zhook_handle
77
IF
(lhook) CALL dr_hook(
"MODD_TEB_GRID_N:TEB_GRID_INIT"
,0,zhook_handle)
78
nullify(yteb_grid%XGRID_PAR)
79
nullify(yteb_grid%XLAT)
80
nullify(yteb_grid%XLON)
81
nullify(yteb_grid%XMESH_SIZE)
82
yteb_grid%NDIM=0
83
yteb_grid%CGRID=
' '
84
IF
(lhook) CALL dr_hook(
"MODD_TEB_GRID_N:TEB_GRID_INIT"
,1,zhook_handle)
85
END SUBROUTINE
teb_grid_init
86
87
88
END MODULE
modd_teb_grid_n
modd_teb_grid_n
Definition:
modd_teb_gridn.F90:6
modd_teb_grid_n::teb_grid_init
subroutine teb_grid_init(YTEB_GRID)
Definition:
modd_teb_gridn.F90:74
modd_teb_grid_n::teb_grid_t
Definition:
modd_teb_gridn.F90:39
Generated on Fri May 13 2016 09:31:04 for SURFEX by
1.8.5