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

Go to the documentation of this file.
00001 !     ################
00002       MODULE MODD_PREP
00003 !     ################
00004 !
00005 !!****  *MODD_PREP - declaration for field interpolations
00006 !!
00007 !!    PURPOSE
00008 !!    -------
00009 !     Declaration of surface parameters
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 !!      P. Le Moigne   10/2005, Phasage Arome      
00027 !
00028 !*       0.   DECLARATIONS
00029 !             ------------
00030 !
00031 IMPLICIT NONE
00032 !
00033 !--------------------------------------------------------------------------
00034 !
00035  CHARACTER(LEN=10)  :: CINGRID_TYPE   ! type of input grid
00036  CHARACTER(LEN=6)   :: CINTERP_TYPE   ! type of interpolation
00037  CHARACTER(LEN=6)   :: CMASK          ! type of surface
00038 !
00039 LOGICAL, DIMENSION(:), ALLOCATABLE :: LINTERP ! .true. where interpolation must be done
00040 !
00041 REAL, DIMENSION(:), ALLOCATABLE :: XZS_LS   ! Large scale orography interpolated on output grid
00042 !
00043 REAL, DIMENSION(:), ALLOCATABLE :: XLAT_OUT ! Output grid latitudes
00044 REAL, DIMENSION(:), ALLOCATABLE :: XLON_OUT ! Output grid longitudes
00045 !
00046 REAL, DIMENSION(:), ALLOCATABLE :: XX_OUT   ! Output grid 1st coordinate
00047 REAL, DIMENSION(:), ALLOCATABLE :: XY_OUT   ! Output grid 2nd coordinate
00048 !--------------------------------------------------------------------------
00049 REAL, PARAMETER :: XT_CLIM_GRAD = -0.0065   ! climatological vertical temperature gradient
00050 !--------------------------------------------------------------------------
00051 !
00052 END MODULE MODD_PREP