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_isba_options_n, ONLY : isba_options_t
!
  IMPLICIT NONE

!
  TYPE(isba_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
  crunoff_gr    = tgro%CRUNOFF
  cksat_gr      = tgro%CKSAT
  lsoc_gr       = tgro%LSOC
  chort_gr      = tgro%CHORT
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_isba_options_n, ONLY : isba_options_t
!
  IMPLICIT NONE

!
  TYPE(isba_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   = cscond_gr
  tgro%CRUNOFF   = crunoff_gr
  tgro%CKSAT    = cksat_gr
  tgro%LSOC     = lsoc_gr
  tgro%CHORT     = 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