yoerrtam.F90

Go to the documentation of this file.

MODULE yoerrtam

#include "tsmbkind.h"

USE parrrtm


IMPLICIT NONE

SAVE

!     ------------------------------------------------------------------
!*    ** *YOERRTAM* - RRTM definition of atmospheric profiles
!     includes all commons with arrays depending on vertical coordinate
!     ------------------------------------------------------------------

real_b   , ALLOCATABLE, DIMENSION(:,:,:) :: tau

real_b   , ALLOCATABLE, DIMENSION(:,:) :: tauaerl

real_b   , ALLOCATABLE, DIMENSION(:) :: fac00 , fac01 , fac10 , fac11
integer_m, ALLOCATABLE, DIMENSION(:) :: jp    , jt    , jt1
real_b    :: oneminus
real_b   , ALLOCATABLE, DIMENSION(:) :: colh2o, colco2, colo3 &
                                    &, coln2o, colch4, colo2 &
                                    &, co2mult 
integer_m :: laytrop, layswtch, laylow
real_b   , ALLOCATABLE, DIMENSION(:) :: pavel , tavel
real_b   , ALLOCATABLE, DIMENSION(:) :: pz    , tz
real_b    :: tbound
integer_m :: nlayers
real_b   , ALLOCATABLE, DIMENSION(:) :: selffac, selffrac
integer_m, ALLOCATABLE, DIMENSION(:) :: indself
real_b   , ALLOCATABLE, DIMENSION(:,:,:) :: pfrac
real_b   , ALLOCATABLE, DIMENSION(:) :: semiss
real_b    :: semislw
integer_m :: ireflect
integer_m :: numangs, iout, istart, iend
real_b   , ALLOCATABLE, DIMENSION(:) :: coldry , wbrodl
real_b   , ALLOCATABLE, DIMENSION(:) :: cldfrac
real_b   , ALLOCATABLE, DIMENSION(:,:) :: taucldu, taucldd
integer_m :: nmol, ixsect, nxmol
real_b   , ALLOCATABLE, DIMENSION(:,:) :: wkl
integer_m, ALLOCATABLE, DIMENSION(:) :: ixindx
real_b   , ALLOCATABLE, DIMENSION(:,:) :: wx
real_b   , ALLOCATABLE, DIMENSION(:) :: forfac
integer_m, ALLOCATABLE, DIMENSION(:) :: indlay
integer_m, ALLOCATABLE, DIMENSION(:) :: indlev

!     -----------------------------------------------------------------
!        * E.C.M.W.F. PHYSICS PACKAGE ** RRTM LW RADIATION **

!     J.-J. MORCRETTE       E.C.M.W.F.      98/07/14
!     -----------------------------------------------------------------
END MODULE yoerrtam