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

Go to the documentation of this file.
00001 !     #########
00002       SUBROUTINE CONVERT_COVER_CH_ISBA   (PCOVER,PSOILRC_SO2,PSOILRC_O3)
00003 !     ##############################################################
00004 !
00005 !!**** *CONVERT_COVER* convert surface cover classes into secondary 
00006 !!                     physiographic variables for ISBA
00007 !!
00008 !!    PURPOSE
00009 !!    -------
00010 !!
00011 !!    METHOD
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   01/2004
00032 !     
00033 !
00034 !----------------------------------------------------------------------------
00035 !
00036 !*    0.     DECLARATION
00037 !            -----------
00038 !
00039 USE MODD_DATA_COVER,     ONLY : XDATA_SOILRC_SO2, XDATA_SOILRC_O3
00040 
00041 USE MODD_DATA_COVER_PAR, ONLY : NVEGTYPE, JPCOVER
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 
00056 REAL, DIMENSION(:,:),   INTENT(OUT)   :: PSOILRC_SO2
00057 REAL, DIMENSION(:,:),   INTENT(OUT)   :: PSOILRC_O3
00058 REAL(KIND=JPRB) :: ZHOOK_HANDLE
00059 !
00060 !
00061 !*    0.2    Declaration of local variables
00062 !            ------------------------------
00063 !
00064 !-------------------------------------------------------------------------------
00065 !
00066 IF (LHOOK) CALL DR_HOOK('CONVERT_COVER_CH_ISBA',0,ZHOOK_HANDLE)
00067  CALL AV_PGD (PSOILRC_SO2 ,PCOVER ,XDATA_SOILRC_SO2 (:,:) ,'NAT','ARI')
00068  CALL AV_PGD (PSOILRC_O3  ,PCOVER ,XDATA_SOILRC_O3  (:,:) ,'NAT','ARI')
00069 IF (LHOOK) CALL DR_HOOK('CONVERT_COVER_CH_ISBA',1,ZHOOK_HANDLE)
00070 !
00071 !-------------------------------------------------------------------------------
00072 !
00073 END SUBROUTINE CONVERT_COVER_CH_ISBA