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

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