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

Go to the documentation of this file.
00001 !     #########
00002 SUBROUTINE PREP_WATFLUX_UNIF(KLUOUT,HSURF,PFIELD)
00003 !     #################################################################################
00004 !
00005 !!****  *PREP_WATFLUX_UNIF* - prepares WATFLUX field from prescribed values
00006 !!
00007 !!    PURPOSE
00008 !!    -------
00009 !
00010 !!**  METHOD
00011 !!    ------
00012 !!
00013 !!    REFERENCE
00014 !!    ---------
00015 !!      
00016 !!
00017 !!    AUTHOR
00018 !!    ------
00019 !!     S. Malardel
00020 !!
00021 !!    MODIFICATIONS
00022 !!    -------------
00023 !!      Original    01/2004
00024 !!------------------------------------------------------------------
00025 !
00026 !
00027 USE MODD_PREP,       ONLY : CINTERP_TYPE
00028 USE MODD_PREP_WATFLUX,   ONLY : XTS_WATER_UNIF
00029 !
00030 !
00031 USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
00032 USE PARKIND1  ,ONLY : JPRB
00033 !
00034 IMPLICIT NONE
00035 !
00036 !*      0.1    declarations of arguments
00037 !
00038 INTEGER,            INTENT(IN)  :: KLUOUT    ! output listing logical unit
00039  CHARACTER(LEN=7),   INTENT(IN)  :: HSURF     ! type of field
00040 REAL, POINTER, DIMENSION(:,:)   :: PFIELD    ! field to interpolate horizontally
00041 REAL(KIND=JPRB) :: ZHOOK_HANDLE
00042 !
00043 !*      0.2    declarations of local variables
00044 !
00045 !
00046 !-------------------------------------------------------------------------------------
00047 !
00048 IF (LHOOK) CALL DR_HOOK('PREP_WATFLUX_UNIF',0,ZHOOK_HANDLE)
00049 SELECT CASE(HSURF)
00050 !
00051 !*      3.0    Orography
00052 !
00053   CASE('ZS     ')
00054     ALLOCATE(PFIELD(1,1))
00055     PFIELD = 0.
00056 !
00057 !*      3.1    Lake temperature
00058 !
00059   CASE('TSWATER')
00060     ALLOCATE(PFIELD(1,1))
00061     PFIELD = XTS_WATER_UNIF
00062 !
00063 END SELECT
00064 !
00065 !*      4.     Interpolation method
00066 !              --------------------
00067 !
00068 CINTERP_TYPE='UNIF  '
00069 IF (LHOOK) CALL DR_HOOK('PREP_WATFLUX_UNIF',1,ZHOOK_HANDLE)
00070 !
00071 !
00072 !-------------------------------------------------------------------------------------
00073 END SUBROUTINE PREP_WATFLUX_UNIF