source: LMDZ5/trunk/libf/phylmd/rrtm/yomsw15.F90 @ 5408

Last change on this file since 5408 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.1 KB
RevLine 
[1989]1MODULE YOMSW15
2
3USE PARKIND1  ,ONLY : JPIM     ,JPRB
4
5IMPLICIT NONE
6
7SAVE
8
9!     ------------------------------------------------------------------
10!*    ** *YOMSW15* - COEFFICIENTS FOR SHORTWAVE RADIATION TRANSFER
11!*                         FROZEN VERSION (CYCLE 15) OF YOESW
12!     ------------------------------------------------------------------
13
14REAL(KIND=JPRB) :: APAD15(2,3,7)
15REAL(KIND=JPRB) :: BPAD15(2,3,7)
16REAL(KIND=JPRB) :: RRAY15(2,6)
17REAL(KIND=JPRB) :: RSUN15(2)
18REAL(KIND=JPRB) :: RPDH115
19REAL(KIND=JPRB) :: RPDU115
20REAL(KIND=JPRB) :: RPNH15
21REAL(KIND=JPRB) :: RPNU15
22REAL(KIND=JPRB) :: RSWCE15
23REAL(KIND=JPRB) :: RSWCP15
24REAL(KIND=JPRB) :: RTDH2O15
25REAL(KIND=JPRB) :: RTDUMG15
26REAL(KIND=JPRB) :: RTH2O15
27REAL(KIND=JPRB) :: RTUMG15
28REAL(KIND=JPRB) :: D15(2,3)
29
30!        * E.C.M.W.F. PHYSICS PACKAGE *
31
32!        96-11: Ph. Dandin. Meteo-France
33!     ORIGINAL BY J.-J. MORCRETTE       E.C.M.W.F.      89/07/14
34
35!  NAME       TYPE     PURPOSE
36!  ----    :  ----   : -------------------------------------------------
37!  APAD15  :  REAL     PADE APPROXIMANTS NUMERATOR
38!  BPAD15  :  REAL     PADE APPROXIMANTS DENOMINATOR
39!  D15     :  REAL     TRANSMISSION LIMIT FOR INFINITE ABSORBER AMOUNT
40!  RRAY15  :  REAL     RAYLEIGH SCATTERING COEFFICIENTS
41!  RSUN15  :  REAL     SOLAR FRACTION IN SPECTRAL INTERVALS
42!  RPDH115 :  1 + EXPONENT PRESSURE DEPENDENCE H2O
43!  RPDU115 :  1 + EXPONENT PRESSURE DEPENDENCE UNIFORMLY MIXED GASES
44!  RPNH15  :  REFERENCE PRESSURE FACTOR FOR H2O
45!  RPNU15  :  REFERENCE PRESSURE FACTOR FOR UNIFORMLY MIXED GASES
46!  RSWCE15 :  E-TYPE, H2O CONTINUUM ABSORP. COEFFICIENT OVER 0.68-4 MU
47!  RSWCP15 :  P-TYPE, H2O CONTINUUM ABSORP. COEFFICIENT OVER 0.68-4 MU
48!  RTDH2O15:  EXPONENT TEMPERATURE DEPENDENCE H2O
49!  RTDUMG15:  EXPONENT TEMPERATURE DEPENDENCE UNIFORMLY MIXED GASES
50!  RTH2O15 :  REFERENCE TEMPERATURE H2O
51!  RTUMG15 :  REFERENCE TEMPERATURE UNIFORMLY MIXED GASES
52!     -----------------------------------------------------------------
[2010]53!$OMP THREADPRIVATE(apad15,bpad15,d15,rpdh115,rpdu115,rpnh15,rpnu15,rray15,rsun15,rswce15,rswcp15)
54!$OMP THREADPRIVATE(rtdh2o15,rtdumg15,rth2o15,rtumg15)
[1989]55END MODULE YOMSW15
Note: See TracBrowser for help on using the repository browser.