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

Go to the documentation of this file.
00001 !     ######spl
00002       SUBROUTINE CONVERT_TEB(PCOVER,PTEB_PATCH)
00003 !     ##############################################################
00004 !
00005 !!**** *CONVERT_TEB* initialisation of TEB parameters valid for all patches
00006 !!
00007 !!    PURPOSE
00008 !!    -------
00009 !!
00010 !!    METHOD
00011 !!    ------
00012 !!   
00013 !
00014 !!    EXTERNAL
00015 !!    --------
00016 !!
00017 !!    IMPLICIT ARGUMENTS
00018 !!    ------------------
00019 !!
00020 !!    REFERENCE
00021 !!    ---------
00022 !!
00023 !!    AUTHOR
00024 !!    ------
00025 !!
00026 !!    V. Masson        Meteo-France
00027 !!
00028 !!    MODIFICATION
00029 !!    ------------
00030 !!
00031 !!    Original    11/11
00032 !!
00033 !----------------------------------------------------------------------------
00034 !
00035 !*    0.     DECLARATION
00036 !            -----------
00037 !
00038 USE MODD_SURF_PAR,       ONLY : XUNDEF
00039 !
00040 USE MODD_TEB_n, ONLY : NTEB_PATCH
00041 !
00042 USE MODI_INI_DATA_PARAM
00043 USE MODI_AV_PGD
00044 !
00045 USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
00046 USE PARKIND1  ,ONLY : JPRB
00047 !
00048 USE MODI_ABOR1_SFX
00049 !
00050 IMPLICIT NONE
00051 !
00052 !*    0.1    Declaration of arguments
00053 !            ------------------------
00054 !
00055 REAL, DIMENSION(:,:),   INTENT(IN)    :: PCOVER
00056 !
00057 REAL, DIMENSION(:,:), INTENT(OUT), OPTIONAL   :: PTEB_PATCH !  fraction of each TEB patch
00058 !
00059 !*    0.2    Declaration of local variables
00060 !            ------------------------------
00061 !
00062 INTEGER               :: JPATCH    ! loop counter on patch
00063 INTEGER               :: JCOVER    ! loop counter
00064 !
00065 !*    0.3    Declaration of namelists
00066 !            ------------------------
00067 !
00068 REAL(KIND=JPRB) :: ZHOOK_HANDLE
00069 !
00070 !-------------------------------------------------------------------------------
00071 !
00072 !*    1.      Initializations
00073 !             ---------------
00074 !
00075 IF (LHOOK) CALL DR_HOOK('CONVERT_TEB',0,ZHOOK_HANDLE)
00076 !
00077 !-------------------------------------------------------------------------------
00078 !
00079 !       GARDEN fraction
00080 !       ---------------
00081 IF (PRESENT(PTEB_PATCH)) THEN
00082   DO JPATCH=1,NTEB_PATCH
00083     PTEB_PATCH(:,JPATCH) = 1./FLOAT(NTEB_PATCH)
00084   END DO
00085 ENDIF
00086 !
00087 !
00088 IF (LHOOK) CALL DR_HOOK('CONVERT_TEB',1,ZHOOK_HANDLE)
00089 !
00090 !-------------------------------------------------------------------------------
00091 !
00092 END SUBROUTINE CONVERT_TEB