modn_watfluxn.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_watflux_n
!     ##################
!
!!****  *MODN_WATFLUX_n* - declaration of namelist NAM_WATFLUXn
!!
!!    PURPOSE
!!    -------
!       The purpose of this module is to specify  the namelist NAM_WATFLUXn
!
!!
!!**  IMPLICIT ARGUMENTS
!!    ------------------
!!
!!    REFERENCE
!!    ---------
!!
!!       
!!    AUTHOR
!!    ------
!!      V. Masson    *Meteo France*
!!
!!    MODIFICATIONS
!!    -------------
!!      Original    01/2004                    
!!      Modified    08/2009 by B. Decharme : LSURF_BUDGETC for all tiles
!-------------------------------------------------------------------------------
!
!*       0.   DECLARATIONS
!             ------------
!
!
         
!
!
USE yomhook   ,ONLY : lhook,   dr_hook
USE parkind1  ,ONLY : jprb
!
IMPLICIT NONE
!
 CHARACTER(LEN=4)  :: cwat_alb
REAL     :: xtstep
REAL     :: xout_tstep
REAL     :: xdiag_tstep
INTEGER  :: n2m
LOGICAL  :: l2m_min_zs
LOGICAL  :: lsurf_budget
LOGICAL  :: lrad_budget
LOGICAL  :: lsurf_budgetc
LOGICAL  :: lreset_budgetc
LOGICAL  :: lcoef
LOGICAL  :: lsurf_vars
 CHARACTER(LEN=6)  :: cch_dry_dep
 CHARACTER(LEN=6)  :: cinterpol_ts
!
NAMELIST/nam_watfluxn/cwat_alb,cinterpol_ts
NAMELIST/nam_diag_surfn/n2m,l2m_min_zs,lsurf_budget,lrad_budget, &
                          lsurf_budgetc,lreset_budgetc,lcoef,lsurf_vars  
NAMELIST/nam_ch_watfluxn/cch_dry_dep
!
CONTAINS
!
SUBROUTINE init_nam_watfluxn (W)
!
  USE modd_watflux_n, ONLY : watflux_t
!
  IMPLICIT NONE

!
  TYPE(watflux_t), INTENT(INOUT) :: W
  REAL(KIND=JPRB) :: ZHOOK_HANDLE

  IF (lhook) CALL dr_hook('MODN_WATFLUX_N:INIT_NAM_WATFLUXN',0,zhook_handle)
  xtstep = w%XTSTEP
  xout_tstep = w%XOUT_TSTEP  
  cwat_alb = w%CWAT_ALB
  cinterpol_ts = w%CINTERPOL_TS
IF (lhook) CALL dr_hook('MODN_WATFLUX_N:INIT_NAM_WATFLUXN',1,zhook_handle)
END SUBROUTINE init_nam_watfluxn
!
SUBROUTINE update_nam_watfluxn (W)
!
  USE modd_watflux_n, ONLY : watflux_t
!
  IMPLICIT NONE

!
  TYPE(watflux_t), INTENT(INOUT) :: W
  REAL(KIND=JPRB) :: ZHOOK_HANDLE

  IF (lhook) CALL dr_hook('MODN_WATFLUX_N:UPDATE_NAM_WATFLUXN',0,zhook_handle)
  w%XTSTEP = xtstep
  w%XOUT_TSTEP = xout_tstep    
  w%CWAT_ALB = cwat_alb
  w%CINTERPOL_TS = cinterpol_ts
IF (lhook) CALL dr_hook('MODN_WATFLUX_N:UPDATE_NAM_WATFLUXN',1,zhook_handle)
END SUBROUTINE update_nam_watfluxn
!
SUBROUTINE init_nam_diag_surfn (DGO)
!
  USE modd_diag_n, ONLY : diag_options_t
!
  IMPLICIT NONE

!
  TYPE(diag_options_t), INTENT(INOUT) :: DGO
  REAL(KIND=JPRB) :: ZHOOK_HANDLE

  IF (lhook) CALL dr_hook('MODN_WATFLUX_N:INIT_NAM_DIAG_SURFN',0,zhook_handle)
  xdiag_tstep = dgo%XDIAG_TSTEP  
  n2m = dgo%N2M
  l2m_min_zs = dgo%L2M_MIN_ZS
  lsurf_budget = dgo%LSURF_BUDGET
  lrad_budget = dgo%LRAD_BUDGET
  lsurf_budgetc = dgo%LSURF_BUDGETC
  lreset_budgetc = dgo%LRESET_BUDGETC  
  lcoef = dgo%LCOEF
  lsurf_vars = dgo%LSURF_VARS
IF (lhook) CALL dr_hook('MODN_WATFLUX_N:INIT_NAM_DIAG_SURFN',1,zhook_handle)
END SUBROUTINE init_nam_diag_surfn

SUBROUTINE update_nam_diag_surfn (DGO)
!
  USE modd_diag_n, ONLY : diag_options_t
!
  IMPLICIT NONE

!
  TYPE(diag_options_t), INTENT(INOUT) :: DGO
  REAL(KIND=JPRB) :: ZHOOK_HANDLE

  IF (lhook) CALL dr_hook('MODN_WATFLUX_N:UPDATE_NAM_DIAG_SURFN',0,zhook_handle)
  dgo%XDIAG_TSTEP = xdiag_tstep  
  dgo%N2M = n2m
  dgo%L2M_MIN_ZS = l2m_min_zs
  dgo%LSURF_BUDGET = lsurf_budget
  dgo%LRAD_BUDGET = lrad_budget 
  dgo%LSURF_BUDGETC = lsurf_budgetc
  dgo%LRESET_BUDGETC = lreset_budgetc  
  dgo%LCOEF = lcoef
  dgo%LSURF_VARS = lsurf_vars
IF (lhook) CALL dr_hook('MODN_WATFLUX_N:UPDATE_NAM_DIAG_SURFN',1,zhook_handle)
END SUBROUTINE update_nam_diag_surfn

SUBROUTINE init_nam_ch_watfluxn (CHW)
!
  USE modd_ch_watflux_n, ONLY : ch_watflux_t
!
  IMPLICIT NONE

!
  TYPE(ch_watflux_t), INTENT(INOUT) :: CHW
  REAL(KIND=JPRB) :: ZHOOK_HANDLE

  IF (lhook) CALL dr_hook('MODN_WATFLUX_N:INIT_NAM_CH_WATFLUXN',0,zhook_handle)
  cch_dry_dep = chw%CCH_DRY_DEP
IF (lhook) CALL dr_hook('MODN_WATFLUX_N:INIT_NAM_CH_WATFLUXN',1,zhook_handle)
END SUBROUTINE init_nam_ch_watfluxn

SUBROUTINE update_nam_ch_watfluxn (CHW)
!
  USE modd_ch_watflux_n, ONLY : ch_watflux_t
!
  IMPLICIT NONE

!
  TYPE(ch_watflux_t), INTENT(INOUT) :: CHW
  REAL(KIND=JPRB) :: ZHOOK_HANDLE

  IF (lhook) CALL dr_hook('MODN_WATFLUX_N:UPDATE_NAM_CH_WATFLUXN',0,zhook_handle)
  chw%CCH_DRY_DEP = cch_dry_dep
IF (lhook) CALL dr_hook('MODN_WATFLUX_N:UPDATE_NAM_CH_WATFLUXN',1,zhook_handle)
END SUBROUTINE update_nam_ch_watfluxn


END MODULE modn_watflux_n