source: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phyiso/rrtm/yoerrto8.F90 @ 3331

Last change on this file since 3331 was 3331, checked in by acozic, 6 years ago

Add modification for isotopes

  • Property svn:executable set to *
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.