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_get_mesh_index_gauss.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_get_mesh_index_gauss
7
! ##########################
8
!
9
!!**** *MODD_GRID_GAUSS - declaration of Gauss grid characteristics for
10
! routine get_mesh_index_gauss
11
!!
12
!! PURPOSE
13
!! -------
14
!
15
!!
16
!!** IMPLICIT ARGUMENTS
17
!! ------------------
18
!! None
19
!!
20
!! REFERENCE
21
!! ---------
22
!!
23
!! AUTHOR
24
!! ------
25
!! V. Masson *Meteo France*
26
!!
27
!! MODIFICATIONS
28
!! -------------
29
!! Original 10/2006
30
!
31
IMPLICIT NONE
32
!
33
!* 0. DECLARATIONS
34
! ------------
35
!
36
INTEGER
:: NNLATI
! number of pseudo-latitudes
37
INTEGER
,
DIMENSION(:)
,
ALLOCATABLE
:: NNLOPA
! number of pseudo-longitudes
38
! ! on each pseudo-latitude circle
39
REAL
:: XLAPO
! latitude of the rotated pole (deg)
40
REAL
:: XLOPO
! longitude of the rotated pole (deg)
41
REAL
:: XCODIL
! stretching factor
42
!
43
REAL
:: XDY_MAX
44
!
45
LOGICAL
:: LROTSTRETCH
! If true, rotated pole and/or stretching
46
!
47
INTEGER
,
DIMENSION(:,:)
,
ALLOCATABLE
:: NFRACDY
48
INTEGER
,
DIMENSION(:)
,
ALLOCATABLE
:: NFACTY
49
INTEGER
,
DIMENSION(:)
,
ALLOCATABLE
:: NFRACDX
50
INTEGER
,
DIMENSION(:)
,
ALLOCATABLE
:: NFRACGX
51
!
52
REAL
,
DIMENSION(:)
,
ALLOCATABLE
:: XLON, XLAT, XCOST, XSINTC, XSINTS, XCOSN, XSINN
53
REAL
,
DIMENSION(:)
,
ALLOCATABLE
:: XSIN
54
REAL
:: XLONP, XLATP, XCOSP, XSINP
55
REAL
:: XPI, X1, X2, XDR
56
!
57
REAL
,
DIMENSION(:)
,
ALLOCATABLE
:: XXCEN
! pseudo-longitude of center of grid mesh
58
REAL
,
DIMENSION(:)
,
ALLOCATABLE
:: XYCEN
! pseudo-latitude of center of grid mesh
59
REAL
,
DIMENSION(:)
,
ALLOCATABLE
:: XXINF
! pseudo-longitude western limit of grid mesh
60
REAL
,
DIMENSION(:)
,
ALLOCATABLE
:: XXSUP
! pseudo-longitude eastern limit of grid mesh
61
REAL
,
DIMENSION(:)
,
ALLOCATABLE
:: XYINF
! pseudo-latitude southern limit of grid mesh
62
REAL
,
DIMENSION(:)
,
ALLOCATABLE
:: XYSUP
! pseudo-latitude northern limit of grid mesh
63
REAL
,
DIMENSION(:)
,
ALLOCATABLE
:: XXDIF
64
REAL
,
DIMENSION(:)
,
ALLOCATABLE
:: XYDIF
65
!
66
INTEGER
,
DIMENSION(:)
,
ALLOCATABLE
::IINDEX_1KM
67
INTEGER
,
DIMENSION(:)
,
ALLOCATABLE
::IINDEX_10KM
68
INTEGER
,
DIMENSION(:)
,
ALLOCATABLE
::IINDEX_100KM
69
INTEGER
,
DIMENSION(:)
,
ALLOCATABLE
::IISSOX_1KM
70
INTEGER
,
DIMENSION(:)
,
ALLOCATABLE
::IISSOX_10KM
71
INTEGER
,
DIMENSION(:)
,
ALLOCATABLE
::IISSOX_100KM
72
INTEGER
,
DIMENSION(:)
,
ALLOCATABLE
::IISSOY_1KM
73
INTEGER
,
DIMENSION(:)
,
ALLOCATABLE
::IISSOY_10KM
74
INTEGER
,
DIMENSION(:)
,
ALLOCATABLE
::IISSOY_100KM
75
!
76
INTEGER
,
DIMENSION(:)
,
ALLOCATABLE
::IMASK_GAUSS
77
!
78
END MODULE
modd_get_mesh_index_gauss
modd_get_mesh_index_gauss
Definition:
modd_get_mesh_index_gauss.F90:6
Generated on Fri May 13 2016 09:31:04 for SURFEX by
1.8.5