prep_flake_buffer.F90

Go to the documentation of this file.

!SFX_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier
!SFX_LIC This is part of the SURFEX software governed by the CeCILL-C licence
!SFX_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt  
!SFX_LIC for details. version 1.
!     #########
SUBROUTINE prep_flake_buffer(HPROGRAM,HSURF,KLUOUT,PFIELD)
!     #################################################################################
!
!!****  *PREP_FLAKE_BUFFER* - prepares FLAKE field from operational BUFFER
!!
!!    PURPOSE
!!    -------
!
!!**  METHOD
!!    ------
!!
!!    REFERENCE
!!    ---------
!!      
!!
!!    AUTHOR
!!    ------
!!     S. Malardel
!!
!!    MODIFICATIONS
!!    -------------
!!      Original    03/2005
!!------------------------------------------------------------------
!
!
USE mode_read_buffer
!
USE modd_type_date_surf
!
USE modi_prep_buffer_grid
!
USE modd_prep,       ONLY : cinterp_type
USE modd_grid_buffer,  ONLY : nni
!
!
USE yomhook   ,ONLY : lhook,   dr_hook
USE parkind1  ,ONLY : jprb
!
IMPLICIT NONE
!
!*      0.1    declarations of arguments
!
 CHARACTER(LEN=6),   INTENT(IN)  :: hprogram  ! program calling surf. schemes
 CHARACTER(LEN=7),   INTENT(IN)  :: hsurf     ! type of field
INTEGER,            INTENT(IN)  :: kluout    ! logical unit of output listing
REAL,DIMENSION(:,:), POINTER    :: pfield    ! field to interpolate horizontally
!
!*      0.2    declarations of local variables
!
TYPE (date_time)                :: tztime_buf    ! current date and time
 CHARACTER(LEN=6)              :: yinmodel ! model from which BUFFER file originates
REAL, DIMENSION(:), POINTER :: zfield   ! field read
REAL(KIND=JPRB) :: zhook_handle
!
!-------------------------------------------------------------------------------------
!
!*      1.     Reading of grid
!              ---------------
!
IF (lhook) CALL dr_hook('PREP_FLAKE_BUFFER',0,zhook_handle)
 CALL prep_buffer_grid(kluout,yinmodel,tztime_buf)

!
!*      2.     Reading of field
!              ----------------
!
!--------------------
SELECT CASE(hsurf)
!--------------------
!
!* 1.  Orography
!      ---------
!
  CASE('ZS     ')
    SELECT CASE (yinmodel)
      CASE ('ALADIN')
        CALL read_buffer_zs(kluout,yinmodel,zfield)
        ALLOCATE(pfield(nni,1))
        pfield(:,1) = zfield(:)
        DEALLOCATE(zfield)
    END SELECT

!
!* 3.  Temperature profiles
!      --------------------
!
  CASE('TS     ')
    SELECT CASE (yinmodel)
      CASE ('ALADIN')
        CALL read_buffer_t2(kluout,yinmodel,zfield)
        ALLOCATE(pfield(nni,1))
        pfield(:,1) = zfield(:)
        DEALLOCATE(zfield)
    END SELECT

END SELECT
!
!*      4.     Interpolation method
!              --------------------
!
 cinterp_type='NONE'
IF (lhook) CALL dr_hook('PREP_FLAKE_BUFFER',1,zhook_handle)
!
!
!-------------------------------------------------------------------------------------
END SUBROUTINE prep_flake_buffer