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

Go to the documentation of this file.
00001 !     #########
00002       SUBROUTINE PREP_BUFFER_GRID(KLUOUT,HINMODEL,TPTIME_BUF)
00003 !     ##########################################################################
00004 !
00005 !!****  *PREP_BUFFER_GRID* - reads BUFFER infos
00006 !!
00007 !!    PURPOSE
00008 !!    -------
00009 !!
00010 !!**  METHOD
00011 !!    ------
00012 !!
00013 !!    EXTERNAL
00014 !!    --------
00015 !!
00016 !!    IMPLICIT ARGUMENTS
00017 !!    ------------------
00018 !!
00019 !!
00020 !!    REFERENCE
00021 !!    ---------
00022 !!
00023 !!
00024 !!    AUTHOR
00025 !!    ------
00026 !!
00027 !!      S.Malardel
00028 !!
00029 !!    MODIFICATIONS
00030 !!    -------------
00031 !!      Original   03/2005
00032 !!      Y. Seity   08/2006 :  for NEC Prepsurfex configuration (pbs LEN /=6)
00033 !-------------------------------------------------------------------------------
00034 !
00035 !*      0. DECLARATIONS
00036 !          ------------
00037 !
00038 USE MODD_TYPE_DATE_SURF
00039 !
00040 USE MODI_READ_BUFFER
00041 !
00042 USE MODD_GRID_BUFFER,  ONLY : NNI
00043 !
00044 !
00045 USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
00046 USE PARKIND1  ,ONLY : JPRB
00047 !
00048 USE MODI_ABOR1_SFX
00049 !
00050 IMPLICIT NONE
00051 !
00052 !* 0.1. Declaration of arguments
00053 !       ------------------------
00054 !
00055 INTEGER,          INTENT(IN)    :: KLUOUT    ! logical unit of output listing
00056  CHARACTER(LEN=6), INTENT(OUT)   :: HINMODEL  ! originating model
00057 TYPE (DATE_TIME)                :: TPTIME_BUF    ! current date and time
00058 
00059 !
00060 !* 0.2 Declaration of local variables
00061 !      ------------------------------
00062 INTEGER                           :: IRET      ! return code
00063 REAL(KIND=JPRB) :: ZHOOK_HANDLE
00064 !
00065 !---------------------------------------------------------------------------------------
00066 !
00067 IF (LHOOK) CALL DR_HOOK('PREP_BUFFER_GRID',0,ZHOOK_HANDLE)
00068 WRITE (KLUOUT,'(A)') ' -- Buffer reader started'
00069 !
00070 ! 
00071 !---------------------------------------------------------------------------------------
00072 !* 1.  Read HINMODEL
00073 !---------------------------------------------------------------------------------------
00074 !
00075  CALL READ_BUFFER('INMODE',HINMODEL,IRET)
00076 
00077     IF (HINMODEL =='ALADIN' ) THEN
00078       WRITE (KLUOUT,'(A)') ' | Grib file from French Weather Service - Aladin model'
00079    ELSE
00080       CALL ABOR1_SFX('PREP_BUFFER_GRID: UNSUPPORTED GRIB FILE FORMAT')
00081    END IF
00082 !
00083 !---------------------------------------------------------------------------------------
00084 !* 3. Number of points
00085 !---------------------------------------------------------------------------------------
00086 !
00087  CALL READ_BUFFER('NNI   ',NNI,IRET)
00088 WRITE (KLUOUT,*)'apres READ BUFFER NNI=',NNI
00089 !---------------------------------------------------------------------------------------
00090 !* 2.4 Read date
00091 !---------------------------------------------------------------------------------------
00092 !
00093 WRITE (KLUOUT,'(A)') ' | Reading date'
00094 !
00095  CALL READ_BUFFER('YEAR  ',TPTIME_BUF%TDATE%YEAR,IRET )
00096  CALL READ_BUFFER('MONTH ',TPTIME_BUF%TDATE%MONTH,IRET )
00097  CALL READ_BUFFER('DAY   ',TPTIME_BUF%TDATE%DAY,IRET )
00098  CALL READ_BUFFER('TIME  ', TPTIME_BUF%TIME,IRET)
00099 IF (LHOOK) CALL DR_HOOK('PREP_BUFFER_GRID',1,ZHOOK_HANDLE)
00100 !
00101 END SUBROUTINE PREP_BUFFER_GRID