modn_teb_vegn.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_veg_n
!##################
!
!!****  *MODN_TEB_VEG_n* - declaration of namelist NAM_TEB_VEG_n
!!
!!    PURPOSE
!!    -------
!       The purpose of this module is to specify  the namelist NAM_TEB_VEG_n
!     which concern the surface configuration of one nested  model.
!
!!
!!**  IMPLICIT ARGUMENTS
!!    ------------------
!!
!!    REFERENCE
!!    ---------
!!
!!       
!!    AUTHOR
!!    ------
!!      V. Masson    *Meteo France*
!!
!!    MODIFICATIONS
!!    -------------
!!      Original    01/2004                    
!-------------------------------------------------------------------------------
!
!*       0.   DECLARATIONS
!             ------------
!
!
USE yomhook   ,ONLY : lhook,   dr_hook
USE parkind1  ,ONLY : jprb
!
IMPLICIT NONE
!
LOGICAL           :: lpertsurf
!
LOGICAL           :: lch_bio_flux
LOGICAL           :: lch_no_flux
LOGICAL           :: lglacier
LOGICAL           :: lvegupd
LOGICAL           :: lnitro_dilu
LOGICAL           :: lcanopy_drag
!
 CHARACTER(LEN=4)  :: cc1dry
 CHARACTER(LEN=4)  :: cscond
 CHARACTER(LEN=3)  :: csoilfrz
 CHARACTER(LEN=4)  :: cdifsfcond
 CHARACTER(LEN=3)  :: csnowres
 CHARACTER(LEN=3)  :: ccpsurf
 CHARACTER(LEN=4)  :: crunoff
 CHARACTER(LEN=3)  :: cksat
LOGICAL           :: lsoc
 CHARACTER(LEN=3)  :: crain
 CHARACTER(LEN=3)  :: chort         
 CHARACTER(LEN=28) :: cchem_surf_file
 CHARACTER(LEN=6)  :: cch_dry_dep
!
REAL              :: xcgmax
REAL              :: xtstep
REAL              :: xcdrag
!
NAMELIST/nam_isban/cc1dry,cscond,csoilfrz,cdifsfcond,csnowres,ccpsurf, &
                   xtstep,xcgmax,xcdrag,lglacier, lcanopy_drag, lvegupd, lpertsurf  
NAMELIST/nam_isba_agsn/lnitro_dilu
NAMELIST/nam_sgh_isban/crunoff,cksat,lsoc,crain,chort
NAMELIST/nam_ch_controln/cchem_surf_file
NAMELIST/nam_ch_isban/lch_bio_flux,cch_dry_dep,lch_no_flux
!
CONTAINS
!
SUBROUTINE init_nam_teb_vegn (TGDO)
!
  USE modd_isba_options_n, ONLY : isba_options_t
!
  IMPLICIT NONE

!
  TYPE(isba_options_t), INTENT(INOUT) :: TGDO
  REAL(KIND=JPRB) :: ZHOOK_HANDLE

  IF (lhook) CALL dr_hook('MODN_TEB_VEG_N:INIT_NAM_TEB_VEGN',0,zhook_handle)
  cc1dry       = tgdo%CC1DRY
  cscond       = tgdo%CSCOND
  csoilfrz     = tgdo%CSOILFRZ
  cdifsfcond   = tgdo%CDIFSFCOND
  csnowres     = tgdo%CSNOWRES
  ccpsurf      = tgdo%CCPSURF
  xtstep       = tgdo%XTSTEP
  xcgmax       = tgdo%XCGMAX
  xcdrag       = tgdo%XCDRAG
  lvegupd      = tgdo%LVEGUPD  
  lcanopy_drag = tgdo%LCANOPY_DRAG
IF (lhook) CALL dr_hook('MODN_TEB_VEG_N:INIT_NAM_TEB_VEGN',1,zhook_handle)
END SUBROUTINE init_nam_teb_vegn

SUBROUTINE init_nam_teb_veg_agsn (TGDO)
!
  USE modd_isba_options_n, ONLY : isba_options_t
!
  IMPLICIT NONE

!
  TYPE(isba_options_t), INTENT(INOUT) :: TGDO
  REAL(KIND=JPRB) :: ZHOOK_HANDLE

  IF (lhook) CALL dr_hook('MODN_TEB_VEG_N:INIT_NAM_TEB_VEG_AGSN',0,zhook_handle)
  lnitro_dilu = tgdo%LNITRO_DILU
IF (lhook) CALL dr_hook('MODN_TEB_VEG_N:INIT_NAM_TEB_VEG_AGSN',1,zhook_handle)
END SUBROUTINE init_nam_teb_veg_agsn

SUBROUTINE update_nam_teb_vegn (TGDO)
!
  USE modd_isba_options_n, ONLY : isba_options_t
!
  IMPLICIT NONE

!
  TYPE(isba_options_t), INTENT(INOUT) :: TGDO
  REAL(KIND=JPRB) :: ZHOOK_HANDLE

  IF (lhook) CALL dr_hook('MODN_TEB_VEG_N:UPDATE_NAM_TEB_VEGN',0,zhook_handle)
  tgdo%CC1DRY       = cc1dry
  tgdo%CSCOND       = cscond
  tgdo%CSOILFRZ     = csoilfrz
  tgdo%CDIFSFCOND   = cdifsfcond
  tgdo%CSNOWRES     = csnowres
  tgdo%CCPSURF      = ccpsurf
  tgdo%XTSTEP       = xtstep
  tgdo%XCGMAX       = xcgmax
  tgdo%XCDRAG       = xcdrag
  tgdo%LVEGUPD      = lvegupd
  tgdo%LCANOPY_DRAG = lcanopy_drag
IF (lhook) CALL dr_hook('MODN_TEB_VEG_N:UPDATE_NAM_TEB_VEGN',1,zhook_handle)
END SUBROUTINE update_nam_teb_vegn

SUBROUTINE update_nam_teb_veg_agsn (TGDO)
!
  USE modd_isba_options_n, ONLY : isba_options_t
!
  IMPLICIT NONE

!
  TYPE(isba_options_t), INTENT(INOUT) :: TGDO
  REAL(KIND=JPRB) :: ZHOOK_HANDLE

  IF (lhook) CALL dr_hook('MODN_TEB_VEG_N:UPDATE_NAM_TEB_VEG_AGSN',0,zhook_handle)
  tgdo%LNITRO_DILU = lnitro_dilu
IF (lhook) CALL dr_hook('MODN_TEB_VEG_N:UPDATE_NAM_TEB_VEG_AGSN',1,zhook_handle)
END SUBROUTINE update_nam_teb_veg_agsn


SUBROUTINE init_nam_sgh_teb_vegn (TGDO)
!
  USE modd_isba_options_n, ONLY : isba_options_t
!
  IMPLICIT NONE

!
  TYPE(isba_options_t), INTENT(INOUT) :: TGDO
  REAL(KIND=JPRB) :: ZHOOK_HANDLE

  IF (lhook) CALL dr_hook('MODN_TEB_TEB_VEG_N:INIT_NAM_SGH_TEB_VEGN',0,zhook_handle)
  crunoff = tgdo%CRUNOFF
  cksat   = tgdo%CKSAT
  lsoc    = tgdo%LSOC
  crain   = tgdo%CRAIN
  chort   = tgdo%CHORT
IF (lhook) CALL dr_hook('MODN_TEB_VEG_N:INIT_NAM_SGH_TEB_VEGN',1,zhook_handle)
END SUBROUTINE init_nam_sgh_teb_vegn

SUBROUTINE update_nam_sgh_teb_vegn (TGDO)
!
  USE modd_isba_options_n, ONLY : isba_options_t
!
  IMPLICIT NONE

!
  TYPE(isba_options_t), INTENT(INOUT) :: TGDO
  REAL(KIND=JPRB) :: ZHOOK_HANDLE

  IF (lhook) CALL dr_hook('MODN_TEB_VEG_N:UPDATE_NAM_SGH_TEB_VEGN',0,zhook_handle)
  tgdo%CRUNOFF  = crunoff
  tgdo%CKSAT    = cksat
  tgdo%LSOC     = lsoc
  tgdo%CRAIN    = crain
  tgdo%CHORT    = chort
IF (lhook) CALL dr_hook('MODN_TEB_VEG_N:UPDATE_NAM_SGH_TEB_VEGN',1,zhook_handle)
END SUBROUTINE update_nam_sgh_teb_vegn

SUBROUTINE init_nam_ch_controln (CHT)
!
  USE modd_ch_teb_n, ONLY : ch_teb_t
!
  IMPLICIT NONE

!
  TYPE(ch_teb_t), INTENT(INOUT) :: CHT
  REAL(KIND=JPRB) :: ZHOOK_HANDLE

  IF (lhook) CALL dr_hook('MODN_TEB_VEG_N:INIT_NAM_CH_CONTROLN',0,zhook_handle)
  cchem_surf_file = cht%CCHEM_SURF_FILE
IF (lhook) CALL dr_hook('MODN_TEB_VEG_N:INIT_NAM_CH_CONTROLN',1,zhook_handle)
END SUBROUTINE init_nam_ch_controln

SUBROUTINE update_nam_ch_controln (CHT)
!
  USE modd_ch_teb_n, ONLY : ch_teb_t
!
  IMPLICIT NONE

!
  TYPE(ch_teb_t), INTENT(INOUT) :: CHT
  REAL(KIND=JPRB) :: ZHOOK_HANDLE

  IF (lhook) CALL dr_hook('MODN_TEB_VEG_N:UPDATE_NAM_CH_CONTROLN',0,zhook_handle)
  cht%CCHEM_SURF_FILE = cchem_surf_file
IF (lhook) CALL dr_hook('MODN_TEB_VEG_N:UPDATE_NAM_CH_CONTROLN',1,zhook_handle)
END SUBROUTINE update_nam_ch_controln

SUBROUTINE init_nam_ch_teb_vegn (CHT)
!
  USE modd_ch_teb_n, ONLY : ch_teb_t
!
  IMPLICIT NONE

!
  TYPE(ch_teb_t), INTENT(INOUT) :: CHT
  REAL(KIND=JPRB) :: ZHOOK_HANDLE

  IF (lhook) CALL dr_hook('MODN_TEB_VEG_N:INIT_NAM_CH_TEB_VEGN',0,zhook_handle)
  lch_bio_flux = cht%LCH_BIO_FLUX
  lch_no_flux  = cht%LCH_NO_FLUX
IF (lhook) CALL dr_hook('MODN_TEB_VEG_N:INIT_NAM_CH_TEB_VEGN',1,zhook_handle)
END SUBROUTINE init_nam_ch_teb_vegn

SUBROUTINE update_nam_ch_teb_vegn (CHT)
!
  USE modd_ch_teb_n, ONLY : ch_teb_t
!
  IMPLICIT NONE

!
  TYPE(ch_teb_t), INTENT(INOUT) :: CHT
  REAL(KIND=JPRB) :: ZHOOK_HANDLE

  IF (lhook) CALL dr_hook('MODN_TEB_VEG_N:UPDATE_NAM_CH_TEB_VEGN',0,zhook_handle)
  cht%LCH_BIO_FLUX = lch_bio_flux
  cht%LCH_NO_FLUX  = lch_no_flux
  IF (lhook) CALL dr_hook('MODN_TEB_VEG_N:UPDATE_NAM_CH_TEB_VEGN',1,zhook_handle)
END SUBROUTINE update_nam_ch_teb_vegn

END MODULE modn_teb_veg_n