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

Go to the documentation of this file.
00001 !     #########
00002       SUBROUTINE DEFAULT_PREP_FLAKE
00003 !     ###########################
00004 !
00005 !!****  *DEFAULT_PREP_FLAKE* - routine to set default values for the configuration for FLAKE fields 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 !-------------------------------------------------------------------------------
00032 !
00033 !*       0.    DECLARATIONS
00034 !              ------------
00035 !
00036 USE MODD_PREP_FLAKE,   ONLY : CFILE_FLAKE, CTYPE, CFILEPGD_FLAKE, CTYPEPGD, XTS_UNIF, &
00037                                 XUNIF_T_SNOW, XUNIF_T_ICE, XUNIF_T_MNW, XUNIF_T_WML,  &
00038                                 XUNIF_T_BOT, XUNIF_T_B1, XUNIF_CT, XUNIF_H_SNOW,      &
00039                                 XUNIF_H_ICE, XUNIF_H_ML, XUNIF_H_B1 !, &  
00040 !                              XUNIF_T_SNOW_DEF, &
00041 !                              XUNIF_T_ICE_DEF,  &
00042 !                              XUNIF_T_MNW_DEF,  &
00043 !                              XUNIF_T_WML_DEF,  &
00044 !                              XUNIF_T_BOT_DEF,  &
00045 !                              XUNIF_T_B1_DEF,   &
00046 !                              XUNIF_CT_DEF,     &
00047 !                              XUNIF_H_SNOW_DEF, &
00048 !                              XUNIF_H_ICE_DEF,  &
00049 !                              XUNIF_H_ML_DEF,   &
00050 !                              XUNIF_H_B1_DEF 
00051 !
00052 USE MODN_PREP_FLAKE, ONLY : LWAT_SBL
00053 !
00054 USE MODD_SURF_PAR,   ONLY : XUNDEF 
00055 !
00056 !
00057 USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
00058 USE PARKIND1  ,ONLY : JPRB
00059 !
00060 IMPLICIT NONE
00061 !
00062 !*       0.1   Declarations of arguments
00063 !              -------------------------
00064 !
00065 !
00066 !
00067 !*       0.2   Declarations of local variables
00068 !              -------------------------------
00069 !
00070 !-------------------------------------------------------------------------------
00071 !
00072 
00073 REAL(KIND=JPRB) :: ZHOOK_HANDLE
00074 
00075 IF (LHOOK) CALL DR_HOOK('DEFAULT_PREP_FLAKE',0,ZHOOK_HANDLE)
00076 CFILE_FLAKE  = '                          '
00077 CTYPE        = '      '
00078 !
00079 CFILEPGD_FLAKE = '                          '
00080 CTYPEPGD       = '      '
00081 !
00082 XTS_UNIF = XUNDEF
00083 XUNIF_T_SNOW   = XUNDEF
00084 XUNIF_T_ICE    = XUNDEF
00085 XUNIF_T_MNW    = XUNDEF
00086 XUNIF_T_WML    = XUNDEF
00087 XUNIF_T_BOT    = XUNDEF
00088 XUNIF_T_B1     = XUNDEF
00089 XUNIF_CT       = XUNDEF
00090 XUNIF_H_SNOW   = XUNDEF
00091 XUNIF_H_ICE    = XUNDEF
00092 XUNIF_H_ML     = XUNDEF
00093 XUNIF_H_B1     = XUNDEF
00094 
00095 LWAT_SBL = .FALSE. 
00096 IF (LHOOK) CALL DR_HOOK('DEFAULT_PREP_FLAKE',1,ZHOOK_HANDLE)
00097 !XUNIF_T_SNOW_DEF =
00098 !XUNIF_T_ICE_DEF =
00099 !XUNIF_T_MNW_DEF =
00100 !XUNIF_T_WML_DEF =
00101 !XUNIF_T_BOT_DEF =
00102 !XUNIF_T_B1_DEF =
00103 !XUNIF_CT_DEF =
00104 !XUNIF_H_SNOW_DEF =
00105 !XUNIF_H_ICE_DEF =
00106 !XUNIF_H_ML_DEF =
00107 !XUNIF_H_B1_DEF =
00108 !-------------------------------------------------------------------------------
00109 !
00110 END SUBROUTINE DEFAULT_PREP_FLAKE