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

Go to the documentation of this file.
00001 !     #########
00002       SUBROUTINE DEFAULT_DIAG_WATFLUX(K2M,OSURF_BUDGET,O2M_MIN_ZS,ORAD_BUDGET,OCOEF,OSURF_VARS,&
00003                                       OSURF_BUDGETC,ORESET_BUDGETC,PDIAG_TSTEP                )  
00004 !     ########################################################################
00005 !
00006 !!****  *DEFAULT_DIAG_WATFLUX* - 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 !-------------------------------------------------------------------------------
00033 !
00034 !*       0.    DECLARATIONS
00035 !              ------------
00036 !
00037 USE MODD_SURF_PAR,   ONLY : XUNDEF
00038 !
00039 !
00040 USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
00041 USE PARKIND1  ,ONLY : JPRB
00042 !
00043 IMPLICIT NONE
00044 !
00045 !*       0.1   Declarations of arguments
00046 !              -------------------------
00047 !
00048 !
00049 INTEGER,  INTENT(OUT) :: K2M           ! flag for operational 2m quantities
00050 LOGICAL,  INTENT(OUT) :: OSURF_BUDGET  ! flag for surface budget
00051 LOGICAL,  INTENT(OUT) :: O2M_MIN_ZS
00052 LOGICAL,  INTENT(OUT) :: ORAD_BUDGET   ! flag for radiative budget
00053 LOGICAL,  INTENT(OUT) :: OCOEF
00054 LOGICAL,  INTENT(OUT) :: OSURF_VARS
00055 LOGICAL,  INTENT(OUT) :: OSURF_BUDGETC ! flag for cumulated surface budget
00056 LOGICAL,  INTENT(OUT) :: ORESET_BUDGETC! flag for cumulated surface budget
00057 REAL,     INTENT(OUT) :: PDIAG_TSTEP   ! time-step for writing
00058 REAL(KIND=JPRB) :: ZHOOK_HANDLE
00059 !
00060 !*       0.2   Declarations of local variables
00061 !              -------------------------------
00062 !
00063 !-------------------------------------------------------------------------------
00064 !
00065 IF (LHOOK) CALL DR_HOOK('DEFAULT_DIAG_WATFLUX',0,ZHOOK_HANDLE)
00066 K2M = 0
00067 OSURF_BUDGET = .FALSE.
00068 !
00069 O2M_MIN_ZS   = .FALSE.
00070 !
00071 ORAD_BUDGET  = .FALSE.
00072 !
00073 OCOEF        = .FALSE.
00074 OSURF_VARS   = .FALSE.
00075 !
00076 OSURF_BUDGETC= .FALSE.
00077 ORESET_BUDGETC= .FALSE.
00078 !
00079 PDIAG_TSTEP  = XUNDEF
00080 IF (LHOOK) CALL DR_HOOK('DEFAULT_DIAG_WATFLUX',1,ZHOOK_HANDLE)
00081 !
00082 !-------------------------------------------------------------------------------
00083 !
00084 END SUBROUTINE DEFAULT_DIAG_WATFLUX