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

Go to the documentation of this file.
00001 !     #########
00002       SUBROUTINE GET_INTERP_HALO(HPROGRAM,HGRID,KHALO)
00003 !     #######################################################
00004 !
00005 !
00006 !!****  *GET_INTERP_HALO* - gets the value of the number of points in the halo 
00007 !!
00008 !!    PURPOSE
00009 !!    -------
00010 !!
00011 !!**  METHOD
00012 !!    ------
00013 !!
00014 !!    EXTERNAL
00015 !!    --------
00016 !!
00017 !!
00018 !!    IMPLICIT ARGUMENTS
00019 !!    ------------------
00020 !!
00021 !!    REFERENCE
00022 !!    ---------
00023 !!
00024 !!
00025 !!    AUTHOR
00026 !!    ------
00027 !!      V. Masson    *Meteo France*     
00028 !!
00029 !!    MODIFICATIONS
00030 !!    -------------
00031 !!      Original    07/2011 
00032 !-------------------------------------------------------------------------------
00033 !
00034 !*       0.    DECLARATIONS
00035 !              ------------
00036 !
00037 #ifdef OL
00038 USE MODI_GET_INTERP_HALO_OL
00039 #endif
00040 #ifdef MNH
00041 USE MODI_GET_INTERP_HALO_MNH
00042 #endif
00043 !
00044 USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
00045 USE PARKIND1  ,ONLY : JPRB
00046 !
00047 IMPLICIT NONE
00048 !
00049 !*       0.1   Declarations of arguments
00050 !              -------------------------
00051 !
00052  CHARACTER(LEN=6),      INTENT(IN) :: HPROGRAM ! program calling SURFEX
00053  CHARACTER(LEN=10),     INTENT(IN) :: HGRID    ! grid type
00054 INTEGER,               INTENT(OUT):: KHALO
00055 !
00056 !*       0.2   Declarations of local variables
00057 !              -------------------------------
00058 !
00059 REAL(KIND=JPRB) :: ZHOOK_HANDLE
00060 !
00061 !-------------------------------------------------------------------------------
00062 !
00063 IF (LHOOK) CALL DR_HOOK('GET_INTERP_HALO',0,ZHOOK_HANDLE)
00064 !
00065 IF (HPROGRAM=='MESONH') THEN
00066 #ifdef MNH
00067   CALL GET_INTERP_HALO_MNH(KHALO)
00068 #endif
00069 ELSE
00070 #ifdef OL
00071   ! to be coded properly once Offline version is parallelized
00072   CALL GET_INTERP_HALO_OL(HGRID,KHALO)
00073 #endif
00074 END IF
00075 !
00076 IF (LHOOK) CALL DR_HOOK('GET_INTERP_HALO',1,ZHOOK_HANDLE)
00077 !
00078 !-------------------------------------------------------------------------------
00079 !
00080 END SUBROUTINE GET_INTERP_HALO