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

Go to the documentation of this file.
00001 !     #########
00002       SUBROUTINE PREP_CTRL_SEAFLUX(K2M,OSURF_BUDGET,O2M_MIN_ZS,ORAD_BUDGET,OCOEF,OSURF_VARS,&
00003                                      ODIAG_OCEAN,KLUOUT,OSURF_BUDGETC)  
00004 !     #################################################################################################################
00005 !
00006 !!****  *PREP_CTRL_SEAFLUX* - 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) :: ODIAG_OCEAN        ! flag for ocean variables
00053 INTEGER,  INTENT(IN)    :: KLUOUT             ! unit number
00054 LOGICAL,  INTENT(INOUT) :: OSURF_BUDGETC ! flag for cumulated surface budget
00055 REAL(KIND=JPRB) :: ZHOOK_HANDLE
00056 !
00057 !*       0.2   Declarations of local variables
00058 !              -------------------------------
00059 !
00060 !-------------------------------------------------------------------------------
00061 !
00062 IF (LHOOK) CALL DR_HOOK('PREP_CTRL_SEAFLUX',0,ZHOOK_HANDLE)
00063 K2M = 0
00064 !
00065 OSURF_BUDGET  = .FALSE.
00066 O2M_MIN_ZS    = .FALSE.
00067 ORAD_BUDGET   = .FALSE.
00068 OCOEF         = .FALSE.
00069 OSURF_VARS    = .FALSE.
00070 ODIAG_OCEAN   = .FALSE.
00071 OSURF_BUDGETC = .FALSE.
00072 !
00073 WRITE(KLUOUT,*)'SEAFLUX DIAGNOSTICS DESACTIVATED'
00074 IF (LHOOK) CALL DR_HOOK('PREP_CTRL_SEAFLUX',1,ZHOOK_HANDLE)
00075 !-------------------------------------------------------------------------------
00076 !
00077 END SUBROUTINE PREP_CTRL_SEAFLUX