Philippe 23/02/2016: lfi2cdf: modif for JPHEXT/=1
[MNH-git_open_source-lfs.git] / LIBTOOLS / tools / diachro / src / mesonh_MOD / modd_grid1.f90
1 !-----------------------------------------------------------------
2 !     ##################
3       MODULE MODD_GRID1
4 !     ##################
5 !
6 !!****  *MODD_GRID1* - declaration of grid variables
7 !!
8 !!    PURPOSE
9 !!    -------
10 !       The purpose of this declarative module is to declare  the variables
11 !     describing the grid. 
12 !    
13 !
14 !!
15 !!**  IMPLICIT ARGUMENTS
16 !!    ------------------
17 !!      None 
18 !!
19 !!    REFERENCE
20 !!    ---------
21 !!      Book2 of documentation of Meso-NH (module MODD_GRIDn)
22 !!      Technical Specifications Report of the Meso-NH (chapters 2 and 3)
23 !!
24 !!    AUTHOR
25 !!    ------
26 !!      V. Ducrocq   *Meteo France*
27 !!
28 !!    MODIFICATIONS
29 !!    -------------
30 !!      Original    05/05/94                      
31 !!      J. Stein    15/11/95  add the slope angle
32 !!      V. Ducrocq   13/08/98  // : add XLATOR_ll and XLONOR_ll       
33 !-------------------------------------------------------------------------------
34 !
35 !*       0.   DECLARATIONS
36 !             ------------
37 !
38 IMPLICIT NONE
39 REAL,SAVE :: XLONOR,XLATOR  ! Longitude and latitude of the Origine point
40                             !  for the conformal projection of the sub-domain (//)
41 REAL,SAVE :: XLONOR_ll,XLATOR_ll  ! Longitude and latitude of the Origine point
42                             !  for the conformal projection of the domain 
43 REAL,SAVE, DIMENSION(:,:), ALLOCATABLE :: XLON,XLAT ! Longitude and latitude  
44 !
45 REAL,SAVE, DIMENSION(:),   ALLOCATABLE :: XXHAT   ! Position x in the 
46                                          ! conformal or cartesian plane
47 REAL,SAVE, DIMENSION(:),   ALLOCATABLE :: XYHAT   ! Position y in the 
48                                          ! conformal or cartesian plane
49 REAL,SAVE, DIMENSION(:),   ALLOCATABLE :: XDXHAT  ! horizontal stretching in x
50 REAL,SAVE, DIMENSION(:),   ALLOCATABLE :: XDYHAT  ! horizontal stretching in y
51 REAL,SAVE, DIMENSION(:,:), ALLOCATABLE :: XMAP    ! Map factor 
52 !
53 REAL,SAVE, DIMENSION(:,:),   ALLOCATABLE :: XZS   ! orography
54 REAL,SAVE, DIMENSION(:,:,:), ALLOCATABLE :: XZZ   ! height z 
55 REAL,SAVE, DIMENSION(:),     ALLOCATABLE :: XZHAT ! height level without orography
56 !
57 REAL, DIMENSION(:,:)  , ALLOCATABLE :: XDIRCOSXW,XDIRCOSYW,XDIRCOSZW 
58                                                ! director cosinus of the normal 
59                                                ! to the ground surface 
60 !  
61 REAL,SAVE, DIMENSION(:,:),  ALLOCATABLE  ::  XCOSSLOPE  ! cosinus of the angle
62                                  ! between i and the slope vector
63 REAL,SAVE, DIMENSION(:,:),  ALLOCATABLE  ::  XSINSLOPE  ! sinus of the angle
64                                  ! between i and the slope vector
65 !
66 !* quantities for SLEVE vertical coordinate
67 LOGICAL,SAVE                             :: LSLEVE    ! Logical for SLEVE coordinate
68 REAL,SAVE                                :: XLEN1     ! Decay scale for smooth topography
69 REAL,SAVE                                :: XLEN2     ! Decay scale for small-scale topography deviation
70 REAL,SAVE, DIMENSION(:,:),   ALLOCATABLE :: XZSMT   ! smooth orography for SLEVE coordinate
71 !
72 END MODULE MODD_GRID1