source: LMDZ5/branches/LMDZ6_rc0/libf/phylmd/rrtm/suovlp.F90 @ 3069

Last change on this file since 3069 was 1999, checked in by Laurent Fairhead, 11 years ago

Merged trunk changes r1920:1997 into testing branch

  • Property copyright set to
    Name of program: LMDZ
    Creation date: 1984
    Version: LMDZ5
    License: CeCILL version 2
    Holder: Laboratoire de m\'et\'eorologie dynamique, CNRS, UMR 8539
    See the license file in the root directory
File size: 1.2 KB
Line 
1SUBROUTINE SUOVLP ( KLEV )
2 
3!***** *SUOVLP*   -INITIALIZE PROFILE OF ALPHA1
4
5!**   INTERFACE.
6!     ----------
7!        CALL *SUOVLP* FROM *SUECRAD*
8!              ------        -------
9
10!     REFERENCE.
11!     ----------
12!        ECMWF Research Department documentation of the IFS
13
14!     AUTHOR.
15!     -------
16!        JEAN-JACQUES MORCRETTE  *ECMWF*
17
18!     MODIFICATIONS.
19!     --------------
20!        ORIGINAL : 01-02-16
21!        M.Hamrud      01-Oct-2003 CY28 Cleaning
22!     ------------------------------------------------------------------
23
24USE PARKIND1  ,ONLY : JPIM     ,JPRB
25USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
26
27USE YOERAD   , ONLY : RAOVLP, RBOVLP
28USE YOEOVLP  , ONLY : RA1OVLP
29USE YOMSTA   , ONLY : STZ
30
31IMPLICIT NONE
32
33!     ------------------------------------------------------------------
34
35!     DUMMY PARAMETERS
36
37INTEGER(KIND=JPIM),INTENT(IN)    :: KLEV
38
39INTEGER(KIND=JPIM) :: JK
40REAL(KIND=JPRB) :: ZHOOK_HANDLE
41
42IF (LHOOK) CALL DR_HOOK('SUOVLP',0,ZHOOK_HANDLE)
43DO JK=1,KLEV
44  RA1OVLP(JK)=RAOVLP*STZ(JK)+RBOVLP
45  print *,'SU_OVLP: JK RAOVLP STZ RBOVLP:',JK,RAOVLP,STZ(JK),RBOVLP
46ENDDO 
47
48!     ------------------------------------------------------------------
49IF (LHOOK) CALL DR_HOOK('SUOVLP',1,ZHOOK_HANDLE)
50END SUBROUTINE SUOVLP
Note: See TracBrowser for help on using the repository browser.