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

Go to the documentation of this file.
00001 !     #########
00002       SUBROUTINE DEFAULT_SEAFLUX(PTSTEP,POUT_TSTEP,HSEA_ALB,HSEA_FLUX, &
00003                                    OPWG, OPRECIP, OPWEBB, KGRVWAVES,     &
00004                                    OPROGSST, KTIME_COUPLING,             &
00005                                    PICHCE, HINTERPOL_SST       )  
00006 !     ########################################################################
00007 !
00008 !!****  *DEFAULT_SEAFLUX* - routine to set default values for the configuration for SEAFLUX scheme
00009 !!
00010 !!    PURPOSE
00011 !!    -------
00012 !!
00013 !!**  METHOD
00014 !!    ------
00015 !!
00016 !!    EXTERNAL
00017 !!    --------
00018 !!
00019 !!
00020 !!    IMPLICIT ARGUMENTS
00021 !!    ------------------
00022 !!
00023 !!    REFERENCE
00024 !!    ---------
00025 !!
00026 !!
00027 !!    AUTHOR
00028 !!    ------
00029 !!      V. Masson   *Meteo France*      
00030 !!
00031 !!    MODIFICATIONS
00032 !!    -------------
00033 !!      Original    01/2004 
00034 !!      Modified    01/2006 : sea flux parameterization.
00035 
00036 !-------------------------------------------------------------------------------
00037 !
00038 !*       0.    DECLARATIONS
00039 !              ------------
00040 !
00041 USE MODD_SURF_PAR,   ONLY : XUNDEF
00042 !
00043 !
00044 USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
00045 USE PARKIND1  ,ONLY : JPRB
00046 !
00047 IMPLICIT NONE
00048 !
00049 !*       0.1   Declarations of arguments
00050 !              -------------------------
00051 !
00052 !
00053 REAL,              INTENT(OUT) :: PTSTEP        ! time step for run
00054 REAL,              INTENT(OUT) :: POUT_TSTEP    ! time step for writing
00055  CHARACTER(LEN=6),  INTENT(OUT) :: HSEA_FLUX     ! type of sea scheme
00056  CHARACTER(LEN=4),  INTENT(OUT) :: HSEA_ALB      ! type of sea albedo
00057 LOGICAL,           INTENT(OUT) :: OPWG          ! gustiness impact
00058 LOGICAL,           INTENT(OUT) :: OPRECIP       ! precipitation correction
00059 LOGICAL,           INTENT(OUT) :: OPWEBB        ! Webb correction
00060 INTEGER,           INTENT(OUT) :: KGRVWAVES     ! Wave gravity in roughness length
00061 LOGICAL,           INTENT(OUT) :: OPROGSST      !two-way coupling
00062 INTEGER,           INTENT(OUT) :: KTIME_COUPLING!coupling frequency
00063 REAL,              INTENT(OUT) :: PICHCE        !CE coef calculation for ECUME
00064  CHARACTER(LEN=6),  INTENT(OUT) :: HINTERPOL_SST ! Quadratic interpolation of monthly SST
00065 REAL(KIND=JPRB) :: ZHOOK_HANDLE
00066 !
00067 !*       0.2   Declarations of local variables
00068 !              -------------------------------
00069 !
00070 !-------------------------------------------------------------------------------
00071 !
00072 IF (LHOOK) CALL DR_HOOK('DEFAULT_SEAFLUX',0,ZHOOK_HANDLE)
00073 PTSTEP     = XUNDEF
00074 POUT_TSTEP = XUNDEF
00075 !
00076 HSEA_FLUX = "ECUME "
00077 HSEA_ALB  = "TA96"
00078 !
00079 OPWG    = .FALSE.
00080 OPRECIP = .FALSE. 
00081 OPWEBB  = .FALSE.
00082 !
00083 KGRVWAVES = 0
00084 !
00085 OPROGSST = .FALSE.
00086 KTIME_COUPLING = 300
00087 !
00088 PICHCE = 0.0
00089 !
00090 HINTERPOL_SST = "NONE"
00091 IF (LHOOK) CALL DR_HOOK('DEFAULT_SEAFLUX',1,ZHOOK_HANDLE)
00092 !
00093 !-------------------------------------------------------------------------------
00094 !
00095 END SUBROUTINE DEFAULT_SEAFLUX