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

Go to the documentation of this file.
00001 !     #########
00002       SUBROUTINE PT_BY_PT_TREATMENT(KLUOUT,PLAT,PLON,PVALUE,HSUBROUTINE)
00003 !     ###################################################################
00004 !
00005 !!**** *PT_BY_PT_TREATMENT* 
00006 !!
00007 !!    PURPOSE
00008 !!    -------
00009 !!
00010 !!    METHOD
00011 !!    ------
00012 !!   
00013 !!    EXTERNAL
00014 !!    --------
00015 !!
00016 !!    IMPLICIT ARGUMENTS
00017 !!    ------------------
00018 !!
00019 !!    REFERENCE
00020 !!    ---------
00021 !!
00022 !!    AUTHOR
00023 !!    ------
00024 !!
00025 !!    V. Masson          Meteo-France
00026 !!
00027 !!    MODIFICATION
00028 !!    ------------
00029 !!
00030 !!    Original    12/09/95
00031 !!                27/03/96 (V. Masson) modify the arguments for the call of 
00032 !!                         interpolation subroutine
00033 !!                06/2009 (B. Decharme) call Topographic index statistics calculation
00034 !----------------------------------------------------------------------------
00035 !
00036 !*    0.     DECLARATION
00037 !            -----------
00038 !
00039 USE MODI_AVERAGE1_COVER
00040 USE MODI_AVERAGE1_OROGRAPHY
00041 USE MODI_AVERAGE1_CTI
00042 USE MODI_AVERAGE1_LDB
00043 USE MODI_AVERAGE1_MESH
00044 !
00045 !
00046 USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
00047 USE PARKIND1  ,ONLY : JPRB
00048 !
00049 IMPLICIT NONE
00050 !
00051 !*    0.1    Declaration of arguments
00052 !            ------------------------
00053 !
00054 INTEGER,           INTENT(IN) :: KLUOUT
00055 REAL,DIMENSION(:), INTENT(IN) :: PLAT
00056 REAL,DIMENSION(:), INTENT(IN) :: PLON
00057 REAL,DIMENSION(:), INTENT(IN) :: PVALUE
00058  CHARACTER(LEN=6), INTENT(IN)  :: HSUBROUTINE   ! Name of the subroutine to call
00059 REAL(KIND=JPRB) :: ZHOOK_HANDLE
00060 !
00061 !
00062 !*    0.2    Declaration of local variables
00063 !            ------------------------------
00064 !
00065 !----------------------------------------------------------------------------
00066 !
00067       IF (LHOOK) CALL DR_HOOK('PT_BY_PT_TREATMENT',0,ZHOOK_HANDLE)
00068       SELECT CASE (HSUBROUTINE)
00069 
00070       CASE ('A_COVR')
00071       CALL AVERAGE1_COVER(KLUOUT,PLAT,PLON,PVALUE)
00072 
00073       CASE ('A_OROG')
00074       CALL AVERAGE1_OROGRAPHY(KLUOUT,PLAT,PLON,PVALUE)
00075 
00076       CASE ('A_CTI ')
00077       CALL AVERAGE1_CTI(KLUOUT,PLAT,PLON,PVALUE)
00078 
00079       CASE ('A_LDBD')
00080       CALL AVERAGE1_LDB(KLUOUT,PLAT,PLON,PVALUE,'D')
00081 
00082       CASE ('A_LDBS')
00083       CALL AVERAGE1_LDB(KLUOUT,PLAT,PLON,PVALUE,'S')
00084       
00085       CASE ('A_MESH')
00086       CALL AVERAGE1_MESH(KLUOUT,PLAT,PLON,PVALUE)
00087 
00088       END SELECT
00089 IF (LHOOK) CALL DR_HOOK('PT_BY_PT_TREATMENT',1,ZHOOK_HANDLE)
00090 !
00091 !-------------------------------------------------------------------------------
00092 !
00093 END SUBROUTINE PT_BY_PT_TREATMENT