parrrtm.F90

Go to the documentation of this file.

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