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

Go to the documentation of this file.
00001 !     ##################
00002       MODULE MODN_TEB_GREENROOF_n
00003 !     ##################
00004 !
00005 !!****  *MODN_TEB_GREENROOF_n* - declaration of namelist NAM_TEBn
00006 !!
00007 !!    PURPOSE
00008 !!    -------
00009 !       The purpose of this module is to specify the namelist NAM_TEB_GREENROOFn
00010 !
00011 !!
00012 !!**  IMPLICIT ARGUMENTS
00013 !!    ------------------
00014 !!
00015 !!    REFERENCE
00016 !!    ---------
00017 !!    Based on modn_tebn
00018 !!       
00019 !!    AUTHOR
00020 !!    ------
00021 !!      C. de Munck & A. Lemonsu    *Meteo France*
00022 !!
00023 !!    MODIFICATIONS
00024 !!    -------------
00025 !!      Original    07/2011                   
00026 !-------------------------------------------------------------------------------
00027 !
00028 !*       0.   DECLARATIONS
00029 !             ------------
00030 !
00031 USE MODD_TEB_GREENROOF_n, ONLY:                 &
00032            CRUNOFF_GR_n => CRUNOFF_GR,          &
00033            CSCOND_GR_n  => CSCOND_GR,           & 
00034            CKSAT_GR_n   => CKSAT_GR,            &
00035            CSOC_GR_n    => CSOC_GR,             &
00036            CHORT_GR_n   => CHORT_GR
00037 !
00038 USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
00039 USE PARKIND1  ,ONLY : JPRB
00040 !
00041 IMPLICIT NONE
00042 !
00043  CHARACTER(LEN=4)  :: CSCOND_GR
00044  CHARACTER(LEN=4)  :: CRUNOFF_GR
00045  CHARACTER(LEN=3)  :: CKSAT_GR
00046  CHARACTER(LEN=3)  :: CSOC_GR
00047  CHARACTER(LEN=3)  :: CHORT_GR         
00048 !
00049 NAMELIST/NAM_TEB_GREENROOFn/CRUNOFF_GR,CSCOND_GR,CKSAT_GR,CSOC_GR,CHORT_GR
00050 !
00051 CONTAINS
00052 !
00053 ! subroutine INIT !
00054 SUBROUTINE INIT_NAM_TEB_GREENROOFn
00055 
00056   REAL(KIND=JPRB) :: ZHOOK_HANDLE
00057 
00058   IF (LHOOK) CALL DR_HOOK('MODN_TEB_GREENROOF_N:INIT_NAM_TEB_GREENROOFN',0,ZHOOK_HANDLE)
00059   CSCOND_GR     = CSCOND_GR_n
00060   CRUNOFF_GR    = CRUNOFF_GR_n
00061   CKSAT_GR      = CKSAT_GR_n
00062   CSOC_GR       = CSOC_GR_n
00063   CHORT_GR      = CHORT_GR_n
00064 IF (LHOOK) CALL DR_HOOK('MODN_TEB_GREENROOF_N:INIT_NAM_TEB_GREENROOFN',1,ZHOOK_HANDLE)
00065 END SUBROUTINE INIT_NAM_TEB_GREENROOFn
00066 
00067 ! subroutine UPDATE !
00068 SUBROUTINE UPDATE_NAM_TEB_GREENROOFn
00069 
00070   REAL(KIND=JPRB) :: ZHOOK_HANDLE
00071 
00072   IF (LHOOK) CALL DR_HOOK('MODN_TEB_GREENROOF_N:UPDATE_NAM_TEB_GREENROOFN',0,ZHOOK_HANDLE)
00073   CSCOND_GR_n    = CSCOND_GR
00074   CRUNOFF_GR_n   = CRUNOFF_GR
00075   CKSAT_GR_n     = CKSAT_GR
00076   CSOC_GR_n      = CSOC_GR
00077   CHORT_GR_n     = CHORT_GR
00078 IF (LHOOK) CALL DR_HOOK('MODN_TEB_GREENROOF_N:UPDATE_NAM_TEB_GREENROOFN',1,ZHOOK_HANDLE)
00079 END SUBROUTINE UPDATE_NAM_TEB_GREENROOFn
00080 
00081 END MODULE MODN_TEB_GREENROOF_n