source: LMDZ6/branches/DYNAMICO-conv/libf/phymar/yoelw.F90 @ 4212

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

Inclusion de la physique de MAR


Integration of MAR physics

File size: 2.7 KB
Line 
1MODULE YOELW
2
3
4#include "tsmbkind.h"
5
6IMPLICIT NONE
7
8SAVE
9
10!     ------------------------------------------------------------------
11!*    ** *YOELW* - COEFFICIENTS OF THE LONGWAVE RADIATION TRANSFER
12!     ------------------------------------------------------------------
13
14INTEGER_M :: MXIXT
15INTEGER_M :: NSIL
16INTEGER_M :: NIPD
17INTEGER_M :: NIPD2
18INTEGER_M :: NTR
19INTEGER_M :: NTRA
20INTEGER_M :: NUA
21INTEGER_M :: NG1
22INTEGER_M :: NG1P1
23REAL_B :: ALWT(8,3)
24REAL_B :: BLWT(8,3)
25REAL_B :: PDGA(11,16,3)
26REAL_B :: PDGB(11,16,3)
27REAL_B :: RPTYPE(4)
28REAL_B :: RETYPE(4)
29REAL_B :: RNTNU(4)
30REAL_B :: RO1H
31REAL_B :: RO2H
32REAL_B :: RO3T(4)
33REAL_B :: RPIALF0
34REAL_B :: RT1(2)
35REAL_B :: TINTP(11)
36REAL_B :: TREF
37REAL_B :: TSTAND
38REAL_B :: TSTP
39REAL_B :: WG1(2)
40REAL_B :: XP(6,6)
41REAL_B :: RVGCO2
42REAL_B :: RVGH2O
43REAL_B :: RVGO3
44
45
46!        * E.C.M.W.F. PHYSICS PACKAGE *
47
48!     J.-J. MORCRETTE       E.C.M.W.F.      89/07/14
49
50!  NAME     TYPE     PURPOSE
51!  ----  :  ----   : ---------------------------------------------------
52!  MXIXT :  INTEGER  MAXIMUM TEMPERATURE INDEX FOR TRANSMISSIVITIES
53!  NSIL  :  INTEGER  NUMBER OF SPECTRAL INTERVALS
54!  NIPD  :  INTEGER  NUMBER OF BANDS DESCRIBED BY PADE APPROXIMANTS
55!  NIPD2 :  INTEGER  NIPD*2
56!  NTR   :  INTEGER  NUMBER OF REFERENCE TEMPERATURES
57!  NTRA  :  INTEGER  NUMBER OF TRANSMISSION FUNCTIONS
58!  NUA   :  INTEGER  NUMBER OF ABSORBER AMOUNTS
59!  NG1   :  INTEGER  ORDER OF THE GAUSSIAN QUADRATURE
60!  NG1P1 :  INTEGER  NG1+1
61!  ALWT  :  REAL     A-TYPE COEFF. FOR TEMPERATURE DEPENDENCE
62!  BLWT  :  REAL     B-TYPE COEFF. FOR TEMPERATURE DEPENDENCE
63!  RNTNU :  REAL     ABSORPTION COEFFICIENT E-TYPE
64!  PDGA  :  REAL     PADE APPROXIMANTS - NUMERATOR
65!  PDGB  :  REAL     PADE APPROXIMANTS - DENOMINATOR
66!  RPTYPE:  REAL     P-TYPE COEFFICIENTS
67!  RETYPE:  REAL     E-TYPE COEFFICIENTS
68!  RO1H  :  REAL     K/DELTA 1ST OZONE SUB-INTERVAL
69!  RO2H  :  REAL     K/DELTA 2ND OZONE SUB-INTERVAL
70!  RO3T  :  REAL     TEMPERATURE DEPENDENCE COEFFICIENTS FOR OZONE
71!  RPIALF0: REAL     PI*ALFA0/DELTA OZONE SUB-INTERVALS
72!  RT1   :  REAL     ROOTS FOR GAUSSIAN QUADRATURE
73!  TINTP :  REAL     TEMPERATURE INTERVALS FOR TRANSMISSIVITIES
74!  TREF  :  REAL     REFERENCE TEMPERATURE IN PLANCK FUNCTION POLYNOMIAL
75!  TSTAND:  REAL     REFERENCE TEMPERATURE FOR TEMPERATURE DEPENDENCE
76!  TSTP  :  REAL     TEMEPERATURE STEP BETWEEN TRANSMISSIVITIES
77!  WG1   :  REAL     WEIGHTS FOR GAUSSIAN QUADRATURE
78!  XP    :  REAL     POLYNOMIAL COEFFICIENTS OF PLANCK FUNCTION
79!  RVGCO2:  REAL     RESIDUAL PRESSURE FOR CO2 VOIGT LINE HALF-WIDTH
80!  RVGH2O:  REAL     RESIDUAL PRESSURE FOR H2O VOIGT LINE HALF-WIDTH
81!  RVGO3 :  REAL     RESIDUAL PRESSURE FOR O3  VOIGT LINE HALF-WIDTH
82
83!     ------------------------------------------------------------------
84END MODULE YOELW
Note: See TracBrowser for help on using the repository browser.