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_grid_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_grid_gauss
7
! ################
8
!
9
!!**** *MODD_GRID_GAUSS - declaration of Gauss grid characteristics
10
!!
11
!! PURPOSE
12
!! -------
13
! Used if CINGRID_TYPE = 'GAUSS '
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 01/2004
30
!
31
!* 0. DECLARATIONS
32
! ------------
33
!
34
IMPLICIT NONE
35
!
36
REAL
:: XILA1
! Lat. (y) of first input point
37
REAL
:: XILO1
! Lon. (x) of first input point
38
REAL
:: XILA2
! Lat. (y) of last input point
39
REAL
:: XILO2
! Lon. (x) of last input point
40
INTEGER
:: NINLA
! Number of parallels
41
INTEGER
,
DIMENSION(:)
,
ALLOCATABLE
:: NINLO
! Nb. of points on each parallel
42
INTEGER
:: NILEN
! size of input arrays
43
!
44
LOGICAL
:: LROTPOLE
! .TRUE. if pole is rotated
45
REAL
:: XLAP
! Latitude of stretching pole
46
REAL
:: XLOP
! Longitude of stretching pole
47
REAL
:: XCOEF
! Stretching coefficient
48
!
49
END MODULE
modd_grid_gauss
50
modd_grid_gauss
Definition:
modd_grid_gauss.F90:6
Generated on Fri May 13 2016 09:31:04 for SURFEX by
1.8.5