read_prep_file_date.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 read_prep_file_date (HPROGRAM,HFILE,HFILETYPE,TPTIME,KLUOUT)
!     #################################################################################
!
!!****  *READ_PREP_FILE_DATE* - reads the date for the surface
!!
!!    PURPOSE
!!    -------
!
!!**  METHOD
!!    ------
!!
!!    REFERENCE
!!    ---------
!!      
!!
!!    AUTHOR
!!    ------
!!     S. Malardel
!!
!!    MODIFICATIONS
!!    -------------
!!      Original    01/2004
!!      P. Le Moigne 10/2005, Phasage Arome
!!------------------------------------------------------------------
!
!
USE modd_io_buff, ONLY : crec, nrec
!
USE modd_type_date_surf
!
USE modi_prep_grib_grid
USE modi_read_buffer
USE modi_open_aux_io_surf
USE modi_read_surf
USE modi_close_aux_io_surf
USE modi_abor1_sfx
!
!
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=28),  INTENT(IN)  :: HFILE     ! name of file
 CHARACTER(LEN=6),   INTENT(IN)  :: HFILETYPE ! file type
type(date_time),   INTENT(OUT) :: tptime    ! grib date and time
INTEGER,            INTENT(IN)  :: KLUOUT    ! logical unit of output listing
!
!*      0.2    declarations of local variables
!
 CHARACTER(LEN=12), DIMENSION(SIZE(CREC)) :: HREC   ! list of records already read/written
INTEGER                            :: IREC
 CHARACTER(LEN=6)              :: YINMODEL  ! model from which GRIB file originates
 CHARACTER(LEN=6)             :: YINTERPTYPE
 CHARACTER(LEN=10)             :: YGRIDTYPE ! Grid type
INTEGER                       :: IRESP     ! Error code after redding
REAL(KIND=JPRB) :: ZHOOK_HANDLE
!
!-------------------------------------------------------------------------------------
!
!*      1.     Reading date in a grib file
!              --------------------------
!
IF (lhook) CALL dr_hook('READ_PREP_FILE_DATE',0,zhook_handle)
IF(hfiletype=='GRIB  ') THEN
!
  CALL prep_grib_grid(hfile,kluout,yinmodel,ygridtype,yinterptype,tptime)
!
ELSE IF(hfiletype=='MESONH' .OR. hfiletype=='LFI   ' .OR. hfiletype=='ASCII '.OR. hfiletype=='FA    '.OR.&
        hfiletype=='NC    ') THEN
!
  hrec = crec
  irec = nrec
  CALL open_aux_io_surf(hfile,hfiletype,'FULL  ')
  CALL read_surf(hfiletype,'DTCUR           ',tptime,iresp)
  CALL close_aux_io_surf(hfile,hfiletype)
  crec = hrec
  nrec = irec
!
ELSE IF(hfiletype=='BUFFER') THEN
!
 CALL read_buffer('YEAR  ',tptime%TDATE%YEAR,iresp)
 CALL read_buffer('MONTH ',tptime%TDATE%MONTH,iresp)
 CALL read_buffer('DAY   ',tptime%TDATE%DAY,iresp)
 CALL read_buffer('TIME  ',tptime%TIME,iresp)
!
ELSE
!
  WRITE(unit=kluout, fmt=*) 'STOP IN READ_PREP_FILE_DATE'
  WRITE(unit=kluout,  fmt='("FILETYPE =",A6,"NOT SUPPORTED")') hfiletype 
  CALL abor1_sfx("READ_PREP_FILE_DATE: FILETYPE NOT SUPPORTED")
!
ENDIF
IF (lhook) CALL dr_hook('READ_PREP_FILE_DATE',1,zhook_handle)
!
!-------------------------------------------------------------------------------------
END SUBROUTINE read_prep_file_date