source: LMDZ6/trunk/libf/phymar/parrrtm.F90 @ 3817

MODULE PARRRTM
 
 
#include "tsmbkind.h"
 
IMPLICIT NONE
 
SAVE
 
!     ------------------------------------------------------------------
!     Parameters relevant to AER s RRTM-LW radiation scheme
 
!     980714  JJMorcrette
!     ------------------------------------------------------------------
 
!-- standard tropical INTEGER_M, PARAMETER :: JPLAY  = 64
!-- ATEX              INTEGER_M, PARAMETER :: JPLAY  = 83
!-- BOMEX             INTEGER_M, PARAMETER :: JPLAY  = 84
!-- OPEN_CELLS        INTEGER_M, PARAMETER :: JPLAY  = 63
!__ GATE_A,B,C        INTEGER_M, PARAMETER :: JPLAY  = 46
 
INTEGER_M, PARAMETER :: JPLAY  = 60
 
INTEGER_M, PARAMETER :: JPG    = 16
INTEGER_M, PARAMETER :: JPBAND = 16
INTEGER_M, PARAMETER :: JPXSEC = 4
INTEGER_M, PARAMETER :: JPINPX = 35
INTEGER_M, PARAMETER :: JPGPT  = 140
 
INTEGER_M, PARAMETER :: NGS1  = 8
INTEGER_M, PARAMETER :: NGS2  = 22
INTEGER_M, PARAMETER :: NGS3  = 38
INTEGER_M, PARAMETER :: NGS4  = 52
INTEGER_M, PARAMETER :: NGS5  = 68
INTEGER_M, PARAMETER :: NGS6  = 76
INTEGER_M, PARAMETER :: NGS7  = 88
INTEGER_M, PARAMETER :: NGS8  = 96
INTEGER_M, PARAMETER :: NGS9  = 108
INTEGER_M, PARAMETER :: NGS10 = 114
INTEGER_M, PARAMETER :: NGS11 = 122
INTEGER_M, PARAMETER :: NGS12 = 130
INTEGER_M, PARAMETER :: NGS13 = 134
INTEGER_M, PARAMETER :: NGS14 = 136
INTEGER_M, PARAMETER :: NGS15 = 138
 
!     ------------------------------------------------------------------
END MODULE PARRRTM