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

Go to the documentation of this file.
00001 !     #########
00002       SUBROUTINE DEFAULT_DIAG_FLAKE(K2M,OSURF_BUDGET,O2M_MIN_ZS,ORAD_BUDGET,OCOEF,OSURF_VARS,&
00003                                      OWATER_PROFILE,OSURF_BUDGETC,ORESET_BUDGETC,PDIAG_TSTEP,&
00004                                      PZWAT_PROFILE          )  
00005 !     ########################################################################
00006 !
00007 !!****  *DEFAULT_DIAG_FLAKE* - routine to set default values for the choice of diagnostics
00008 !!
00009 !!    PURPOSE
00010 !!    -------
00011 !!
00012 !!**  METHOD
00013 !!    ------
00014 !!
00015 !!    EXTERNAL
00016 !!    --------
00017 !!
00018 !!
00019 !!    IMPLICIT ARGUMENTS
00020 !!    ------------------
00021 !!
00022 !!    REFERENCE
00023 !!    ---------
00024 !!
00025 !!
00026 !!    AUTHOR
00027 !!    ------
00028 !!      V. Masson   *Meteo France*      
00029 !!
00030 !!    MODIFICATIONS
00031 !!    -------------
00032 !!      Original    01/2004 
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) :: OWATER_PROFILE ! flag for inline computation of water 
00057                                         !temperature at given depths according
00058                                         !to FLake model
00059 LOGICAL,  INTENT(OUT) :: OSURF_BUDGETC ! flag for cumulated surface budget
00060 LOGICAL,  INTENT(OUT) :: ORESET_BUDGETC! flag for cumulated surface budget
00061 REAL,     INTENT(OUT) :: PDIAG_TSTEP   ! time-step for writing
00062 
00063 REAL, DIMENSION(:), INTENT(OUT) :: PZWAT_PROFILE ! depths where to compute water
00064                                                 ! temperatures according FLake
00065                                                 ! model - variable readed in the
00066                                                 ! namelist
00067 REAL(KIND=JPRB) :: ZHOOK_HANDLE
00068 !
00069 !*       0.2   Declarations of local variables
00070 !              -------------------------------
00071 !
00072 !-------------------------------------------------------------------------------
00073 !
00074 IF (LHOOK) CALL DR_HOOK('DEFAULT_DIAG_FLAKE',0,ZHOOK_HANDLE)
00075 !
00076 K2M = 0
00077 OSURF_BUDGET = .FALSE.
00078 !
00079 O2M_MIN_ZS = .FALSE. 
00080 !
00081 ORAD_BUDGET  = .FALSE.
00082 !
00083 OCOEF        = .FALSE.
00084 OSURF_VARS   = .FALSE.
00085 !
00086 OWATER_PROFILE = .FALSE.
00087 !
00088 OSURF_BUDGETC= .FALSE.
00089 ORESET_BUDGETC= .FALSE.
00090 !
00091 PDIAG_TSTEP  = XUNDEF
00092 !
00093 !ALLOCATE (PZWAT_PROFILE(100)) !maximum of 100 levels may be asked
00094 PZWAT_PROFILE = XUNDEF
00095 IF (LHOOK) CALL DR_HOOK('DEFAULT_DIAG_FLAKE',1,ZHOOK_HANDLE)
00096 
00097 !
00098 !-------------------------------------------------------------------------------
00099 !
00100 END SUBROUTINE DEFAULT_DIAG_FLAKE