SURFEX v7.3: /home/dasprezs/EXPORT_v7_3/src/LIB/TRIP/get_trip

Go to the documentation of this file.
00001 !     #########
00002       SUBROUTINE GET_TRIP_SIZE_n(KX,KY)
00003 !     #####################################################
00004 !
00005 !!****  *GET_TRIP_SIZE_n* - routine to get X/Y size
00006 !!
00007 !!    PURPOSE
00008 !!    -------
00009 !!
00010 !!**  METHOD
00011 !!    -------
00012 !!
00013 !!    REFERENCE
00014 !!    ---------
00015 !!
00016 !!
00017 !!    AUTHOR
00018 !!    ------
00019 !!      B. Decharme    *Meteo France*   
00020 !!
00021 !!    MODIFICATIONS
00022 !!    -------------
00023 !!      Original    05/2008
00024 !-------------------------------------------------------------------------------
00025 !
00026 !*       0.    DECLARATIONS
00027 !              ------------
00028 !
00029 USE MODD_TRIP_GRID_n, ONLY : XAREA
00030 !
00031 !
00032 USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
00033 USE PARKIND1  ,ONLY : JPRB
00034 !
00035 IMPLICIT NONE
00036 !
00037 !*       0.1   Declarations of arguments
00038 !              -------------------------
00039 !
00040 !
00041 INTEGER,           INTENT(OUT)   :: KX       ! number of X points of this surface type
00042 INTEGER,           INTENT(OUT)   :: KY       ! number of Y points of this surface type
00043 REAL(KIND=JPRB) :: ZHOOK_HANDLE
00044 !
00045 !*       0.2   Declarations of local variables
00046 !              -------------------------------
00047 !
00048 !-------------------------------------------------------------------------------
00049 !
00050 IF (LHOOK) CALL DR_HOOK('GET_TRIP_SIZE_N',0,ZHOOK_HANDLE)
00051 KX = SIZE(XAREA,1)
00052 KY = SIZE(XAREA,2)
00053 IF (LHOOK) CALL DR_HOOK('GET_TRIP_SIZE_N',1,ZHOOK_HANDLE)
00054 !
00055 !-------------------------------------------------------------------------------
00056 !
00057 END SUBROUTINE GET_TRIP_SIZE_n