SURFEX v7.3: /home/dasprezs/EXPORT_v7_3/src/SURFEX/latlonmask.F90 Source File

Go to the documentation of this file.
00001 !     #########
00002       SUBROUTINE LATLONMASK(HGRID,KGRID_PAR,PGRID_PAR,OLATLONMASK)
00003 !     #####################
00004 !
00005 !!**** *LATLONMASK* builds the latiude and longitude mask including the grid
00006 !!
00007 !!    PURPOSE
00008 !!    -------
00009 !!
00010 !!    AUTHOR
00011 !!    ------
00012 !!
00013 !!      V. Masson       Meteo-France
00014 !!
00015 !!    MODIFICATION
00016 !!    ------------
00017 !!      
00018 !!      Original        03/2004
00019 !!                      10/2007  E. Martin  IGN Grids
00020 !----------------------------------------------------------------------------
00021 !
00022 !*    0.     DECLARATION
00023 !            -----------
00024 !
00025 !
00026 USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
00027 USE PARKIND1  ,ONLY : JPRB
00028 !
00029 USE MODI_LATLONMASK_CONF_PROJ
00030 !
00031 USE MODI_LATLONMASK_IGN
00032 !
00033 USE MODI_LATLONMASK_LONLAT_REG
00034 !
00035 USE MODI_LATLONMASK_LONLATVAL
00036 IMPLICIT NONE
00037 !
00038 !*    0.1    Declaration of arguments
00039 !            ------------------------
00040 !
00041  CHARACTER(LEN=10),           INTENT(IN)  :: HGRID       ! type of grid
00042 INTEGER                                  :: KGRID_PAR   ! size of PGRID_PAR
00043 REAL,    DIMENSION(:),       POINTER     :: PGRID_PAR   ! parameters defining this grid
00044 LOGICAL, DIMENSION(720,360), INTENT(OUT) :: OLATLONMASK ! mask where domain is
00045 REAL(KIND=JPRB) :: ZHOOK_HANDLE
00046 !
00047 !----------------------------------------------------------------------------
00048 IF (LHOOK) CALL DR_HOOK('LATLONMASK',0,ZHOOK_HANDLE)
00049 SELECT CASE (HGRID)
00050   CASE('CONF PROJ ')
00051     CALL LATLONMASK_CONF_PROJ(KGRID_PAR,PGRID_PAR,OLATLONMASK)
00052 
00053   CASE('LONLAT REG')
00054     CALL LATLONMASK_LONLAT_REG(KGRID_PAR,PGRID_PAR,OLATLONMASK)
00055 
00056   CASE('IGN       ')
00057     CALL LATLONMASK_IGN(KGRID_PAR,PGRID_PAR,OLATLONMASK)
00058 
00059   CASE('LONLATVAL ')
00060     CALL LATLONMASK_LONLATVAL(KGRID_PAR,PGRID_PAR,OLATLONMASK)
00061 
00062   CASE DEFAULT
00063     OLATLONMASK(:,:) = .TRUE.
00064 END SELECT
00065 IF (LHOOK) CALL DR_HOOK('LATLONMASK',1,ZHOOK_HANDLE)
00066 !----------------------------------------------------------------------------
00067 END SUBROUTINE LATLONMASK