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

Go to the documentation of this file.
00001 !     #########
00002       SUBROUTINE DEFAULT_DIAG_TEB (K2M,OSURF_BUDGET,O2M_MIN_ZS,ORAD_BUDGET,OCOEF,OSURF_VARS, &
00003                                    OSURF_MISC_BUDGET,OUTCI,OPGD,OPGD_FIX,PDIAG_TSTEP         )  
00004 !     #################################################################################################################
00005 !
00006 !!****  *DEFAULT_DIAG_TEB * - routine to set default values for the choice of diagnostics
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 !!      V. Masson   *Meteo France*      
00028 !!
00029 !!    MODIFICATIONS
00030 !!    -------------
00031 !!      Original    01/2004 
00032 !!      Modified by P. Le Moigne, 11/2004: add budget switch 
00033 !-------------------------------------------------------------------------------
00034 !
00035 !*       0.    DECLARATIONS
00036 !              ------------
00037 !
00038 USE MODD_SURF_PAR,   ONLY : XUNDEF
00039 !
00040 !
00041 USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
00042 USE PARKIND1  ,ONLY : JPRB
00043 !
00044 IMPLICIT NONE
00045 !
00046 !*       0.1   Declarations of arguments
00047 !              -------------------------
00048 !
00049 !
00050 INTEGER,  INTENT(OUT) :: K2M                ! flag for operational 2m quantities
00051 LOGICAL,  INTENT(OUT) :: OSURF_BUDGET       ! flag for surface budget
00052 LOGICAL,  INTENT(OUT) :: O2M_MIN_ZS
00053 LOGICAL,  INTENT(OUT) :: ORAD_BUDGET        ! flag for radiative budget
00054 LOGICAL,  INTENT(OUT) :: OCOEF
00055 LOGICAL,  INTENT(OUT) :: OSURF_VARS
00056 LOGICAL,  INTENT(OUT) :: OSURF_MISC_BUDGET  ! flag for surface miscellaneous budget
00057 LOGICAL,  INTENT(OUT) :: OUTCI              ! flag for UTCI fields
00058 LOGICAL,  INTENT(OUT) :: OPGD               ! flag for PGD fields
00059 LOGICAL,  INTENT(OUT) :: OPGD_FIX           ! flag for PGD fields
00060 REAL,     INTENT(OUT) :: PDIAG_TSTEP        ! time-step for writing
00061 REAL(KIND=JPRB) :: ZHOOK_HANDLE
00062 !
00063 !*       0.2   Declarations of local variables
00064 !              -------------------------------
00065 !
00066 !-------------------------------------------------------------------------------
00067 !
00068 IF (LHOOK) CALL DR_HOOK('DEFAULT_DIAG_TEB',0,ZHOOK_HANDLE)
00069 K2M               = 0
00070 OSURF_BUDGET      = .FALSE.
00071 !
00072 O2M_MIN_ZS        = .FALSE.
00073 !
00074 ORAD_BUDGET       = .FALSE.
00075 !
00076 OCOEF             = .FALSE.
00077 OSURF_VARS        = .FALSE.
00078 !
00079 OSURF_MISC_BUDGET = .FALSE.
00080 !
00081 OUTCI             = .FALSE.
00082 !
00083 OPGD              = .FALSE.
00084 OPGD_FIX          = .TRUE.
00085 !
00086 PDIAG_TSTEP       = XUNDEF
00087 IF (LHOOK) CALL DR_HOOK('DEFAULT_DIAG_TEB',1,ZHOOK_HANDLE)
00088 !
00089 !-------------------------------------------------------------------------------
00090 !
00091 END SUBROUTINE DEFAULT_DIAG_TEB