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

Go to the documentation of this file.
00001 !     #########
00002       SUBROUTINE DEFAULT_PREP_SEAFLUX
00003 !     ###########################
00004 !
00005 !!****  *DEFAULT_PREP_SEAFLUX* - routine to set default values for the configuration for SEAFLUX field preparation
00006 !!
00007 !!    PURPOSE
00008 !!    -------
00009 !!
00010 !!**  METHOD
00011 !!    ------
00012 !!
00013 !!    EXTERNAL
00014 !!    --------
00015 !!
00016 !!
00017 !!    IMPLICIT ARGUMENTS
00018 !!    ------------------
00019 !!
00020 !!    REFERENCE
00021 !!    ---------
00022 !!
00023 !!
00024 !!    AUTHOR
00025 !!    ------
00026 !!      S. Malardel   *Meteo France*    
00027 !!
00028 !!    MODIFICATIONS
00029 !!    -------------
00030 !!      Original    10/2003 
00031 !!      01/2008     C. Lebeaupin Brossier ! initialization of oceanic var. 
00032 !!                                        ! from MERCATOR analyses types
00033 !!      07/2012     P. Le Moigne          ! CMO1D phasing
00034 !-------------------------------------------------------------------------------
00035 !
00036 !*       0.    DECLARATIONS
00037 !              ------------
00038 !
00039 USE MODD_PREP_SEAFLUX,   ONLY : CFILE_SEAFLX, CTYPE, CFILEPGD_SEAFLX, CTYPEPGD, XSST_UNIF
00040 !
00041 USE MODN_PREP_SEAFLUX,   ONLY : LSEA_SBL, LOCEAN_MERCATOR, LOCEAN_CURRENT, &
00042                                 XTIME_REL, LCUR_REL, LTS_REL,    &
00043                                 LZERO_FLUX, LCORR_FLUX, XCORFLX, LDIAPYC
00044 
00045 USE MODD_SURF_PAR,   ONLY : XUNDEF
00046 !
00047 !
00048 USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
00049 USE PARKIND1  ,ONLY : JPRB
00050 !
00051 IMPLICIT NONE
00052 !
00053 !*       0.1   Declarations of arguments
00054 !              -------------------------
00055 !
00056 !
00057 !
00058 !*       0.2   Declarations of local variables
00059 !              -------------------------------
00060 !
00061 !-------------------------------------------------------------------------------
00062 !
00063 
00064 REAL(KIND=JPRB) :: ZHOOK_HANDLE
00065 
00066 IF (LHOOK) CALL DR_HOOK('DEFAULT_PREP_SEAFLUX',0,ZHOOK_HANDLE)
00067 CFILE_SEAFLX = '                          '
00068 CTYPE        = 'GRIB  '
00069 !
00070 CFILEPGD_SEAFLX = '                          '
00071 CTYPEPGD        = '      '
00072 !
00073 XSST_UNIF = XUNDEF
00074 !
00075 LSEA_SBL = .FALSE.
00076 LOCEAN_MERCATOR = .FALSE.
00077 LOCEAN_CURRENT = .FALSE.
00078 !
00079 XTIME_REL  = 25920000.
00080 XCORFLX    = 0.
00081 LCUR_REL   = .FALSE.
00082 LTS_REL    = .FALSE.
00083 LZERO_FLUX = .FALSE.
00084 LCORR_FLUX = .FALSE.
00085 LDIAPYC    = .FALSE.
00086 !
00087 IF (LHOOK) CALL DR_HOOK('DEFAULT_PREP_SEAFLUX',1,ZHOOK_HANDLE)
00088 !
00089 !-------------------------------------------------------------------------------
00090 !
00091 END SUBROUTINE DEFAULT_PREP_SEAFLUX