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

Go to the documentation of this file.
00001 !     ################
00002       MODULE MODD_GRID_GAUSS
00003 !     ################
00004 !
00005 !!****  *MODD_GRID_GAUSS - declaration of Gauss grid characteristics
00006 !!
00007 !!    PURPOSE
00008 !!    -------
00009 !     Used if CINGRID_TYPE = 'GAUSS '
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       01/2004
00026 !
00027 !*       0.   DECLARATIONS
00028 !             ------------
00029 !
00030 IMPLICIT NONE
00031 !
00032 REAL                               :: XILA1   ! Lat. (y) of first input point
00033 REAL                               :: XILO1   ! Lon. (x) of first input point
00034 REAL                               :: XILA2   ! Lat. (y) of last input point
00035 REAL                               :: XILO2   ! Lon. (x) of last input point
00036 INTEGER                            :: NINLA   ! Number of parallels
00037 INTEGER, DIMENSION(:), ALLOCATABLE :: NINLO   ! Nb. of points on each parallel
00038 INTEGER                            :: NILEN   ! size of input arrays
00039 !
00040 LOGICAL                             :: LROTPOLE! .TRUE. if pole is rotated
00041 REAL                                :: XLAP    ! Latitude of stretching pole
00042 REAL                                :: XLOP    ! Longitude of stretching pole
00043 REAL                                :: XCOEF   ! Stretching coefficient
00044 !
00045 END MODULE MODD_GRID_GAUSS
00046