suovlp.F90

Go to the documentation of this file.

SUBROUTINE suovlp ( KLEV )
  
!***** *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
!        M.Hamrud      01-Oct-2003 CY28 Cleaning
!     ------------------------------------------------------------------

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

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

IMPLICIT NONE

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

!     DUMMY PARAMETERS

INTEGER(KIND=JPIM),INTENT(IN)    :: KLEV 

INTEGER(KIND=JPIM) :: JK
REAL(KIND=JPRB) :: ZHOOK_HANDLE

IF (lhook) CALL dr_hook('SUOVLP',0,zhook_handle)
DO jk=1,klev
  ra1ovlp(jk)=raovlp*stz(jk)+rbovlp
  print *,'SU_OVLP: JK RAOVLP STZ RBOVLP:',jk,raovlp,stz(jk),rbovlp
ENDDO  

!     ------------------------------------------------------------------
IF (lhook) CALL dr_hook('SUOVLP',1,zhook_handle)
END SUBROUTINE suovlp