yoeolw.F90

Go to the documentation of this file.

MODULE yoeolw

#include "tsmbkind.h"

IMPLICIT NONE

SAVE

!     ------------------------------------------------------------------
!*    *COMMON* *YOEOLW* - COEFFICIENTS OF THE OLD LONGWAVE RADIATION TRANSFER
!     ------------------------------------------------------------------
!
integer_m :: mxixt    , nisp     , nipd     , nipd2    , ntr      , &
     & ntra     , nua      , ng1      , ng1p1
     
real_b :: at(8,3)  , bt(8,3)  , rntnu(4) , ga(11,16,3), gb(11,16,3), &
     & oct(4)   , o1h      , o2h      , rpialf0  , rt1(2)   , tintp(11), &
     & tref     , tstand   , tstp     , wg1(2)   , xp(6,6)  , &
     & rvgco2   , rvgh2o   , rvgo3
!
!
!        * E.C.M.W.F. PHYSICS PACKAGE *
!
!     J.-J. MORCRETTE       E.C.M.W.F.      89/07/14
!
!  NAME     TYPE     PURPOSE
!  ----  :  ----   : ---------------------------------------------------
!  MXIXT :  INTEGER  MAXIMUM TEMPERATURE INDEX FOR TRANSMISSIVITIES
!  NISP  :  INTEGER  NUMBER OF SPECTRAL INTERVALS
!  NIPD  :  INTEGER  NUMBER OF BANDS DESCRIBED BY PADE APPROXIMANTS
!  NIPD2 :  INTEGER  NIPD*2
!  NTR   :  INTEGER  NUMBER OF REFERENCE TEMPERATURES
!  NTRA  :  INTEGER  NUMBER OF TRANSMISSION FUNCTIONS
!  NUA   :  INTEGER  NUMBER OF ABSORBER AMOUNTS
!  NG1   :  INTEGER  ORDER OF THE GAUSSIAN QUADRATURE
!  NG1P1 :  INTEGER  NG1+1
!  AT    :  REAL     A-TYPE COEFF. FOR TEMPERATURE DEPENDENCE
!  BT    :  REAL     B-TYPE COEFF. FOR TEMPERATURE DEPENDENCE
!  RNTNU :  REAL     ABSORPTION COEFFICIENT E-TYPE
!  GA    :  REAL     PADE APPROXIMANTS - NUMERATOR
!  GB    :  REAL     PADE APPROXIMANTS - DENOMINATOR
!  OCT   :  REAL     TEMPERATURE DEPENDENCE COEFFICIENTS FOR OZONE
!  O1H   :  REAL     K/DELTA 1ST OZONE SUB-INTERVAL
!  O2H   :  REAL     K/DELTA 2ND OZONE SUB-INTERVAL
!  RPIALF0:  REAL     PI*ALFA0/DELTA OZONE SUB-INTERVALS
!  RT1   :  REAL     ROOTS FOR GAUSSIAN QUADRATURE
!  TINTP :  REAL     TEMPERATURE INTERVALS FOR TRANSMISSIVITIES
!  TREF  :  REAL     REFERENCE TEMPERATURE IN PLANCK FUNCTION POLYNOMIAL
!  TSTAND:  REAL     REFERENCE TEMPERATURE FOR TEMPERATURE DEPENDENCE
!  TSTP  :  REAL     TEMEPERATURE STEP BETWEEN TRANSMISSIVITIES
!  WG1   :  REAL     WEIGHTS FOR GAUSSIAN QUADRATURE
!  XP    :  REAL     POLYNOMIAL COEFFICIENTS OF PLANCK FUNCTION
!  RVGCO2:  REAL     RESIDUAL PRESSURE FOR CO2 VOIGT LINE HALF-WIDTH
!  RVGH2O:  REAL     RESIDUAL PRESSURE FOR H2O VOIGT LINE HALF-WIDTH
!  RVGO3 :  REAL     RESIDUAL PRESSURE FOR O3  VOIGT LINE HALF-WIDTH
!     ------------------------------------------------------------------
END MODULE yoeolw