suovlp.F90

Go to the documentation of this file.

SUBROUTINE suovlp ( KLEV, PAZ )
  
!***** *SUOVLP*   -INITIALIZE PROFILE OF ALPHA1

!**   INTERFACE.
!     ----------
!        CALL *SUOVLP* FROM *SUECRAD*
!              ------        -------
!
!     REFERENCE.
!     ----------
!        ECMWF Research Department documentation of the IFS

!     AUTHOR.
!     -------
!        JEAN-JACQUES MORCRETTE  *ECMWF*
!
!     MODIFICATIONS.
!     --------------
!        ORIGINAL : 01-02-16
!     ------------------------------------------------------------------

#include "tsmbkind.h"

USE yoerad   , ONLY : raovlp, rbovlp
USE yoeovlp  , ONLY : ra1ovlp

IMPLICIT NONE

!     ------------------------------------------------------------------

!*       0.1   ARGUMENTS
!              ---------

integer_m :: klev

real_b :: paz(klev)

!     ------------------------------------------------------------------

!     LOCAL INTEGER PARAMETERS

integer_m :: jk

DO jk=1,klev
  ra1ovlp(jk)=raovlp*paz(jk)+rbovlp
END DO  

!     ------------------------------------------------------------------
RETURN
END SUBROUTINE suovlp