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

Go to the documentation of this file.
00001 !     #########
00002       SUBROUTINE DEFAULT_ASSIM(OASSIM,HASSIM,HASSIM_ISBA,OPRINT,        &
00003                                OAROME,OECSST,OAESST,OAESNM,             &
00004                                OALADSURF,OREAD_SST_FROM_FILE,           &
00005                                OEXTRAP_SEA,OEXTRAP_WATER,OEXTRAP_NATURE,&
00006                                OWATERTG2)
00007 !     ########################################################################
00008 !
00009 !!****  *DEFAULT_ISBA* - routine to set default values for the configuration for ISBA assimilation scheme
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 !!      L. Jarlan  *Meteo France*       
00031 !!
00032 !!    MODIFICATIONS
00033 !!    -------------
00034 !!      Original    02/2005
00035 !-------------------------------------------------------------------------------
00036 !
00037 !*       0.    DECLARATIONS
00038 !              ------------
00039 !
00040 !
00041 USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
00042 USE PARKIND1  ,ONLY : JPRB
00043 !
00044 IMPLICIT NONE
00045 !
00046 !*       0.1   Declarations of arguments
00047 !              -------------------------
00048 LOGICAL,           INTENT(OUT) :: OASSIM        ! assimilation or not
00049  CHARACTER(LEN=5),  INTENT(OUT) :: HASSIM        ! type of corrections PLUS/2DVAR
00050  CHARACTER(LEN=5),  INTENT(OUT) :: HASSIM_ISBA
00051 LOGICAL,           INTENT(OUT) :: OPRINT
00052 LOGICAL,           INTENT(OUT) :: OAROME
00053 LOGICAL,           INTENT(OUT) :: OECSST
00054 LOGICAL,           INTENT(OUT) :: OAESST
00055 LOGICAL,           INTENT(OUT) :: OAESNM
00056 LOGICAL,           INTENT(OUT) :: OALADSURF
00057 LOGICAL,           INTENT(OUT) :: OREAD_SST_FROM_FILE
00058 LOGICAL,           INTENT(OUT) :: OEXTRAP_SEA
00059 LOGICAL,           INTENT(OUT) :: OEXTRAP_WATER
00060 LOGICAL,           INTENT(OUT) :: OEXTRAP_NATURE
00061 LOGICAL,           INTENT(OUT) :: OWATERTG2
00062 REAL(KIND=JPRB) :: ZHOOK_HANDLE
00063 !
00064 !-------------------------------------------------------------------------------
00065 IF (LHOOK) CALL DR_HOOK('DEFAULT_ASSIM',0,ZHOOK_HANDLE)
00066 OASSIM    = .FALSE.
00067 HASSIM    = "PLUS "
00068 HASSIM_ISBA = "OI" 
00069 OPRINT    = .FALSE.
00070 OAROME    = .TRUE.
00071 OECSST    = .FALSE.
00072 OAESST    = .FALSE.
00073 OAESNM    = .FALSE.
00074 OALADSURF = .TRUE.
00075 OREAD_SST_FROM_FILE=.FALSE.
00076 OEXTRAP_SEA    = .TRUE.
00077 OEXTRAP_WATER  = .TRUE.
00078 OEXTRAP_NATURE = .FALSE.
00079 OWATERTG2      = .FALSE.
00080 IF (LHOOK) CALL DR_HOOK('DEFAULT_ASSIM',1,ZHOOK_HANDLE)
00081 !
00082 END SUBROUTINE DEFAULT_ASSIM