parrrtm.F90

Go to the documentation of this file.

MODULE parrrtm

USE parkind1  ,ONLY : jpim     ,jprb

IMPLICIT NONE

SAVE

!     ------------------------------------------------------------------
!     Parameters relevant to AER's RRTM-LW radiation scheme

!     980714  JJMorcrette
!     ------------------------------------------------------------------

INTEGER(KIND=JPIM), PARAMETER :: jplay  = 100

INTEGER(KIND=JPIM), PARAMETER :: jpg    = 16
INTEGER(KIND=JPIM), PARAMETER :: jpband = 16
INTEGER(KIND=JPIM), PARAMETER :: jpxsec = 4
INTEGER(KIND=JPIM), PARAMETER :: jpinpx = 35
INTEGER(KIND=JPIM), PARAMETER :: jpgpt  = 140

INTEGER(KIND=JPIM), PARAMETER :: ng1  = 8
INTEGER(KIND=JPIM), PARAMETER :: ng2  = 14
INTEGER(KIND=JPIM), PARAMETER :: ng3  = 16
INTEGER(KIND=JPIM), PARAMETER :: ng4  = 14
INTEGER(KIND=JPIM), PARAMETER :: ng5  = 16
INTEGER(KIND=JPIM), PARAMETER :: ng6  = 8
INTEGER(KIND=JPIM), PARAMETER :: ng7  = 12
INTEGER(KIND=JPIM), PARAMETER :: ng8  = 8
INTEGER(KIND=JPIM), PARAMETER :: ng9  = 12
INTEGER(KIND=JPIM), PARAMETER :: ng10 = 6
INTEGER(KIND=JPIM), PARAMETER :: ng11 = 8
INTEGER(KIND=JPIM), PARAMETER :: ng12 = 8
INTEGER(KIND=JPIM), PARAMETER :: ng13 = 4
INTEGER(KIND=JPIM), PARAMETER :: ng14 = 2
INTEGER(KIND=JPIM), PARAMETER :: ng15 = 2
INTEGER(KIND=JPIM), PARAMETER :: ng16 = 8

INTEGER(KIND=JPIM), PARAMETER :: ngs1  = 8
INTEGER(KIND=JPIM), PARAMETER :: ngs2  = 22
INTEGER(KIND=JPIM), PARAMETER :: ngs3  = 38
INTEGER(KIND=JPIM), PARAMETER :: ngs4  = 52
INTEGER(KIND=JPIM), PARAMETER :: ngs5  = 68
INTEGER(KIND=JPIM), PARAMETER :: ngs6  = 76
INTEGER(KIND=JPIM), PARAMETER :: ngs7  = 88
INTEGER(KIND=JPIM), PARAMETER :: ngs8  = 96
INTEGER(KIND=JPIM), PARAMETER :: ngs9  = 108
INTEGER(KIND=JPIM), PARAMETER :: ngs10 = 114
INTEGER(KIND=JPIM), PARAMETER :: ngs11 = 122
INTEGER(KIND=JPIM), PARAMETER :: ngs12 = 130
INTEGER(KIND=JPIM), PARAMETER :: ngs13 = 134
INTEGER(KIND=JPIM), PARAMETER :: ngs14 = 136
INTEGER(KIND=JPIM), PARAMETER :: ngs15 = 138

!     ------------------------------------------------------------------
END MODULE parrrtm