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

Go to the documentation of this file.
00001 !     #########
00002       SUBROUTINE PREP_CTRL_ISBA(K2M,OSURF_BUDGET,O2M_MIN_ZS,ORAD_BUDGET,OCOEF,OSURF_VARS,&
00003                                   OSURF_EVAP_BUDGET,OSURF_MISC_BUDGET,OSURF_BUDGETC,     &
00004                                   OPATCH_BUDGET,OSURF_MISC_DIF,KLUOUT                    )  
00005 !     #################################################################################################################
00006 !
00007 !!****  *PREP_CTRL_ISBA* - routine to check that diagnostics are switched off
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 !!      P. Le Moigne   *Meteo France*   
00029 !!
00030 !!    MODIFICATIONS
00031 !!    -------------
00032 !!      Original    04/2007 
00033 !!      Modified by A.L. Gibelin, 04/2009: add carbon spinup
00034 !!
00035 !-------------------------------------------------------------------------------
00036 !
00037 !*       0.    DECLARATIONS
00038 !              ------------
00039 !
00040 !
00041 !
00042 USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
00043 USE PARKIND1  ,ONLY : JPRB
00044 !
00045 IMPLICIT NONE
00046 !
00047 !*       0.1   Declarations of arguments
00048 !              -------------------------
00049 !
00050 !
00051 INTEGER,  INTENT(INOUT) :: K2M                ! flag for 2m parameters
00052 LOGICAL,  INTENT(INOUT) :: OSURF_BUDGET       ! flag for surface budget
00053 LOGICAL,  INTENT(INOUT) :: O2M_MIN_ZS         ! flag for 2m parameters at min zs
00054 LOGICAL,  INTENT(INOUT) :: ORAD_BUDGET        ! flag for radiative budget
00055 LOGICAL,  INTENT(INOUT) :: OCOEF              ! flag for turbulent coefficients
00056 LOGICAL,  INTENT(INOUT) :: OSURF_VARS         ! flag for other surface variables
00057 LOGICAL,  INTENT(INOUT) :: OSURF_EVAP_BUDGET  ! flag for surface evaporation budget
00058 LOGICAL,  INTENT(INOUT) :: OSURF_MISC_BUDGET  ! flag for surface miscellaneous budget
00059 LOGICAL,  INTENT(INOUT) :: OSURF_BUDGETC      ! flag for cumulated surface budget
00060 LOGICAL,  INTENT(INOUT) :: OPATCH_BUDGET      ! flaf for surface budget by patch
00061 LOGICAL,  INTENT(INOUT) :: OSURF_MISC_DIF     ! flag for surface miscellaneous dif variables
00062 INTEGER,  INTENT(IN)    :: KLUOUT             ! unit number
00063 REAL(KIND=JPRB) :: ZHOOK_HANDLE
00064 !
00065 !*       0.2   Declarations of local variables
00066 !              -------------------------------
00067 !
00068 !-------------------------------------------------------------------------------
00069 !
00070 IF (LHOOK) CALL DR_HOOK('PREP_CTRL_ISBA',0,ZHOOK_HANDLE)
00071 K2M = 0
00072 !
00073 OSURF_BUDGET  = .FALSE.
00074 O2M_MIN_ZS    = .FALSE.
00075 ORAD_BUDGET   = .FALSE.
00076 OCOEF         = .FALSE.
00077 OSURF_VARS    = .FALSE.
00078 !
00079 OSURF_BUDGETC     = .FALSE.
00080 OPATCH_BUDGET     = .FALSE.
00081 OSURF_EVAP_BUDGET = .FALSE.
00082 OSURF_MISC_BUDGET = .FALSE.
00083 OSURF_MISC_DIF    = .FALSE.
00084 !
00085 WRITE(KLUOUT,*)'ISBA DIAGNOSTICS DESACTIVATED'
00086 IF (LHOOK) CALL DR_HOOK('PREP_CTRL_ISBA',1,ZHOOK_HANDLE)
00087 !-------------------------------------------------------------------------------
00088 !
00089 END SUBROUTINE PREP_CTRL_ISBA