source: LMDZ6/branches/IPSLCM6.0.13/libf/phylmd/rrtm/yoerdi.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: 1.6 KB
Line 
1MODULE YOERDI
2
3USE PARKIND1  ,ONLY : JPRB
4
5IMPLICIT NONE
6
7SAVE
8
9!     -----------------------------------------------------------------
10!*    ** *YOERDI* - COEFFICIENTS WITHIN RADIATION INTERFACE
11!     -----------------------------------------------------------------
12
13REAL(KIND=JPRB) :: RRAE
14REAL(KIND=JPRB) :: RSUNDUR
15REAL(KIND=JPRB) :: RCARDI
16REAL(KIND=JPRB) :: RCH4
17REAL(KIND=JPRB) :: RN2O
18REAL(KIND=JPRB) :: RO3
19REAL(KIND=JPRB) :: RCFC11
20REAL(KIND=JPRB) :: RCFC12
21REAL(KIND=JPRB) :: REPCLC
22REAL(KIND=JPRB) :: REPH2O
23REAL(KIND=JPRB) :: RCCO2, RCCH4, RCN2O, RCCFC11, RCCFC12
24REAL(KIND=JPRB) :: RHVAR(151,5), RFVAR(101,3,5), RINCSOL(154), RSOLINC
25
26!        * E.C.M.W.F. PHYSICS PACKAGE *
27
28!     Original  J.-J. MORCRETTE       E.C.M.W.F.      89/07/14
29!     Modified  P. Viterbo    99/03/26    Surface tiling
30!     Modified  P. Viterbo    24/05/2004  surf library
31!     Modified JJMorcrette    2005/01/19  GHG and Solar constant variability
32
33!  NAME     TYPE     PURPOSE
34!  ----  :  ----   : ---------------------------------------------------
35! RRAE   : EFFECT OF EARTH'S CURVATURE ON COSINE SOLAR ZENITH ANGLE
36! RSUNDUR: MINIMUM DIRECT SOLAR FOR COMPUTING SOLAR DURATION
37! RCARDI : SPECIFIC ATMOSPHERIC CONTENT IN CO2
38! REPCLC : SECURITY TO AVOID ZERO OR ONE CLOUD COVERS
39! REPH2O : SECURITY TO AVOID WATER VAPOUR CONTENT IN A LAYER
40!          TO BE MORE THAN THE RESPECTIVE VALUE AT SATURATION.
41!     -----------------------------------------------------------------
42
43!$OMP THREADPRIVATE(rcardi,rccfc11,rccfc12,rcch4,rcco2,rcfc11,rcfc12,rch4)
44!$OMP THREADPRIVATE(rcn2o,repclc,reph2o,rfvar,rhvar,rincsol,rn2o,ro3,rrae)
45!$OMP THREADPRIVATE(rsolinc,rsundur)
46
47END MODULE YOERDI
Note: See TracBrowser for help on using the repository browser.