SURFEX v7.3: /home/dasprezs/EXPORT_v7_3/src/SURFEX/modn

Go to the documentation of this file.
00001 !##################
00002 MODULE MODN_SSO_n
00003 !##################
00004 !
00005 !!****  *MODN_SSO_n* - declaration of namelist NAM_SSO_n
00006 !!
00007 !!    PURPOSE
00008 !!    -------
00009 !       The purpose of this module is to specify  the namelist NAM_SSO_n
00010 !     which concern the roughness parameterization for orography.
00011 !
00012 !!
00013 !!**  IMPLICIT ARGUMENTS
00014 !!    ------------------
00015 !!
00016 !!    REFERENCE
00017 !!    ---------
00018 !!
00019 !!       
00020 !!    AUTHOR
00021 !!    ------
00022 !!      V. Masson    *Meteo France*
00023 !!
00024 !!    MODIFICATIONS
00025 !!    -------------
00026 !!      Original    05/2010                    
00027 !!
00028 !-------------------------------------------------------------------------------
00029 !
00030 !*       0.   DECLARATIONS
00031 !             ------------
00032 !
00033 USE MODD_SURF_ATM_SSO_n, ONLY: &
00034          CROUGH_n => CROUGH,   &
00035          XFRACZ0_n => XFRACZ0, &
00036          XCOEFBE_n => XCOEFBE
00037 !
00038 USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
00039 USE PARKIND1  ,ONLY : JPRB
00040 !
00041 IMPLICIT NONE
00042 !
00043  CHARACTER(LEN=4)  :: CROUGH
00044 REAL              :: XFRACZ0
00045 REAL              :: XCOEFBE
00046 !
00047 NAMELIST/NAM_SSOn/CROUGH, XFRACZ0, XCOEFBE
00048 !
00049 CONTAINS
00050 !
00051 SUBROUTINE INIT_NAM_SSOn
00052   REAL(KIND=JPRB) :: ZHOOK_HANDLE
00053 
00054   IF (LHOOK) CALL DR_HOOK('MODN_SSO_N:INIT_NAM_SSON',0,ZHOOK_HANDLE)
00055   CROUGH = CROUGH_n
00056   XFRACZ0= XFRACZ0_n  
00057   XCOEFBE= XCOEFBE_n  
00058   IF (LHOOK) CALL DR_HOOK('MODN_SSO_N:INIT_NAM_SSON',1,ZHOOK_HANDLE)
00059 END SUBROUTINE INIT_NAM_SSOn
00060 
00061 SUBROUTINE UPDATE_NAM_SSOn
00062   REAL(KIND=JPRB) :: ZHOOK_HANDLE
00063 
00064   IF (LHOOK) CALL DR_HOOK('MODN_SSO_N:UPDATE_NAM_SSON',0,ZHOOK_HANDLE)
00065   CROUGH_n = CROUGH
00066   XFRACZ0_n= XFRACZ0  
00067   XCOEFBE_n= XCOEFBE  
00068   IF (LHOOK) CALL DR_HOOK('MODN_SSO_N:UPDATE_NAM_SSON',1,ZHOOK_HANDLE)
00069 END SUBROUTINE UPDATE_NAM_SSOn
00070 
00071 END MODULE MODN_SSO_n