yoerrtwn.F90

Go to the documentation of this file.

MODULE yoerrtwn


#include "tsmbkind.h"

IMPLICIT NONE

SAVE

!    -------------------------------------------------------------------

integer_m , DIMENSION(16) :: ng
integer_m , DIMENSION(16) :: nspa
integer_m , DIMENSION(16) :: nspb

real_b , DIMENSION(16) :: wavenum1
real_b , DIMENSION(16) :: wavenum2
real_b , DIMENSION(16) :: delwave

real_b , DIMENSION(181,16) :: totplnk
real_b , DIMENSION(181)    :: totplk16

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

!     J.-J. MORCRETTE       E.C.M.W.F.      98/01/15

!  NAME     TYPE     PURPOSE
!  ----   : ----    : -------
!  NG     : INTEGER : Number of k-coefficients in spectral intervals
!  NSPA   : INTEGER :
!  NSPB   : INTEGER :
! WAVENUM1: REAL    : Lower wavenumber spectral limit
! WAVENUM2: REAL    : Higher wavenumber spectral limit
! DELWAVE : REAL    : Spectral interval width
! TOTPLNK : REAL    :
! TOTPLK16: REAL    :
!     -----------------------------------------------------------------
END MODULE yoerrtwn