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

Go to the documentation of this file.
00001 !     #########
00002       SUBROUTINE GET_LATLONMASK_n(OLATLONMASK,HGRID,PGRID_PAR,KGRID_PAR)
00003 !     #######################################################
00004 !
00005 !!**** *GET_LATLONMASK_n* get the grid dimensions
00006 !!
00007 !!    PURPOSE
00008 !!    -------
00009 !!
00010 !!    METHOD
00011 !!    ------
00012 !!   
00013 !!    REFERENCE
00014 !!    ---------
00015 !!
00016 !!    AUTHOR
00017 !!    ------
00018 !!
00019 !!    P. Le Moigne         Meteo-France
00020 !!
00021 !!    MODIFICATION
00022 !!    ------------
00023 !!
00024 !!    Original    03/2007
00025 !!
00026 !----------------------------------------------------------------------------
00027 !
00028 !*    0.     DECLARATION
00029 !            -----------
00030 !
00031 USE MODD_SURF_ATM_GRID_n, ONLY : CGRID, XGRID_PAR, NGRID_PAR
00032 !      
00033 USE MODI_LATLONMASK
00034 !
00035 !
00036 USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
00037 USE PARKIND1  ,ONLY : JPRB
00038 !
00039 IMPLICIT NONE
00040 !
00041 !*    0.1    Declaration of arguments
00042 !            ------------------------
00043  CHARACTER(LEN=10), INTENT(OUT)             ::  HGRID      
00044 REAL, DIMENSION(:), POINTER                ::  PGRID_PAR      
00045 INTEGER, INTENT(OUT)                       ::  KGRID_PAR      
00046 LOGICAL, DIMENSION(:,:), INTENT(OUT)       ::  OLATLONMASK
00047 REAL(KIND=JPRB) :: ZHOOK_HANDLE
00048 !
00049 !
00050 !*    0.2    Declaration of other local variables
00051 !            ------------------------------------
00052 !
00053 !----------------------------------------------------------------------------
00054 !
00055 !
00056 IF (LHOOK) CALL DR_HOOK('GET_LATLONMASK_N',0,ZHOOK_HANDLE)
00057 NGRID_PAR=SIZE(XGRID_PAR)
00058 
00059  CALL LATLONMASK(CGRID,NGRID_PAR,XGRID_PAR,OLATLONMASK)
00060 !
00061 HGRID=CGRID
00062 !
00063 KGRID_PAR=NGRID_PAR
00064 !
00065 ALLOCATE(PGRID_PAR(KGRID_PAR))
00066 !
00067 PGRID_PAR(:)=XGRID_PAR(:)
00068 IF (LHOOK) CALL DR_HOOK('GET_LATLONMASK_N',1,ZHOOK_HANDLE)
00069 !
00070 !-------------------------------------------------------------------------------
00071 !
00072 END SUBROUTINE GET_LATLONMASK_n