source: LMDZ5/branches/IPSLCM6.0.12/libf/phymar/yoerrtam.F90 @ 4934

Last change on this file since 4934 was 2089, checked in by Laurent Fairhead, 10 years ago

Inclusion de la physique de MAR


Integration of MAR physics

File size: 2.0 KB
Line 
1MODULE YOERRTAM
2
3#include "tsmbkind.h"
4
5USE PARRRTM
6
7
8IMPLICIT NONE
9
10SAVE
11
12!     ------------------------------------------------------------------
13!*    ** *YOERRTAM* - RRTM definition of atmospheric profiles
14!     includes all commons with arrays depending on vertical coordinate
15!     ------------------------------------------------------------------
16
17REAL_B   , ALLOCATABLE, DIMENSION(:,:,:) :: TAU
18
19REAL_B   , ALLOCATABLE, DIMENSION(:,:) :: TAUAERL
20
21REAL_B   , ALLOCATABLE, DIMENSION(:) :: FAC00 , FAC01 , FAC10 , FAC11
22INTEGER_M, ALLOCATABLE, DIMENSION(:) :: JP    , JT    , JT1
23REAL_B    :: ONEMINUS
24REAL_B   , ALLOCATABLE, DIMENSION(:) :: COLH2O, COLCO2, COLO3 &
25                                    &, COLN2O, COLCH4, COLO2 &
26                                    &, CO2MULT
27INTEGER_M :: LAYTROP, LAYSWTCH, LAYLOW
28REAL_B   , ALLOCATABLE, DIMENSION(:) :: PAVEL , TAVEL
29REAL_B   , ALLOCATABLE, DIMENSION(:) :: PZ    , TZ
30REAL_B    :: TBOUND
31INTEGER_M :: NLAYERS
32REAL_B   , ALLOCATABLE, DIMENSION(:) :: SELFFAC, SELFFRAC
33INTEGER_M, ALLOCATABLE, DIMENSION(:) :: INDSELF
34REAL_B   , ALLOCATABLE, DIMENSION(:,:,:) :: PFRAC
35REAL_B   , ALLOCATABLE, DIMENSION(:) :: SEMISS
36REAL_B    :: SEMISLW
37INTEGER_M :: IREFLECT
38INTEGER_M :: NUMANGS, IOUT, ISTART, IEND
39REAL_B   , ALLOCATABLE, DIMENSION(:) :: COLDRY , WBRODL
40REAL_B   , ALLOCATABLE, DIMENSION(:) :: CLDFRAC
41REAL_B   , ALLOCATABLE, DIMENSION(:,:) :: TAUCLDU, TAUCLDD
42INTEGER_M :: NMOL, IXSECT, NXMOL
43REAL_B   , ALLOCATABLE, DIMENSION(:,:) :: WKL
44INTEGER_M, ALLOCATABLE, DIMENSION(:) :: IXINDX
45REAL_B   , ALLOCATABLE, DIMENSION(:,:) :: WX
46REAL_B   , ALLOCATABLE, DIMENSION(:) :: FORFAC
47INTEGER_M, ALLOCATABLE, DIMENSION(:) :: INDLAY
48INTEGER_M, ALLOCATABLE, DIMENSION(:) :: INDLEV
49
50!     -----------------------------------------------------------------
51!        * E.C.M.W.F. PHYSICS PACKAGE ** RRTM LW RADIATION **
52
53!     J.-J. MORCRETTE       E.C.M.W.F.      98/07/14
54!     -----------------------------------------------------------------
55END MODULE YOERRTAM
Note: See TracBrowser for help on using the repository browser.