parsrtm.F90

Go to the documentation of this file.

MODULE parsrtm

USE parkind1  ,ONLY : jpim

IMPLICIT NONE

SAVE

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

!     030224  JJMorcrette

!     Modified for g-point reduction from 224 to 112.  
!     Swap code below to restore 224 g-point set. 
!     Mar2004 MJIacono, AER
!     ------------------------------------------------------------------

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

INTEGER(KIND=JPIM), PARAMETER :: jpg    = 16
INTEGER(KIND=JPIM), PARAMETER :: jpband = 29
INTEGER(KIND=JPIM), PARAMETER :: jpsw   = 14
INTEGER(KIND=JPIM), PARAMETER :: jpb1   = 16
INTEGER(KIND=JPIM), PARAMETER :: jpb2   = 29
! Use for 112 g-points
INTEGER(KIND=JPIM), PARAMETER :: jpgpt  = 112
! Use for 224 g-points
!INTEGER(KIND=JPIM), PARAMETER :: JPGPT  = 224

INTEGER(KIND=JPIM), PARAMETER :: jmcmu  = 32
INTEGER(KIND=JPIM), PARAMETER :: jmumu  = 32
INTEGER(KIND=JPIM), PARAMETER :: jmphi  = 3
INTEGER(KIND=JPIM), PARAMETER :: jmxang = 4
INTEGER(KIND=JPIM), PARAMETER :: jmxstr = 16

! Use for 112 g-points
INTEGER(KIND=JPIM), PARAMETER :: ng16 = 6
INTEGER(KIND=JPIM), PARAMETER :: ng17 = 12
INTEGER(KIND=JPIM), PARAMETER :: ng18 = 8
INTEGER(KIND=JPIM), PARAMETER :: ng19 = 8
INTEGER(KIND=JPIM), PARAMETER :: ng20 = 10
INTEGER(KIND=JPIM), PARAMETER :: ng21 = 10
INTEGER(KIND=JPIM), PARAMETER :: ng22 = 2
INTEGER(KIND=JPIM), PARAMETER :: ng23 = 10
INTEGER(KIND=JPIM), PARAMETER :: ng24 = 8
INTEGER(KIND=JPIM), PARAMETER :: ng25 = 6
INTEGER(KIND=JPIM), PARAMETER :: ng26 = 6
INTEGER(KIND=JPIM), PARAMETER :: ng27 = 8
INTEGER(KIND=JPIM), PARAMETER :: ng28 = 6
INTEGER(KIND=JPIM), PARAMETER :: ng29 = 12

! Use for 224 g-points
!INTEGER(KIND=JPIM), PARAMETER :: NG16 = 16
!INTEGER(KIND=JPIM), PARAMETER :: NG17 = 16
!INTEGER(KIND=JPIM), PARAMETER :: NG18 = 16
!INTEGER(KIND=JPIM), PARAMETER :: NG19 = 16
!INTEGER(KIND=JPIM), PARAMETER :: NG20 = 16
!INTEGER(KIND=JPIM), PARAMETER :: NG21 = 16
!INTEGER(KIND=JPIM), PARAMETER :: NG22 = 16
!INTEGER(KIND=JPIM), PARAMETER :: NG23 = 16
!INTEGER(KIND=JPIM), PARAMETER :: NG24 = 16
!INTEGER(KIND=JPIM), PARAMETER :: NG25 = 16
!INTEGER(KIND=JPIM), PARAMETER :: NG26 = 16
!INTEGER(KIND=JPIM), PARAMETER :: NG27 = 16
!INTEGER(KIND=JPIM), PARAMETER :: NG28 = 16
!INTEGER(KIND=JPIM), PARAMETER :: NG29 = 16

INTEGER(KIND=JPIM), PARAMETER :: ngs16 = 0
INTEGER(KIND=JPIM), PARAMETER :: ngs17 = 16
INTEGER(KIND=JPIM), PARAMETER :: ngs18 = 32
INTEGER(KIND=JPIM), PARAMETER :: ngs19 = 48
INTEGER(KIND=JPIM), PARAMETER :: ngs20 = 64
INTEGER(KIND=JPIM), PARAMETER :: ngs21 = 80
INTEGER(KIND=JPIM), PARAMETER :: ngs22 = 96
INTEGER(KIND=JPIM), PARAMETER :: ngs23 = 112
INTEGER(KIND=JPIM), PARAMETER :: ngs24 = 128
INTEGER(KIND=JPIM), PARAMETER :: ngs25 = 144
INTEGER(KIND=JPIM), PARAMETER :: ngs26 = 160
INTEGER(KIND=JPIM), PARAMETER :: ngs27 = 176
INTEGER(KIND=JPIM), PARAMETER :: ngs28 = 192
INTEGER(KIND=JPIM), PARAMETER :: ngs29 = 208

!     ------------------------------------------------------------------
END MODULE parsrtm