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=4)  :: CALBEDO
 CHARACTER(LEN=4)  :: CROUGH
 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,calbedo,crough,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 (TVG)
!
  USE modd_teb_veg_n, ONLY : teb_veg_options_t
!
  IMPLICIT NONE

!
  TYPE(teb_veg_options_t), INTENT(INOUT) :: tvg
  REAL(KIND=JPRB) :: zhook_handle

  IF (lhook) CALL dr_hook('MODN_TEB_VEG_N:INIT_NAM_TEB_VEGN',0,zhook_handle)
  cc1dry       = tvg%CC1DRY
  cscond       = tvg%CSCOND
  csoilfrz     = tvg%CSOILFRZ
  cdifsfcond   = tvg%CDIFSFCOND
  csnowres     = tvg%CSNOWRES
  calbedo      = tvg%CALBEDO
  crough       = tvg%CROUGH
  ccpsurf      = tvg%CCPSURF
  xtstep       = tvg%XTSTEP
  xcgmax       = tvg%XCGMAX
  xcdrag       = tvg%XCDRAG
  lvegupd      = tvg%LVEGUPD  
  lcanopy_drag = tvg%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 (TVG)
!
  USE modd_teb_veg_n, ONLY : teb_veg_options_t
!
  IMPLICIT NONE

!
  TYPE(teb_veg_options_t), INTENT(INOUT) :: tvg
  REAL(KIND=JPRB) :: zhook_handle

  IF (lhook) CALL dr_hook('MODN_TEB_VEG_N:INIT_NAM_TEB_VEG_AGSN',0,zhook_handle)
  lnitro_dilu = tvg%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 (TVG)
!
  USE modd_teb_veg_n, ONLY : teb_veg_options_t
!
  IMPLICIT NONE

!
  TYPE(teb_veg_options_t), INTENT(INOUT) :: tvg
  REAL(KIND=JPRB) :: zhook_handle

  IF (lhook) CALL dr_hook('MODN_TEB_VEG_N:UPDATE_NAM_TEB_VEGN',0,zhook_handle)
  tvg%CC1DRY       = cc1dry
  tvg%CSCOND       = cscond
  tvg%CSOILFRZ     = csoilfrz
  tvg%CDIFSFCOND   = cdifsfcond
  tvg%CSNOWRES     = csnowres
  tvg%CALBEDO      = calbedo
  tvg%CROUGH       = crough
  tvg%CCPSURF      = ccpsurf
  tvg%XTSTEP       = xtstep
  tvg%XCGMAX       = xcgmax
  tvg%XCDRAG       = xcdrag
  tvg%LVEGUPD      = lvegupd
  tvg%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 (TVG)
!
  USE modd_teb_veg_n, ONLY : teb_veg_options_t
!
  IMPLICIT NONE

!
  TYPE(teb_veg_options_t), INTENT(INOUT) :: tvg
  REAL(KIND=JPRB) :: zhook_handle

  IF (lhook) CALL dr_hook('MODN_TEB_VEG_N:UPDATE_NAM_TEB_VEG_AGSN',0,zhook_handle)
  tvg%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 (TVG)
!
  USE modd_teb_veg_n, ONLY : teb_veg_options_t
!
  IMPLICIT NONE

!
  TYPE(teb_veg_options_t), INTENT(INOUT) :: tvg
  REAL(KIND=JPRB) :: zhook_handle

  IF (lhook) CALL dr_hook('MODN_TEB_TEB_VEG_N:INIT_NAM_SGH_TEB_VEGN',0,zhook_handle)
  crunoff = tvg%CRUNOFF
  cksat   = tvg%CKSAT
  lsoc    = tvg%LSOC
  crain   = tvg%CRAIN
  chort   = tvg%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 (TVG)
!
  USE modd_teb_veg_n, ONLY : teb_veg_options_t
!
  IMPLICIT NONE

!
  TYPE(teb_veg_options_t), INTENT(INOUT) :: tvg
  REAL(KIND=JPRB) :: zhook_handle

  IF (lhook) CALL dr_hook('MODN_TEB_VEG_N:UPDATE_NAM_SGH_TEB_VEGN',0,zhook_handle)
  tvg%CRUNOFF  = crunoff
  tvg%CKSAT    = cksat
  tvg%LSOC     = lsoc
  tvg%CRAIN    = crain
  tvg%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