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

Go to the documentation of this file.
00001 !     #########
00002       SUBROUTINE PGD_TEB_GREENROOF(HPROGRAM)
00003 !     ##############################################################
00004 !
00005 !!**** *PGD_TEB_GREENROOF* monitor for averaging and interpolations of TEB GR physiographic fields
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 !!    C.de Munck & A. Lemonsu        Meteo-France
00027 !!
00028 !!    MODIFICATION
00029 !!    ------------
00030 !!
00031 !!    Original    07/2011
00032 !!
00033 !----------------------------------------------------------------------------
00034 !
00035 !*    0.     DECLARATION
00036 !            -----------
00037 !
00038 USE MODD_PGD_GRID,             ONLY : NL
00039 USE MODD_DATA_COVER_PAR,       ONLY : NVEGTYPE
00040 USE MODD_TEB_n,                ONLY : LECOCLIMAP, XCOVER, LCOVER, XZS
00041 USE MODD_TEB_GRID_n,           ONLY : NDIM
00042 USE MODD_TEB_VEG_n,            ONLY : CPEDOTF, CPHOTO, NNBIOMASS
00043 USE MODD_TEB_GREENROOF_n,      ONLY : LTR_ML_GR, NLAYER_GR, NTIME_GR, CISBA_GR, &
00044                                       CSCOND_GR, CHORT_GR, CKSAT_GR, CSOC_GR, &
00045                                       XRUNOFFB_GR, XWDRAIN_GR 
00046 !
00047 USE MODI_PGD_TEB_GREENROOF_PAR
00048 !
00049 USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
00050 USE PARKIND1  ,ONLY : JPRB
00051 !
00052 USE MODI_ABOR1_SFX
00053 !
00054 IMPLICIT NONE
00055 !
00056 !*    0.1    Declaration of arguments
00057 !            ------------------------
00058 !
00059  CHARACTER(LEN=6), INTENT(IN)  :: HPROGRAM   ! Type of program
00060 !                                           ! F if all parameters must be specified
00061 !
00062 !
00063 !*    0.2    Declaration of local variables
00064 !            ------------------------------
00065 !
00066 !*    0.3    Declaration of namelists
00067 !            ------------------------
00068 !
00069 REAL(KIND=JPRB)          :: ZHOOK_HANDLE
00070 !
00071 !-------------------------------------------------------------------------------
00072 !
00073 IF (LHOOK) CALL DR_HOOK('PGD_TEB_GREENROOF',0,ZHOOK_HANDLE)
00074 !
00075 !-------------------------------------------------------------------------------
00076 !
00077 !*    1.      ISBA specific fields for green roofs
00078 !             ------------------------------------
00079 !
00080 ! for green roofs, CISBA = DIF / CSCOND = 'DEF '
00081 CISBA_GR  = 'DIF'
00082 CSCOND_GR = 'PL98 ' ! CSCOND_GR = 'PL98' !begin test 29092011 ! normalement pas besoin
00083 CHORT_GR  = 'DEF '
00084 CKSAT_GR  = 'DEF '
00085 CSOC_GR   = 'DEF '
00086 LTR_ML_GR = .FALSE.
00087 !
00088 ALLOCATE(XRUNOFFB_GR(NDIM))
00089 ALLOCATE(XWDRAIN_GR (NDIM))
00090 !
00091 XRUNOFFB_GR(:) = 0.5 
00092 XWDRAIN_GR (:) = 0.0
00093 !
00094 NTIME_GR = 12
00095  CALL PGD_TEB_GREENROOF_PAR(HPROGRAM)
00096 !
00097 !
00098 IF (LHOOK) CALL DR_HOOK('PGD_TEB_GREENROOF',1,ZHOOK_HANDLE)
00099 !
00100 !
00101 !-------------------------------------------------------------------------------
00102 !
00103 !
00104 END SUBROUTINE PGD_TEB_GREENROOF