| 1 | MODULE YOEOLW |
|---|
| 2 | |
|---|
| 3 | #include "tsmbkind.h" |
|---|
| 4 | |
|---|
| 5 | IMPLICIT NONE |
|---|
| 6 | |
|---|
| 7 | SAVE |
|---|
| 8 | |
|---|
| 9 | ! ------------------------------------------------------------------ |
|---|
| 10 | !* *COMMON* *YOEOLW* - COEFFICIENTS OF THE OLD LONGWAVE RADIATION TRANSFER |
|---|
| 11 | ! ------------------------------------------------------------------ |
|---|
| 12 | ! |
|---|
| 13 | INTEGER_M :: MXIXT , NISP , NIPD , NIPD2 , NTR , & |
|---|
| 14 | & NTRA , NUA , NG1 , NG1P1 |
|---|
| 15 | |
|---|
| 16 | REAL_B :: AT(8,3) , BT(8,3) , RNTNU(4) , GA(11,16,3), GB(11,16,3), & |
|---|
| 17 | & OCT(4) , O1H , O2H , RPIALF0 , RT1(2) , TINTP(11), & |
|---|
| 18 | & TREF , TSTAND , TSTP , WG1(2) , XP(6,6) , & |
|---|
| 19 | & RVGCO2 , RVGH2O , RVGO3 |
|---|
| 20 | ! |
|---|
| 21 | ! |
|---|
| 22 | ! * E.C.M.W.F. PHYSICS PACKAGE * |
|---|
| 23 | ! |
|---|
| 24 | ! J.-J. MORCRETTE E.C.M.W.F. 89/07/14 |
|---|
| 25 | ! |
|---|
| 26 | ! NAME TYPE PURPOSE |
|---|
| 27 | ! ---- : ---- : --------------------------------------------------- |
|---|
| 28 | ! MXIXT : INTEGER MAXIMUM TEMPERATURE INDEX FOR TRANSMISSIVITIES |
|---|
| 29 | ! NISP : INTEGER NUMBER OF SPECTRAL INTERVALS |
|---|
| 30 | ! NIPD : INTEGER NUMBER OF BANDS DESCRIBED BY PADE APPROXIMANTS |
|---|
| 31 | ! NIPD2 : INTEGER NIPD*2 |
|---|
| 32 | ! NTR : INTEGER NUMBER OF REFERENCE TEMPERATURES |
|---|
| 33 | ! NTRA : INTEGER NUMBER OF TRANSMISSION FUNCTIONS |
|---|
| 34 | ! NUA : INTEGER NUMBER OF ABSORBER AMOUNTS |
|---|
| 35 | ! NG1 : INTEGER ORDER OF THE GAUSSIAN QUADRATURE |
|---|
| 36 | ! NG1P1 : INTEGER NG1+1 |
|---|
| 37 | ! AT : REAL A-TYPE COEFF. FOR TEMPERATURE DEPENDENCE |
|---|
| 38 | ! BT : REAL B-TYPE COEFF. FOR TEMPERATURE DEPENDENCE |
|---|
| 39 | ! RNTNU : REAL ABSORPTION COEFFICIENT E-TYPE |
|---|
| 40 | ! GA : REAL PADE APPROXIMANTS - NUMERATOR |
|---|
| 41 | ! GB : REAL PADE APPROXIMANTS - DENOMINATOR |
|---|
| 42 | ! OCT : REAL TEMPERATURE DEPENDENCE COEFFICIENTS FOR OZONE |
|---|
| 43 | ! O1H : REAL K/DELTA 1ST OZONE SUB-INTERVAL |
|---|
| 44 | ! O2H : REAL K/DELTA 2ND OZONE SUB-INTERVAL |
|---|
| 45 | ! RPIALF0: REAL PI*ALFA0/DELTA OZONE SUB-INTERVALS |
|---|
| 46 | ! RT1 : REAL ROOTS FOR GAUSSIAN QUADRATURE |
|---|
| 47 | ! TINTP : REAL TEMPERATURE INTERVALS FOR TRANSMISSIVITIES |
|---|
| 48 | ! TREF : REAL REFERENCE TEMPERATURE IN PLANCK FUNCTION POLYNOMIAL |
|---|
| 49 | ! TSTAND: REAL REFERENCE TEMPERATURE FOR TEMPERATURE DEPENDENCE |
|---|
| 50 | ! TSTP : REAL TEMEPERATURE STEP BETWEEN TRANSMISSIVITIES |
|---|
| 51 | ! WG1 : REAL WEIGHTS FOR GAUSSIAN QUADRATURE |
|---|
| 52 | ! XP : REAL POLYNOMIAL COEFFICIENTS OF PLANCK FUNCTION |
|---|
| 53 | ! RVGCO2: REAL RESIDUAL PRESSURE FOR CO2 VOIGT LINE HALF-WIDTH |
|---|
| 54 | ! RVGH2O: REAL RESIDUAL PRESSURE FOR H2O VOIGT LINE HALF-WIDTH |
|---|
| 55 | ! RVGO3 : REAL RESIDUAL PRESSURE FOR O3 VOIGT LINE HALF-WIDTH |
|---|
| 56 | ! ------------------------------------------------------------------ |
|---|
| 57 | END MODULE YOEOLW |
|---|
