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

Go to the documentation of this file.
00001 !     #########
00002       SUBROUTINE DEFAULT_FLAKE(PTSTEP,POUT_TSTEP,OSEDIMENTS,HSNOW_FLK, &
00003         HFLK_FLUX,HFLK_ALB,PICHCE,OPRECIP,OPWEBB)  
00004 !     ########################################################################
00005 !
00006 !!****  *DEFAULT_FLAKE* - routine to set default values for the configuration for FLAKE scheme
00007 !!
00008 !!    PURPOSE
00009 !!    -------
00010 !!
00011 !!**  METHOD
00012 !!    ------
00013 !!
00014 !!    EXTERNAL
00015 !!    --------
00016 !!
00017 !!
00018 !!    IMPLICIT ARGUMENTS
00019 !!    ------------------
00020 !!
00021 !!    REFERENCE
00022 !!    ---------
00023 !!
00024 !!
00025 !!    AUTHOR
00026 !!    ------
00027 !!      V. Masson   *Meteo France*      
00028 !!
00029 !!    MODIFICATIONS
00030 !!    -------------
00031 !!      Original    01/2004 
00032 !-------------------------------------------------------------------------------
00033 !
00034 !*       0.    DECLARATIONS
00035 !              ------------
00036 !
00037 USE MODD_SURF_PAR,   ONLY : XUNDEF
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 REAL,             INTENT(OUT) :: PTSTEP     ! time step for run
00050 REAL,             INTENT(OUT) :: POUT_TSTEP ! time step for writing
00051 !
00052 LOGICAL,          INTENT(OUT) :: OSEDIMENTS 
00053  CHARACTER(LEN=3), INTENT(OUT) :: HSNOW_FLK
00054  CHARACTER(LEN=5), INTENT(OUT) :: HFLK_FLUX
00055  CHARACTER(LEN=4), INTENT(OUT) :: HFLK_ALB
00056 REAL(KIND=JPRB) :: ZHOOK_HANDLE
00057 !
00058 REAL,             INTENT(OUT) :: PICHCE     ! ECUME
00059 LOGICAL,          INTENT(OUT) :: OPRECIP    ! ECUME
00060 LOGICAL,          INTENT(OUT) :: OPWEBB     ! ECUME
00061 !
00062 !
00063 !*       0.2   Declarations of local variables
00064 !              -------------------------------
00065 !
00066 !-------------------------------------------------------------------------------
00067 !
00068 IF (LHOOK) CALL DR_HOOK('DEFAULT_FLAKE',0,ZHOOK_HANDLE)
00069 PTSTEP     = XUNDEF
00070 POUT_TSTEP = XUNDEF
00071 !
00072 OSEDIMENTS  = .FALSE.
00073 HSNOW_FLK   = 'DEF'
00074 HFLK_FLUX   = 'DEF  '
00075 HFLK_ALB    = 'UNIF'
00076 !
00077 PICHCE      = 0.
00078 OPRECIP     = .FALSE.
00079 OPWEBB      = .FALSE.
00080 !
00081 IF (LHOOK) CALL DR_HOOK('DEFAULT_FLAKE',1,ZHOOK_HANDLE)
00082 !-------------------------------------------------------------------------------
00083 !
00084 END SUBROUTINE DEFAULT_FLAKE