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

Go to the documentation of this file.
00001 !     #########
00002       SUBROUTINE PREP_CTRL_SURF_ATM(K2M,OSURF_BUDGET,O2M_MIN_ZS,ORAD_BUDGET, &
00003                                          OCOEF,OSURF_VARS,OSURF_BUDGETC,       &
00004                                          ORESET_BUDGETC,ONOWRITE_TEXFILE,      &
00005                                          OSELECT,KLUOUT,OPROVAR_TO_DIAG)  
00006 !     ########################################################################
00007 !
00008 !!****  *PREP_CTRL_SURF_ATM* - routine to check that diagnostics are switched off
00009 !!                             
00010 !!
00011 !!    PURPOSE
00012 !!    -------
00013 !!
00014 !!**  METHOD
00015 !!    ------
00016 !!
00017 !!    EXTERNAL
00018 !!    --------
00019 !!
00020 !!
00021 !!    IMPLICIT ARGUMENTS
00022 !!    ------------------
00023 !!
00024 !!    REFERENCE
00025 !!    ---------
00026 !!
00027 !!
00028 !!    AUTHOR
00029 !!    ------
00030 !!      P. Le Moigne   *Meteo France*   
00031 !!
00032 !!    MODIFICATIONS
00033 !!    -------------
00034 !!      Original    04/2007 
00035 !-------------------------------------------------------------------------------
00036 !
00037 !*       0.    DECLARATIONS
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(INOUT) :: K2M           ! flag for operational 2m quantities
00050 LOGICAL,  INTENT(INOUT) :: OSURF_BUDGET  ! flag for surface budget
00051 LOGICAL,  INTENT(INOUT) :: O2M_MIN_ZS    ! flag for 2m quantities on min.  orography
00052 LOGICAL,  INTENT(INOUT) :: ORAD_BUDGET   ! flag for radiative budget
00053 LOGICAL,  INTENT(INOUT) :: OCOEF         ! flag for transfer coefficients
00054 LOGICAL,  INTENT(INOUT) :: OSURF_VARS    ! flag for surface variables
00055 LOGICAL,  INTENT(INOUT) :: ONOWRITE_TEXFILE    ! flag for surface variables
00056 INTEGER,  INTENT(IN)    :: KLUOUT        ! unit number
00057 LOGICAL,  INTENT(INOUT) :: OSURF_BUDGETC      ! flag for cumulated surface budget
00058 LOGICAL,  INTENT(INOUT) :: ORESET_BUDGETC     ! flag for cumulated surface budget
00059 LOGICAL,  INTENT(INOUT) :: OSELECT       ! switch to control which fields are written
00060 LOGICAL,  INTENT(INOUT) :: OPROVAR_TO_DIAG     ! switch to write (or not) prognostic variable
00061 REAL(KIND=JPRB) :: ZHOOK_HANDLE
00062 !
00063 !*       0.2   Declarations of local variables
00064 !              -------------------------------
00065 !
00066 !-------------------------------------------------------------------------------
00067 !
00068 IF (LHOOK) CALL DR_HOOK('PREP_CTRL_SURF_ATM',0,ZHOOK_HANDLE)
00069 K2M = 0
00070 !
00071 OSURF_BUDGET  = .FALSE.
00072 O2M_MIN_ZS    = .FALSE.
00073 ORAD_BUDGET   = .FALSE.
00074 OCOEF         = .FALSE.
00075 OSURF_VARS    = .FALSE.
00076 !
00077 OSURF_BUDGETC     = .FALSE.
00078 ORESET_BUDGETC    = .FALSE.
00079 !
00080 ONOWRITE_TEXFILE  = .TRUE.
00081 OSELECT           = .FALSE.
00082 OPROVAR_TO_DIAG   = .FALSE.
00083 !
00084 WRITE(KLUOUT,*)'SURF_ATM DIAGNOSTICS DESACTIVATED'
00085 IF (LHOOK) CALL DR_HOOK('PREP_CTRL_SURF_ATM',1,ZHOOK_HANDLE)
00086 !-------------------------------------------------------------------------------
00087 !
00088 END SUBROUTINE PREP_CTRL_SURF_ATM