SURFEX v7.3: /home/dasprezs/EXPORT_v7_3/src/SURFEX/modd_get_mesh_index

Go to the documentation of this file.
00001 !     ##########################
00002 MODULE MODD_GET_MESH_INDEX_GAUSS
00003 !     ##########################
00004 !
00005 !!****  *MODD_GRID_GAUSS - declaration of Gauss grid characteristics for
00006 !                          routine get_mesh_index_gauss
00007 !!
00008 !!    PURPOSE
00009 !!    -------
00010 !
00011 !!
00012 !!**  IMPLICIT ARGUMENTS
00013 !!    ------------------
00014 !!      None 
00015 !!
00016 !!    REFERENCE
00017 !!    ---------
00018 !!
00019 !!    AUTHOR
00020 !!    ------
00021 !!      V. Masson    *Meteo France*
00022 !!
00023 !!    MODIFICATIONS
00024 !!    -------------
00025 !!      Original       10/2006
00026 !
00027 IMPLICIT NONE
00028 !
00029 !*       0.   DECLARATIONS
00030 !             ------------
00031 !
00032 INTEGER                           :: NNLATI   ! number of pseudo-latitudes
00033 INTEGER, DIMENSION(:), ALLOCATABLE:: NNLOPA   ! number of pseudo-longitudes
00034 !                                             ! on each pseudo-latitude circle
00035 REAL                              :: XLAPO    ! latitude  of the rotated pole (deg)
00036 REAL                              :: XLOPO    ! longitude of the rotated pole (deg)
00037 REAL                              :: XCODIL   ! stretching factor
00038 !
00039 LOGICAL                           :: LROTSTRETCH ! If true, rotated pole and/or stretching
00040 !
00041 REAL, DIMENSION(:), ALLOCATABLE   :: XXCEN    ! pseudo-longitude of center of grid mesh
00042 REAL, DIMENSION(:), ALLOCATABLE   :: XYCEN    ! pseudo-latitude  of center of grid mesh
00043 REAL, DIMENSION(:), ALLOCATABLE   :: XXINF    ! pseudo-longitude western   limit of grid mesh
00044 REAL, DIMENSION(:), ALLOCATABLE   :: XXSUP    ! pseudo-longitude eastern   limit of grid mesh
00045 REAL, DIMENSION(:), ALLOCATABLE   :: XXMAX    ! pseudo-longitude eastern   limit of grid mesh
00046 REAL, DIMENSION(:), ALLOCATABLE   :: XYINF    ! pseudo-latitude  southern  limit of grid mesh
00047 REAL, DIMENSION(:), ALLOCATABLE   :: XYSUP    ! pseudo-latitude  northern  limit of grid mesh
00048 !
00049 INTEGER, DIMENSION(:), ALLOCATABLE::IINDEX_1KM
00050 INTEGER, DIMENSION(:), ALLOCATABLE::IINDEX_10KM
00051 INTEGER, DIMENSION(:), ALLOCATABLE::IINDEX_100KM
00052 INTEGER, DIMENSION(:), ALLOCATABLE::IISSOX_1KM
00053 INTEGER, DIMENSION(:), ALLOCATABLE::IISSOX_10KM
00054 INTEGER, DIMENSION(:), ALLOCATABLE::IISSOX_100KM
00055 INTEGER, DIMENSION(:), ALLOCATABLE::IISSOY_1KM
00056 INTEGER, DIMENSION(:), ALLOCATABLE::IISSOY_10KM
00057 INTEGER, DIMENSION(:), ALLOCATABLE::IISSOY_100KM
00058 !
00059 INTEGER, DIMENSION(:), ALLOCATABLE::IMASK_GAUSS
00060 !
00061 END MODULE MODD_GET_MESH_INDEX_GAUSS