source: LMDZ6/trunk/libf/phymar/yoeolw.F90 @ 3980

Last change on this file since 3980 was 2089, checked in by Laurent Fairhead, 10 years ago

Inclusion de la physique de MAR


Integration of MAR physics

File size: 2.5 KB
Line 
1MODULE YOEOLW
2
3#include "tsmbkind.h"
4
5IMPLICIT NONE
6
7SAVE
8
9!     ------------------------------------------------------------------
10!*    *COMMON* *YOEOLW* - COEFFICIENTS OF THE OLD LONGWAVE RADIATION TRANSFER
11!     ------------------------------------------------------------------
12!
13INTEGER_M :: MXIXT    , NISP     , NIPD     , NIPD2    , NTR      , &
14     & NTRA     , NUA      , NG1      , NG1P1
15     
16REAL_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!     ------------------------------------------------------------------
57END MODULE YOEOLW
Note: See TracBrowser for help on using the repository browser.