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

Go to the documentation of this file.
00001 !     #########
00002       SUBROUTINE CONVERT_COVER_FRAC   (PCOVER,                     &
00003                                          PSEA,PNATURE,PTOWN,PWATER   )  
00004 !     ##############################################################
00005 !
00006 !!**** *CONVERT_COVER* convert surface cover classes into secondary
00007 !!                     physiographic variables
00008 !!
00009 !!    PURPOSE
00010 !!    -------
00011 !!
00012 !!    METHOD
00013 !!    ------
00014 !!   
00015 !!    EXTERNAL
00016 !!    --------
00017 !!
00018 !!    IMPLICIT ARGUMENTS
00019 !!    ------------------
00020 !!
00021 !!    REFERENCE
00022 !!    ---------
00023 !!
00024 !!    AUTHOR
00025 !!    ------
00026 !!
00027 !!    V. Masson        Meteo-France
00028 !!
00029 !!    MODIFICATION
00030 !!    ------------
00031 !!
00032 !!    Original    01/2004
00033 !     
00034 !----------------------------------------------------------------------------
00035 !
00036 !*    0.     DECLARATION
00037 !            -----------
00038 !
00039 USE MODD_SURF_PAR,   ONLY : XUNDEF
00040 USE MODD_DATA_COVER,  ONLY : XDATA_SEA, XDATA_WATER
00041 USE MODD_DATA_COVER_n,ONLY : XDATA_NATURE, XDATA_TOWN
00042 !
00043 USE MODI_AV_PGD
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 REAL, DIMENSION(:,:), INTENT(IN)    :: PCOVER
00055 REAL, DIMENSION(:),   INTENT(OUT)   :: PSEA
00056 REAL, DIMENSION(:),   INTENT(OUT)   :: PNATURE
00057 REAL, DIMENSION(:),   INTENT(OUT)   :: PTOWN
00058 REAL, DIMENSION(:),   INTENT(OUT)   :: PWATER
00059 REAL(KIND=JPRB) :: ZHOOK_HANDLE
00060 !
00061 !
00062 !-------------------------------------------------------------------------------
00063 !
00064 !*    1.      cover main type fractions
00065 !             -------------------------
00066 !
00067 IF (LHOOK) CALL DR_HOOK('CONVERT_COVER_FRAC',0,ZHOOK_HANDLE)
00068  CALL AV_PGD (PSEA    ,PCOVER(:,:),XDATA_SEA    (:),'ALL','ARI')
00069  CALL AV_PGD (PTOWN   ,PCOVER(:,:),XDATA_TOWN   (:),'ALL','ARI')
00070  CALL AV_PGD (PNATURE ,PCOVER(:,:),XDATA_NATURE (:),'ALL','ARI')
00071  CALL AV_PGD (PWATER  ,PCOVER(:,:),XDATA_WATER  (:),'ALL','ARI')
00072 
00073 !
00074 WHERE (PSEA   (:) == XUNDEF) PSEA   (:) = 0.
00075 WHERE (PNATURE(:) == XUNDEF) PNATURE(:) = 0.
00076 WHERE (PTOWN  (:) == XUNDEF) PTOWN  (:) = 0.
00077 WHERE (PWATER (:) == XUNDEF) PWATER (:) = 0.
00078 IF (LHOOK) CALL DR_HOOK('CONVERT_COVER_FRAC',1,ZHOOK_HANDLE)
00079 !
00080 !-------------------------------------------------------------------------------
00081 !
00082 END SUBROUTINE CONVERT_COVER_FRAC