seapre.F90

Go to the documentation of this file.

SUBROUTINE seapre(PARA,KPARA,PSTPRE,KLEV)

!**** *SEAPRE*   - Search corresponding level to input pressure

!     Purpose.
!     --------
!           Serach corresponding level of the model to an input pressure
!           through standard atmosphere.

!**   Interface.
!     ----------
!        *CALL* *SEAPRE(PARA,KPARA,PSTPRE,KLEV)

!        Explicit arguments :
!        --------------------
!        PARA  : Pressure                           (input)
!        KPARA  : Level                              (output)
!        PSTPRE : Standard atmosphere                (input)
!        KLEV   : Number of level of the model       (input)

!        Implicit arguments :
!        --------------------
!        none

!     Method.
!     -------
!        See documentation

!     Externals.
!     ----------

!     Reference.
!     ----------
!        Documentation ARPEGE

!     Author.
!     -------
!        A. Lasserre-Bigorry

!     Modifications.
!     --------------
!        Original : 91-06-10
!        M.Hamrud      01-Oct-2003 CY28 Cleaning
!     ------------------------------------------------------------------

USE parkind1  ,ONLY : jpim     ,jprb
USE yomhook   ,ONLY : lhook,   dr_hook

IMPLICIT NONE

INTEGER(KIND=JPIM),INTENT(IN)    :: KLEV 
REAL(KIND=JPRB)   ,INTENT(IN)    :: PARA 
INTEGER(KIND=JPIM),INTENT(OUT)   :: KPARA 
REAL(KIND=JPRB)   ,INTENT(IN)    :: PSTPRE(klev) 
INTEGER(KIND=JPIM) :: JLEV
REAL(KIND=JPRB) :: ZHOOK_HANDLE

!*      1.  SEARCH OF CORRESPONDING LEVEL
!           -----------------------------
IF (lhook) CALL dr_hook('SEAPRE',0,zhook_handle)
kpara=klev
DO jlev=klev,1,-1
  IF(para <= pstpre(jlev)) kpara=jlev
ENDDO

IF (lhook) CALL dr_hook('SEAPRE',1,zhook_handle)
END SUBROUTINE seapre