source: LMDZ5/branches/LMDZ5_SPLA/libf/phylmd/rrtm/yoerrto8.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.5 KB
Line 
1MODULE YOERRTO8
2
3USE PARKIND1  ,ONLY : JPIM     ,JPRB
4
5IMPLICIT NONE
6
7SAVE
8
9!     -----------------------------------------------------------------
10!*    ** *YOERRTO8* - RRTM ORIGINAL COEFFICIENTS FOR INTERVAL 8
11!     BAND 8:  1080-1180 cm-1 (low (i.e.>~300mb) - H2O; high - O3)
12!     -----------------------------------------------------------------
13
14INTEGER(KIND=JPIM), PARAMETER :: NO8  = 16
15
16REAL(KIND=JPRB) , DIMENSION(NO8) :: FRACREFAO
17REAL(KIND=JPRB) , DIMENSION(NO8) :: FRACREFBO
18REAL(KIND=JPRB) , DIMENSION(NO8) :: CFC12O
19REAL(KIND=JPRB) , DIMENSION(NO8) :: CFC22ADJO
20REAL(KIND=JPRB) , DIMENSION(NO8) :: ABSCO2AO
21REAL(KIND=JPRB) , DIMENSION(NO8) :: ABSCO2BO
22REAL(KIND=JPRB) , DIMENSION(NO8) :: ABSN2OAO
23REAL(KIND=JPRB) , DIMENSION(NO8) :: ABSN2OBO
24
25REAL(KIND=JPRB) :: KAO(5,7,NO8)
26REAL(KIND=JPRB) :: KBO(5,7:59,NO8)
27REAL(KIND=JPRB) :: SELFREFO(10,NO8)
28
29!     -----------------------------------------------------------------
30!        * E.C.M.W.F. PHYSICS PACKAGE *
31
32!     J.-J. MORCRETTE       E.C.M.W.F.      98/07/14
33
34!  NAME     TYPE     PURPOSE
35!  ----   : ----   : ---------------------------------------------------
36! ABSCO2A : REAL     
37! ABSCO2B : REAL     
38! ABSN2OA : REAL     
39! ABSN2OB : REAL
40! CFC12   : REAL     
41! CFC22ADJ: REAL     
42! FRACREFA: REAL   
43! FRACREFB: REAL   
44! KA      : REAL     
45! KB      : REAL     
46! SELFREF : REAL     
47!     -----------------------------------------------------------------
48!$OMP THREADPRIVATE(absco2ao,absco2bo,absn2oao,absn2obo,cfc12o,cfc22adjo,fracrefao,fracrefbo,kao,kbo,selfrefo)
49END MODULE YOERRTO8
Note: See TracBrowser for help on using the repository browser.