modn_tebn.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_n
!     ##################
!
!!****  *MODN_TEB_n* - declaration of namelist NAM_TEBn
!!
!!    PURPOSE
!!    -------
!       The purpose of this module is to specify  the namelist NAM_TEBn
!
!!
!!**  IMPLICIT ARGUMENTS
!!    ------------------
!!
!!    REFERENCE
!!    ---------
!!
!!       
!!    AUTHOR
!!    ------
!!      V. Masson    *Meteo France*
!!
!!    MODIFICATIONS
!!    -------------
!!      Original    01/2004                   
!!      Modified    10/2004 by P. Le Moigne: miscellaneous switch
!!      Modified    07/2007 by P. Le Moigne: minimum wind speed and/or shear
!!      Modified    08/2009 by B. Decharme : LSURF_BUDGETC for all tiles
!!      Modified    08/2012 by G. Pigeon : CH_BEM for conv. coef option
!-------------------------------------------------------------------------------
!
!*       0.   DECLARATIONS
!             ------------
!
!
!
USE yomhook   ,ONLY : lhook,   dr_hook
USE parkind1  ,ONLY : jprb
!
IMPLICIT NONE
!
LOGICAL           :: LPGD
LOGICAL           :: LPGD_FIX
LOGICAL           :: L2M_MIN_ZS         
LOGICAL           :: LSURF_BUDGET
LOGICAL           :: LRAD_BUDGET
LOGICAL           :: LCOEF
LOGICAL           :: LSURF_VARS
LOGICAL           :: LSURF_MISC_BUDGET
LOGICAL           :: LSURF_DIAG_ALBEDO
LOGICAL           :: LUTCI
LOGICAL           :: LSURF_BUDGETC
LOGICAL           :: LRESET_BUDGETC
!
 CHARACTER(LEN=6)  :: CCH_DRY_DEP
 CHARACTER(LEN=6)  :: CZ0H
 CHARACTER(LEN=5)  :: CCH_BEM
REAL              :: XDT_RES
REAL              :: XDT_OFF
!
REAL              :: XTSTEP
REAL              :: XOUT_TSTEP
REAL              :: XDIAG_TSTEP
!
INTEGER           :: N2M
!
namelist/nam_diag_surfn/n2m,l2m_min_zs,lsurf_budget,lrad_budget, &
                        lcoef,lsurf_vars, lsurf_budgetc, lreset_budgetc
!
namelist/nam_ch_tebn/cch_dry_dep
namelist/nam_diag_tebn/lpgd,lpgd_fix,lsurf_misc_budget,lsurf_diag_albedo,lutci
namelist/nam_tebn/cz0h,cch_bem,xdt_res,xdt_off
!
 CONTAINS
!
SUBROUTINE init_nam_diag_surfn (DGT, TOP)
!
  USE modd_diag_teb_n, ONLY : diag_teb_t
  USE modd_teb_option_n, ONLY : teb_options_t
!
  IMPLICIT NONE

!
  TYPE(diag_teb_t), INTENT(INOUT) :: dgt
  TYPE(teb_options_t), INTENT(INOUT) :: top
  REAL(KIND=JPRB) :: zhook_handle

  IF (lhook) CALL dr_hook('MODN_TEB_N:INIT_NAM_DIAG_SURFN',0,zhook_handle)
  xtstep = top%XTSTEP
  xout_tstep = top%XOUT_TSTEP  
  xdiag_tstep = dgt%XDIAG_TSTEP  
  n2m = dgt%N2M
  l2m_min_zs = dgt%L2M_MIN_ZS
  lsurf_budget = dgt%LSURF_BUDGET
  lrad_budget = dgt%LRAD_BUDGET
  lcoef = dgt%LCOEF
  lsurf_vars = dgt%LSURF_VARS
IF (lhook) CALL dr_hook('MODN_TEB_N:INIT_NAM_DIAG_SURFN',1,zhook_handle)
END SUBROUTINE init_nam_diag_surfn

SUBROUTINE update_nam_diag_surfn (DGT)
!
  USE modd_diag_teb_n, ONLY : diag_teb_t
!
  IMPLICIT NONE

!
  TYPE(diag_teb_t), INTENT(INOUT) :: dgt
  REAL(KIND=JPRB) :: zhook_handle

  IF (lhook) CALL dr_hook('MODN_TEB_N:UPDATE_NAM_DIAG_SURFN',0,zhook_handle)
  dgt%XDIAG_TSTEP = xdiag_tstep  
  dgt%N2M = n2m
  dgt%L2M_MIN_ZS = l2m_min_zs
  dgt%LSURF_BUDGET = lsurf_budget
  dgt%LRAD_BUDGET = lrad_budget 
  dgt%LCOEF = lcoef
  dgt%LSURF_VARS = lsurf_vars
IF (lhook) CALL dr_hook('MODN_TEB_N:UPDATE_NAM_DIAG_SURFN',1,zhook_handle)
END SUBROUTINE update_nam_diag_surfn
!
SUBROUTINE init_nam_tebn (T, TOP)
!
  USE modd_teb_n, ONLY : teb_t
  USE modd_teb_option_n, ONLY : teb_options_t
!
  IMPLICIT NONE

!
  TYPE(teb_t), INTENT(INOUT) :: t
  TYPE(teb_options_t), INTENT(INOUT) :: top
  REAL(KIND=JPRB) :: zhook_handle

  IF (lhook) CALL dr_hook('MODN_TEB_N:INIT_NAM_TEBN',0,zhook_handle)
  cz0h = top%CZ0H
  cch_bem = top%CCH_BEM
  xdt_res = t%CUR%XDT_RES
  xdt_off = t%CUR%XDT_OFF
IF (lhook) CALL dr_hook('MODN_TEB_N:INIT_NAM_TEBN',1,zhook_handle)
END SUBROUTINE init_nam_tebn

SUBROUTINE update_nam_tebn (T, TOP)
!
  USE modd_teb_n, ONLY : teb_t
  USE modd_teb_option_n, ONLY : teb_options_t
!
  IMPLICIT NONE

!
  TYPE(teb_t), INTENT(INOUT) :: t
  TYPE(teb_options_t), INTENT(INOUT) :: top
  REAL(KIND=JPRB) :: zhook_handle

  IF (lhook) CALL dr_hook('MODN_TEB_N:UPDATE_NAM_TEBN',0,zhook_handle)
  top%XTSTEP = xtstep
  top%XOUT_TSTEP = xout_tstep    
  top%CZ0H = cz0h
  top%CCH_BEM = cch_bem
  t%CUR%XDT_RES = xdt_res
  t%CUR%XDT_OFF = xdt_off
IF (lhook) CALL dr_hook('MODN_TEB_N:UPDATE_NAM_TEBN',1,zhook_handle)
END SUBROUTINE update_nam_tebn

SUBROUTINE init_nam_ch_tebn (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_N:INIT_NAM_CH_TEBN',0,zhook_handle)
  cch_dry_dep = cht%CCH_DRY_DEP
IF (lhook) CALL dr_hook('MODN_TEB_N:INIT_NAM_CH_TEBN',1,zhook_handle)
END SUBROUTINE init_nam_ch_tebn

SUBROUTINE update_nam_ch_tebn (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_N:UPDATE_NAM_CH_TEBN',0,zhook_handle)
  cht%CCH_DRY_DEP = cch_dry_dep
IF (lhook) CALL dr_hook('MODN_TEB_N:UPDATE_NAM_CH_TEBN',1,zhook_handle)
END SUBROUTINE update_nam_ch_tebn

SUBROUTINE init_nam_diag_tebn (DGMTO, DGT, DGUT)
!
  USE modd_diag_misc_teb_option_n, ONLY : diag_misc_teb_options_t
  USE modd_diag_teb_n, ONLY : diag_teb_t
  USE modd_diag_utci_teb_n, ONLY : diag_utci_teb_t
!
  IMPLICIT NONE

!
  TYPE(diag_misc_teb_options_t), INTENT(INOUT) :: dgmto
  TYPE(diag_teb_t), INTENT(INOUT) :: dgt
  TYPE(diag_utci_teb_t), INTENT(INOUT) :: dgut
  REAL(KIND=JPRB) :: zhook_handle

  IF (lhook) CALL dr_hook('MODN_TEB_N:INIT_NAM_DIAG_TEBN',0,zhook_handle)
  lpgd = dgt%LPGD
  lpgd_fix = dgt%LPGD_FIX
  lsurf_misc_budget = dgmto%LSURF_MISC_BUDGET
  lsurf_diag_albedo = dgmto%LSURF_DIAG_ALBEDO
  lutci = dgut%LUTCI
IF (lhook) CALL dr_hook('MODN_TEB_N:INIT_NAM_DIAG_TEBN',1,zhook_handle)
END SUBROUTINE init_nam_diag_tebn

SUBROUTINE update_nam_diag_tebn (DGMTO, DGT, DGUT)
!
  USE modd_diag_misc_teb_option_n, ONLY : diag_misc_teb_options_t
  USE modd_diag_teb_n, ONLY : diag_teb_t
  USE modd_diag_utci_teb_n, ONLY : diag_utci_teb_t
!
  IMPLICIT NONE

!
  TYPE(diag_misc_teb_options_t), INTENT(INOUT) :: dgmto
  TYPE(diag_teb_t), INTENT(INOUT) :: dgt
  TYPE(diag_utci_teb_t), INTENT(INOUT) :: dgut
  REAL(KIND=JPRB) :: zhook_handle

  IF (lhook) CALL dr_hook('MODN_TEB_N:UPDATE_NAM_DIAG_TEBN',0,zhook_handle)
  dgt%LPGD = lpgd
  dgt%LPGD_FIX = lpgd_fix
  dgmto%LSURF_MISC_BUDGET = lsurf_misc_budget
  dgmto%LSURF_DIAG_ALBEDO = lsurf_diag_albedo
  dgut%LUTCI = lutci
IF (lhook) CALL dr_hook('MODN_TEB_N:UPDATE_NAM_DIAG_TEBN',1,zhook_handle)
END SUBROUTINE update_nam_diag_tebn

END MODULE modn_teb_n