source: LMDZ5/trunk/libf/phymar/suovlp.F90 @ 5452

Last change on this file since 5452 was 2089, checked in by Laurent Fairhead, 10 years ago

Inclusion de la physique de MAR


Integration of MAR physics

File size: 1.0 KB
RevLine 
[2089]1SUBROUTINE SUOVLP ( KLEV, PAZ )
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!     ------------------------------------------------------------------
22
23#include "tsmbkind.h"
24
25USE YOERAD   , ONLY : RAOVLP, RBOVLP
26USE YOEOVLP  , ONLY : RA1OVLP
27
28IMPLICIT NONE
29
30!     ------------------------------------------------------------------
31
32!*       0.1   ARGUMENTS
33!              ---------
34
35INTEGER_M :: KLEV
36
37REAL_B :: PAZ(KLEV)
38
39!     ------------------------------------------------------------------
40
41!     LOCAL INTEGER PARAMETERS
42
43INTEGER_M :: JK
44
45DO JK=1,KLEV
46  RA1OVLP(JK)=RAOVLP*PAZ(JK)+RBOVLP
47END DO 
48
49!     ------------------------------------------------------------------
50RETURN
51END SUBROUTINE SUOVLP
Note: See TracBrowser for help on using the repository browser.