modn_sson.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_sso_n
!##################
!
!!****  *MODN_SSO_n* - declaration of namelist NAM_SSO_n
!!
!!    PURPOSE
!!    -------
!       The purpose of this module is to specify  the namelist NAM_SSO_n
!     which concern the roughness parameterization for orography.
!
!!
!!**  IMPLICIT ARGUMENTS
!!    ------------------
!!
!!    REFERENCE
!!    ---------
!!
!!       
!!    AUTHOR
!!    ------
!!      V. Masson    *Meteo France*
!!
!!    MODIFICATIONS
!!    -------------
!!      Original    05/2010                    
!!
!-------------------------------------------------------------------------------
!
!*       0.   DECLARATIONS
!             ------------
!
!
USE yomhook   ,ONLY : lhook,   dr_hook
USE parkind1  ,ONLY : jprb
!
IMPLICIT NONE
!
 CHARACTER(LEN=4)  :: CROUGH
REAL              :: XFRACZ0
REAL              :: XCOEFBE
!
namelist/nam_sson/crough, xfracz0, xcoefbe
!
 CONTAINS
!
SUBROUTINE init_nam_sson (USS)
!
  USE modd_surf_atm_sso_n, ONLY : surf_atm_sso_t
!
  IMPLICIT NONE
!
  TYPE(surf_atm_sso_t), INTENT(INOUT) :: uss
  REAL(KIND=JPRB) :: zhook_handle

  IF (lhook) CALL dr_hook('MODN_SSO_N:INIT_NAM_SSON',0,zhook_handle)
  crough = uss%CROUGH
  xfracz0= uss%XFRACZ0  
  xcoefbe= uss%XCOEFBE  
  IF (lhook) CALL dr_hook('MODN_SSO_N:INIT_NAM_SSON',1,zhook_handle)
END SUBROUTINE init_nam_sson

SUBROUTINE update_nam_sson (USS)
!
  USE modd_surf_atm_sso_n, ONLY : surf_atm_sso_t
!
  IMPLICIT NONE
!
  TYPE(surf_atm_sso_t), INTENT(INOUT) :: uss
  REAL(KIND=JPRB) :: zhook_handle

  IF (lhook) CALL dr_hook('MODN_SSO_N:UPDATE_NAM_SSON',0,zhook_handle)
  uss%CROUGH = crough
  uss%XFRACZ0= xfracz0  
  uss%XCOEFBE= xcoefbe  
  IF (lhook) CALL dr_hook('MODN_SSO_N:UPDATE_NAM_SSON',1,zhook_handle)
END SUBROUTINE update_nam_sson

END MODULE modn_sso_n