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

Go to the documentation of this file.
00001 !     #########
00002       SUBROUTINE DEFAULT_DIAG_SEAFLUX(K2M,OSURF_BUDGET,O2M_MIN_ZS,ORAD_BUDGET,OCOEF,OSURF_VARS,&
00003                                       ODIAG_OCEAN,OSURF_BUDGETC,ORESET_BUDGETC,PDIAG_TSTEP  )  
00004 !     ########################################################################
00005 !
00006 !!****  *DEFAULT_DIAG_SEAFLUX* - 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) :: ODIAG_OCEAN
00056 LOGICAL,  INTENT(OUT) :: OSURF_BUDGETC ! flag for cumulated surface budget
00057 LOGICAL,  INTENT(OUT) :: ORESET_BUDGETC! flag for cumulated surface budget
00058 REAL,     INTENT(OUT) :: PDIAG_TSTEP   ! time-step for writing
00059 REAL(KIND=JPRB) :: ZHOOK_HANDLE
00060 !
00061 !*       0.2   Declarations of local variables
00062 !              -------------------------------
00063 !
00064 !-------------------------------------------------------------------------------
00065 !
00066 IF (LHOOK) CALL DR_HOOK('DEFAULT_DIAG_SEAFLUX',0,ZHOOK_HANDLE)
00067 !
00068 K2M = 0
00069 OSURF_BUDGET = .FALSE.
00070 !
00071 O2M_MIN_ZS   = .FALSE.
00072 !
00073 ORAD_BUDGET  = .FALSE.
00074 !
00075 OCOEF        = .FALSE.
00076 OSURF_VARS   = .FALSE.
00077 !
00078 ODIAG_OCEAN  = .FALSE.
00079 !
00080 OSURF_BUDGETC= .FALSE.
00081 ORESET_BUDGETC= .FALSE.
00082 !
00083 PDIAG_TSTEP  = XUNDEF
00084 !
00085 IF (LHOOK) CALL DR_HOOK('DEFAULT_DIAG_SEAFLUX',1,ZHOOK_HANDLE)
00086 !
00087 !-------------------------------------------------------------------------------
00088 !
00089 END SUBROUTINE DEFAULT_DIAG_SEAFLUX