source: LMDZ6/trunk/libf/phylmdiso/rrtm/yoerrto8.F90 @ 3927

Last change on this file since 3927 was 3927, checked in by Laurent Fairhead, 3 years ago

Initial import of the physics wih isotopes from Camille Risi
CR
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.