source: LMDZ5/branches/LMDZ5_SPLA/libf/phylmd/rrtm/yomrdi15.F90

Last change on this file was 2010, checked in by Laurent Fairhead, 11 years ago

Modifications pour OpenMP


OpenMP modifications

  • 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: 2.3 KB
Line 
1MODULE YOMRDI15
2
3USE PARKIND1  ,ONLY : JPIM     ,JPRB
4
5IMPLICIT NONE
6
7SAVE
8
9!     -----------------------------------------------------------------
10!*    ** *YOMRDI15* - COEFFICIENTS WITHIN RADIATION INTERFACE
11!*                          FROZEN VERSION (CYCLE 15) OF YOERDI
12!     -----------------------------------------------------------------
13
14REAL(KIND=JPRB) :: RSDTSN15
15REAL(KIND=JPRB) :: RRAE15
16REAL(KIND=JPRB) :: RMU0015
17REAL(KIND=JPRB) :: RALBICE15
18REAL(KIND=JPRB) :: RALBSEA15
19REAL(KIND=JPRB) :: RALBSNM15
20REAL(KIND=JPRB) :: RALBSNO15
21REAL(KIND=JPRB) :: RCARDI15
22REAL(KIND=JPRB) :: REMISS15
23REAL(KIND=JPRB) :: RSNOWAL15
24REAL(KIND=JPRB) :: RVLBDC15
25REAL(KIND=JPRB) :: RCH415
26REAL(KIND=JPRB) :: RN2O15
27REAL(KIND=JPRB) :: RCFC1115
28REAL(KIND=JPRB) :: RCFC1215
29REAL(KIND=JPRB) :: REPALB15
30REAL(KIND=JPRB) :: REPCLC15
31REAL(KIND=JPRB) :: REPH2O15
32
33!        * E.C.M.W.F. PHYSICS PACKAGE *
34
35!        96-11: Ph. Dandin. Meteo-France
36!     J.-J. MORCRETTE       E.C.M.W.F.      89/07/14
37
38!  NAME       TYPE     PURPOSE
39!  ----    :  ----   : -------------------------------------------------
40! RSDTSN15 :
41! RRAE15   : EFFECT OF EARTH'S CURVATURE ON COSINE SOLAR ZENITH ANGLE
42! RMU0015  : MINIMUM COSINE OF SOLAR ZENITH ANGLE DUE TO EARTH'S
43!            CURVATURE
44! RALBICE15: FLOATING ICE ALBEDO (Unusefull for FMR in Arpege-climat)
45! RALBSEA15: OPEN SEA ALBEDO (Unusefull for FMR in Arpege-climat)
46! RALBSNM15:       SNOW ALBEDO (Unusefull for FMR in Arpege-climat)
47! RALBSNO15: THICK SNOW ALBEDO (Unusefull for FMR in Arpege-climat)
48
49! RCARDI15 : SPECIFIC ATMOSPHERIC CONTENT IN CO2
50! REMISS15 : SURFACE LONGWAVE EMISSIVITY
51
52! RSNOWAL15: SNOW DEPTH (IN EQUIVALENT WATER) FOR WHICH SNOW IS
53!            CONSIDERED AS THICK
54! RVLBDC15 : SPECIFIES THE REDUCTION OF THERMAL DIFFUSION UNDER
55!            VEGETATION
56! REPALB15 : SECURITY TO AVOID ZERO ALBEDOS.
57! REPCLC15 : SECURITY TO AVOID ZERO OR ONE CLOUD COVERS
58! REPH2O15 : SECURITY TO AVOID WATER VAPOUR CONTENT IN A LAYER
59!            TO BE MORE THAN THE RESPECTIVE VALUE AT SATURATION.
60!     -----------------------------------------------------------------
61!$OMP THREADPRIVATE(ralbice15,ralbsea15,ralbsnm15,ralbsno15,rcardi15,rcfc1115,rcfc1215,rch415)
62!$OMP THREADPRIVATE(remiss15,repalb15,repclc15,reph2o15,rmu0015,rn2o15,rrae15,rsdtsn15,rsnowal15,rvlbdc15)
63END MODULE YOMRDI15
Note: See TracBrowser for help on using the repository browser.