Last change
on this file since 3472 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
|
Line | |
---|
1 | SUBROUTINE 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 | |
---|
25 | USE YOERAD , ONLY : RAOVLP, RBOVLP |
---|
26 | USE YOEOVLP , ONLY : RA1OVLP |
---|
27 | |
---|
28 | IMPLICIT NONE |
---|
29 | |
---|
30 | ! ------------------------------------------------------------------ |
---|
31 | |
---|
32 | !* 0.1 ARGUMENTS |
---|
33 | ! --------- |
---|
34 | |
---|
35 | INTEGER_M :: KLEV |
---|
36 | |
---|
37 | REAL_B :: PAZ(KLEV) |
---|
38 | |
---|
39 | ! ------------------------------------------------------------------ |
---|
40 | |
---|
41 | ! LOCAL INTEGER PARAMETERS |
---|
42 | |
---|
43 | INTEGER_M :: JK |
---|
44 | |
---|
45 | DO JK=1,KLEV |
---|
46 | RA1OVLP(JK)=RAOVLP*PAZ(JK)+RBOVLP |
---|
47 | END DO |
---|
48 | |
---|
49 | ! ------------------------------------------------------------------ |
---|
50 | RETURN |
---|
51 | END SUBROUTINE SUOVLP |
---|
Note: See
TracBrowser
for help on using the repository browser.