SURFEX
V8_0
Surfex V8_0 release
Main Page
Data Types List
Files
File List
File Members
All
Classes
Files
Functions
Variables
src
SURFEX
get_grid_dim_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
SUBROUTINE
get_grid_dim_gauss
(KGRID_PAR,PGRID_PAR,ORECT,KDIM1,KDIM2)
7
! ##############################################################
8
!
9
!!**** *GET_GRID_DIM_GAUSS* get the grid mesh dimensions
10
!!
11
!! PURPOSE
12
!! -------
13
!!
14
!! METHOD
15
!! ------
16
!!
17
!! REFERENCE
18
!! ---------
19
!!
20
!! AUTHOR
21
!! ------
22
!!
23
!! V. Masson Meteo-France
24
!!
25
!! MODIFICATION
26
!! ------------
27
!!
28
!! Original 03/2004
29
!!
30
!----------------------------------------------------------------------------
31
!
32
!* 0. DECLARATION
33
! -----------
34
!
35
USE
mode_gridtype_gauss
36
!
37
!
38
USE
yomhook
,ONLY
: lhook, dr_hook
39
USE
parkind1
,ONLY
: jprb
40
!
41
IMPLICIT NONE
42
!
43
!* 0.1 Declaration of arguments
44
! ------------------------
45
!
46
INTEGER
,
INTENT(IN)
:: kgrid_par
! size of PGRID_PAR
47
REAL
,
DIMENSION(KGRID_PAR)
,
INTENT(IN)
:: pgrid_par
! grid parameters
48
LOGICAL
,
INTENT(OUT)
:: orect
! T if rectangular grid
49
INTEGER
,
INTENT(OUT)
:: kdim1
! 1st dimension
50
INTEGER
,
INTENT(OUT)
:: kdim2
! 2nd dimension
51
REAL(KIND=JPRB)
:: zhook_handle
52
!
53
!* 0.2 Declaration of other local variables
54
! ------------------------------------
55
!
56
!----------------------------------------------------------------------------
57
!
58
IF
(lhook) CALL dr_hook(
'GET_GRID_DIM_GAUSS'
,0,zhook_handle)
59
orect = .false.
60
kdim2 = 1
61
!
62
CALL
get_gridtype_gauss
(pgrid_par,kl=kdim1)
63
IF
(lhook) CALL dr_hook(
'GET_GRID_DIM_GAUSS'
,1,zhook_handle)
64
!
65
!-------------------------------------------------------------------------------
66
!
67
END SUBROUTINE
get_grid_dim_gauss
mode_gridtype_gauss
Definition:
mode_gridtype_gauss.F90:6
get_grid_dim_gauss
subroutine get_grid_dim_gauss(KGRID_PAR, PGRID_PAR, ORECT, KDIM1, KDIM2)
Definition:
get_grid_dim_gauss.F90:6
mode_gridtype_gauss::get_gridtype_gauss
subroutine get_gridtype_gauss(PGRID_PAR, KNLATI, PLAPO, PLOPO, PCODIL, KNLOPA, KL, PLAT, PLON, PLAT_XY, PLON_XY, PMESH_SIZE, PLONINF, PLATINF, PLONSUP, PLATSUP)
Definition:
mode_gridtype_gauss.F90:107
Generated on Fri May 13 2016 09:31:04 for SURFEX by
1.8.5