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

Go to the documentation of this file.
00001 !     #########
00002       SUBROUTINE PREP_CTRL_TEB (K2M,OSURF_BUDGET,O2M_MIN_ZS,ORAD_BUDGET,OCOEF,OSURF_VARS,&
00003                                   OSURF_EVAP_BUDGET,OSURF_MISC_BUDGET,OUTCI,KLUOUT)  
00004 !     #################################################################################################################
00005 !
00006 !!****  *PREP_CTRL_TEB * - routine to check that diagnostics are switched off
00007 !!
00008 !!    PURPOSE
00009 !!    -------
00010 !!
00011 !!**  METHOD
00012 !!    ------
00013 !!
00014 !!    EXTERNAL
00015 !!    --------
00016 !!
00017 !!
00018 !!    IMPLICIT ARGUMENTS
00019 !!    ------------------
00020 !!
00021 !!    REFERENCE
00022 !!    ---------
00023 !!
00024 !!
00025 !!    AUTHOR
00026 !!    ------
00027 !!      P. Le Moigne   *Meteo France*   
00028 !!
00029 !!    MODIFICATIONS
00030 !!    -------------
00031 !!      Original    04/2007 
00032 !-------------------------------------------------------------------------------
00033 !
00034 !*       0.    DECLARATIONS
00035 !              ------------
00036 !
00037 USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
00038 USE PARKIND1  ,ONLY : JPRB
00039 !
00040 IMPLICIT NONE
00041 !
00042 !*       0.1   Declarations of arguments
00043 !              -------------------------
00044 !
00045 !
00046 INTEGER,  INTENT(INOUT) :: K2M                ! flag for 2m parameters
00047 LOGICAL,  INTENT(INOUT) :: OSURF_BUDGET       ! flag for surface budget
00048 LOGICAL,  INTENT(INOUT) :: O2M_MIN_ZS         ! flag for 2m parameters at min zs
00049 LOGICAL,  INTENT(INOUT) :: ORAD_BUDGET        ! flag for radiative budget
00050 LOGICAL,  INTENT(INOUT) :: OCOEF              ! flag for turbulent coefficients
00051 LOGICAL,  INTENT(INOUT) :: OSURF_VARS         ! flag for other surface variables
00052 LOGICAL,  INTENT(INOUT) :: OSURF_EVAP_BUDGET  ! flag for surface evaporation budget
00053 LOGICAL,  INTENT(INOUT) :: OSURF_MISC_BUDGET  ! flag for surface miscellaneous budget
00054 LOGICAL,  INTENT(INOUT) :: OUTCI              ! flag for UTCI fields
00055 INTEGER,  INTENT(IN)    :: KLUOUT             ! unit number
00056 REAL(KIND=JPRB) :: ZHOOK_HANDLE
00057 !
00058 !*       0.2   Declarations of local variables
00059 !              -------------------------------
00060 !
00061 !-------------------------------------------------------------------------------
00062 !
00063 IF (LHOOK) CALL DR_HOOK('PREP_CTRL_TEB',0,ZHOOK_HANDLE)
00064 K2M = 0
00065 !
00066 OSURF_BUDGET  = .FALSE.
00067 O2M_MIN_ZS    = .FALSE.
00068 ORAD_BUDGET   = .FALSE.
00069 OCOEF         = .FALSE.
00070 OSURF_VARS    = .FALSE.
00071 !
00072 OSURF_EVAP_BUDGET = .FALSE.
00073 OSURF_MISC_BUDGET = .FALSE.
00074 OUTCI             = .FALSE.
00075 !
00076 WRITE(KLUOUT,*)'TEB  DIAGNOSTICS DESACTIVATED'
00077 IF (LHOOK) CALL DR_HOOK('PREP_CTRL_TEB',1,ZHOOK_HANDLE)
00078 !-------------------------------------------------------------------------------
00079 !
00080 END SUBROUTINE PREP_CTRL_TEB