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

Go to the documentation of this file.
00001 !     #########
00002       SUBROUTINE UPDATE_DATA_COVER(KYEAR)
00003 !     #########################
00004 !
00005 !!**** *INI_DATA_COVER* initializes cover-field correspondance arrays
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    09/2008
00032 !----------------------------------------------------------------------------
00033 !
00034 !*    0.     DECLARATION
00035 !            -----------
00036 !
00037 USE MODD_DATA_COVER,     ONLY : NYEAR, XDATA_NATURE, XDATA_GARDEN,                  &
00038                                   XDATA_LAI, XDATA_VEGTYPE, XDATA_H_TREE,           &
00039                                   XDATA_VEG, XDATA_GREEN, XDATA_Z0, XDATA_EMIS_ECO
00040 !
00041 USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
00042 USE PARKIND1  ,ONLY : JPRB
00043 !
00044 USE MODI_ECOCLIMAP2_LAI
00045 !
00046 USE MODI_INI_DATA_PARAM
00047 !
00048 IMPLICIT NONE
00049 !
00050 !*    0.1    Declaration of arguments
00051 !            ------------------------
00052 !
00053 INTEGER,             INTENT(IN)    :: KYEAR        ! new year
00054 REAL(KIND=JPRB) :: ZHOOK_HANDLE
00055 !
00056 !
00057 !*    0.2    Declaration of local variables
00058 !            ------------------------------
00059 !
00060 !
00061 !*    0.3    Declaration of namelists
00062 !            ------------------------
00063 !
00064 !-------------------------------------------------------------------------------
00065 IF (LHOOK) CALL DR_HOOK('UPDATE_DATA_COVER',0,ZHOOK_HANDLE)
00066 !$OMP SINGLE
00067 IF (KYEAR /= NYEAR) THEN        
00068   NYEAR = KYEAR
00069   CALL ECOCLIMAP2_LAI
00070   CALL INI_DATA_PARAM(XDATA_VEGTYPE, PSURF=XDATA_NATURE, PSURF2=XDATA_GARDEN, &
00071              PLAI=XDATA_LAI, PH_TREE=XDATA_H_TREE, PVEG_OUT=XDATA_VEG, &
00072              PGREEN=XDATA_GREEN, PZ0=XDATA_Z0, PEMIS_ECO=XDATA_EMIS_ECO)            
00073 END IF
00074 !$OMP END SINGLE
00075 IF (LHOOK) CALL DR_HOOK('UPDATE_DATA_COVER',1,ZHOOK_HANDLE)
00076 !-------------------------------------------------------------------------------
00077 
00078 END SUBROUTINE UPDATE_DATA_COVER