modn_teb_greenroofn.F90

Go to the documentation of this file.

!SFX_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier
!SFX_LIC This is part of the SURFEX software governed by the CeCILL-C licence
!SFX_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt  
!SFX_LIC for details. version 1.
!     ##################
      MODULE modn_teb_greenroof_n
!     ##################
!
!!****  *MODN_TEB_GREENROOF_n* - declaration of namelist NAM_TEBn
!!
!!    PURPOSE
!!    -------
!       The purpose of this module is to specify the namelist NAM_TEB_GREENROOFn
!
!!
!!**  IMPLICIT ARGUMENTS
!!    ------------------
!!
!!    REFERENCE
!!    ---------
!!    Based on modn_tebn
!!       
!!    AUTHOR
!!    ------
!!      C. de Munck & A. Lemonsu    *Meteo France*
!!
!!    MODIFICATIONS
!!    -------------
!!      Original    07/2011                   
!-------------------------------------------------------------------------------
!
!*       0.   DECLARATIONS
!             ------------
!
!
USE yomhook   ,ONLY : lhook,   dr_hook
USE parkind1  ,ONLY : jprb
!
IMPLICIT NONE
!
 CHARACTER(LEN=4)  :: CSCOND_GR
 CHARACTER(LEN=4)  :: CRUNOFF_GR
 CHARACTER(LEN=3)  :: CKSAT_GR
LOGICAL           :: LSOC_GR
 CHARACTER(LEN=3)  :: CHORT_GR         
!
namelist/nam_teb_greenroofn/crunoff_gr,cscond_gr,cksat_gr,lsoc_gr,chort_gr
!
 CONTAINS
!
! subroutine INIT !
SUBROUTINE init_nam_teb_greenroofn (TGRO)
!
  USE modd_teb_greenroof_option_n, ONLY : teb_greenroof_options_t
!
  IMPLICIT NONE

!
  TYPE(teb_greenroof_options_t), INTENT(INOUT) :: tgro
  REAL(KIND=JPRB) :: zhook_handle

  IF (lhook) CALL dr_hook('MODN_TEB_GREENROOF_N:INIT_NAM_TEB_GREENROOFN',0,zhook_handle)
  cscond_gr     = tgro%CSCOND_GR
  crunoff_gr    = tgro%CRUNOFF_GR
  cksat_gr      = tgro%CKSAT_GR
  lsoc_gr       = tgro%LSOC_GR
  chort_gr      = tgro%CHORT_GR
IF (lhook) CALL dr_hook('MODN_TEB_GREENROOF_N:INIT_NAM_TEB_GREENROOFN',1,zhook_handle)
END SUBROUTINE init_nam_teb_greenroofn

! subroutine UPDATE !
SUBROUTINE update_nam_teb_greenroofn (TGRO)
!
  USE modd_teb_greenroof_option_n, ONLY : teb_greenroof_options_t
!
  IMPLICIT NONE

!
  TYPE(teb_greenroof_options_t), INTENT(INOUT) :: tgro
  REAL(KIND=JPRB) :: zhook_handle

  IF (lhook) CALL dr_hook('MODN_TEB_GREENROOF_N:UPDATE_NAM_TEB_GREENROOFN',0,zhook_handle)
  tgro%CSCOND_GR    = cscond_gr
  tgro%CRUNOFF_GR   = crunoff_gr
  tgro%CKSAT_GR     = cksat_gr
  tgro%LSOC_GR      = lsoc_gr
  tgro%CHORT_GR     = chort_gr
IF (lhook) CALL dr_hook('MODN_TEB_GREENROOF_N:UPDATE_NAM_TEB_GREENROOFN',1,zhook_handle)
END SUBROUTINE update_nam_teb_greenroofn

END MODULE modn_teb_greenroof_n