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

Go to the documentation of this file.
00001 !     #########
00002 SUBROUTINE PREP_SEAFLUX_UNIF(KLUOUT,HSURF,PFIELD)
00003 !     #################################################################################
00004 !
00005 !!****  *PREP_SEAFLUX_UNIF* - prepares SEAFLUX 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 !
00028 USE MODD_PREP,       ONLY : CINTERP_TYPE
00029 USE MODD_PREP_SEAFLUX,   ONLY : XSST_UNIF
00030 !
00031 !
00032 USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
00033 USE PARKIND1  ,ONLY : JPRB
00034 !
00035 IMPLICIT NONE
00036 !
00037 !*      0.1    declarations of arguments
00038 !
00039 INTEGER,            INTENT(IN)  :: KLUOUT    ! output listing logical unit
00040  CHARACTER(LEN=7),   INTENT(IN)  :: HSURF     ! type of field
00041 REAL, POINTER, DIMENSION(:,:)   :: PFIELD    ! field to interpolate horizontally
00042 REAL(KIND=JPRB) :: ZHOOK_HANDLE
00043 !
00044 !*      0.2    declarations of local variables
00045 !
00046 !
00047 !-------------------------------------------------------------------------------------
00048 !
00049 IF (LHOOK) CALL DR_HOOK('PREP_SEAFLUX_UNIF',0,ZHOOK_HANDLE)
00050 SELECT CASE(HSURF)
00051 !
00052 !*      3.0    Orography
00053 !
00054   CASE('ZS     ')
00055     ALLOCATE(PFIELD(1,1))
00056     PFIELD = 0.
00057 !
00058 !*      3.1    Sea surface temperature
00059 !
00060   CASE('SST    ')
00061     ALLOCATE(PFIELD(1,1))
00062     PFIELD = XSST_UNIF
00063 !
00064 END SELECT
00065 !
00066 !*      4.     Interpolation method
00067 !              --------------------
00068 !
00069 CINTERP_TYPE='UNIF  '
00070 IF (LHOOK) CALL DR_HOOK('PREP_SEAFLUX_UNIF',1,ZHOOK_HANDLE)
00071 !
00072 !
00073 !-------------------------------------------------------------------------------------
00074 END SUBROUTINE PREP_SEAFLUX_UNIF