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

Go to the documentation of this file.
00001 !     ##################
00002       MODULE MODN_IDEAL_n
00003 !     ##################
00004 !
00005 !!****  *MODN_IDEAL_n* - declaration of namelist NAM_IDEALn
00006 !!
00007 !!    PURPOSE
00008 !!    -------
00009 !       The purpose of this module is to specify  the namelist NAM_IDEALn
00010 !
00011 !!
00012 !!**  IMPLICIT ARGUMENTS
00013 !!    ------------------
00014 !!
00015 !!    REFERENCE
00016 !!    ---------
00017 !!
00018 !!       
00019 !!    AUTHOR
00020 !!    ------
00021 !!      P. Le Moigne    *Meteo France*
00022 !!
00023 !!    MODIFICATIONS
00024 !!    -------------
00025 !!      Original    04/2009                   
00026 !!      Modified    08/2009 by B. Decharme : LSURF_BUDGETC for all tiles
00027 !-------------------------------------------------------------------------------
00028 !
00029 !*       0.   DECLARATIONS
00030 !             ------------
00031 !
00032 USE MODD_DIAG_IDEAL_n, ONLY: &
00033            XDIAG_TSTEP_n => XDIAG_TSTEP, &
00034            N2M_n => N2M, &
00035            L2M_MIN_ZS_n => L2M_MIN_ZS, &
00036            LSURF_BUDGET_n => LSURF_BUDGET, &
00037            LRAD_BUDGET_n => LRAD_BUDGET, &
00038            LSURF_BUDGETC_n => LSURF_BUDGETC, &
00039            LRESET_BUDGETC_n => LRESET_BUDGETC, &
00040            LCOEF_n => LCOEF, &
00041            LSURF_VARS_n => LSURF_VARS  
00042 !
00043 !
00044 USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
00045 USE PARKIND1  ,ONLY : JPRB
00046 !
00047 IMPLICIT NONE
00048 !
00049 REAL     :: XDIAG_TSTEP
00050 INTEGER  :: N2M
00051 LOGICAL  :: L2M_MIN_ZS         
00052 LOGICAL  :: LSURF_BUDGET
00053 LOGICAL  :: LRAD_BUDGET
00054 LOGICAL  :: LSURF_BUDGETC
00055 LOGICAL  :: LRESET_BUDGETC
00056 LOGICAL  :: LCOEF
00057 LOGICAL  :: LSURF_VARS
00058 !
00059 NAMELIST/NAM_DIAG_SURFn/N2M,L2M_MIN_ZS,LSURF_BUDGET,LRAD_BUDGET, &
00060                           LSURF_BUDGETC,LRESET_BUDGETC,LCOEF,LSURF_VARS  
00061 !
00062 CONTAINS
00063 !
00064 SUBROUTINE INIT_NAM_DIAG_SURFn
00065 
00066   REAL(KIND=JPRB) :: ZHOOK_HANDLE
00067 
00068   IF (LHOOK) CALL DR_HOOK('MODN_IDEAL_N:INIT_NAM_DIAG_SURFN',0,ZHOOK_HANDLE)
00069   XDIAG_TSTEP = XDIAG_TSTEP_n  
00070   N2M = N2M_n
00071   L2M_MIN_ZS = L2M_MIN_ZS_n
00072   LSURF_BUDGET = LSURF_BUDGET_n
00073   LRAD_BUDGET = LRAD_BUDGET_n
00074   LSURF_BUDGETC = LSURF_BUDGETC_n
00075   LRESET_BUDGETC = LRESET_BUDGETC_n  
00076   LCOEF = LCOEF_n
00077   LSURF_VARS = LSURF_VARS_n
00078 IF (LHOOK) CALL DR_HOOK('MODN_IDEAL_N:INIT_NAM_DIAG_SURFN',1,ZHOOK_HANDLE)
00079 END SUBROUTINE INIT_NAM_DIAG_SURFn
00080 
00081 SUBROUTINE UPDATE_NAM_DIAG_SURFn
00082 
00083   REAL(KIND=JPRB) :: ZHOOK_HANDLE
00084 
00085   IF (LHOOK) CALL DR_HOOK('MODN_IDEAL_N:UPDATE_NAM_DIAG_SURFN',0,ZHOOK_HANDLE)
00086   XDIAG_TSTEP_n = XDIAG_TSTEP    
00087   N2M_n = N2M
00088   L2M_MIN_ZS_n = L2M_MIN_ZS
00089   LSURF_BUDGET_n = LSURF_BUDGET
00090   LRAD_BUDGET_n = LRAD_BUDGET 
00091   LSURF_BUDGETC_n = LSURF_BUDGETC
00092   LRESET_BUDGETC_n = LRESET_BUDGETC  
00093   LCOEF_n = LCOEF
00094   LSURF_VARS_n = LSURF_VARS
00095 IF (LHOOK) CALL DR_HOOK('MODN_IDEAL_N:UPDATE_NAM_DIAG_SURFN',1,ZHOOK_HANDLE)
00096 END SUBROUTINE UPDATE_NAM_DIAG_SURFn
00097 !
00098 END MODULE MODN_IDEAL_n