Context Navigation

← Previous Revision
Latest Revision
Next Revision →
Normal
Revision Log

sulwn.F90 @ 5427

Last change on this file since 5427 was 2160, checked in by Laurent Fairhead, 10 years ago
Merged trunk changes -r2070:2158 into testing branch. Compilation problems introduced by revision r2155 have been corrected by hand
File size: 40.8 KB

Rev	Line
[2089]	1	SUBROUTINE SULWN
	2
	3	!**** SULWN - INITIALIZE COMMON YOELW
	4
	5	! PURPOSE.
	6	! --------
	7	! INITIALIZE YOELW, THE COMMON THAT CONTAINS COEFFICIENTS
	8	! NEEDED TO RUN THE LONGWAVE RADIATION ROUTINES
	9
	10	!** INTERFACE.
	11	! ----------
	12	! CALL *SULWN
	13
	14	! EXPLICIT ARGUMENTS
	15	! --------------------
	16	! NONE
	17
	18	! IMPLICIT ARGUMENTS
	19	! --------------------
	20	! COMMON YOELW
	21
	22	! METHOD.
	23	! -------
	24	! SEE DOCUMENTATION
	25
	26	! EXTERNALS.
	27	! ----------
	28
	29	! REFERENCE.
	30	! ----------
	31	! ECMWF RESEARCH DEPARTMENT DOCUMENTATION
	32
	33	! AUTHOR.
	34	! -------
	35	! JEAN-JACQUES MORCRETTE ECMWF
	36
	37	! MODIFICATIONS.
	38	! --------------
	39	! ORIGINAL : 88-12-15
	40	! J.-J. Morcrette ECMWF 951215: Pseudo-Voigt Line Profiles
	41	! 97-04-25 J.J. Morcrette Revised Continuum coefficients
	42	! 97-10-30 J.J. Morcrette cy18
	43
	44	! ------------------------------------------------------------------
	45
	46	#include "tsmbkind.h"
	47
	48	USE YOELW , ONLY : MXIXT ,NSIL ,NIPD ,NIPD2 ,&
	49	&NTR ,NTRA ,NUA ,NG1 ,NG1P1 ,&
	50	&ALWT ,BLWT ,PDGA ,PDGB ,RPTYPE ,&
	51	&RETYPE ,RO1H ,RO2H ,RO3T ,RPIALF0 ,&
	52	&RT1 ,TINTP ,TREF ,TSTAND ,TSTP ,&
	53	&WG1 ,XP ,RVGCO2 ,RVGH2O ,RVGO3
	54
	55
	56	IMPLICIT NONE
	57
	58
	59	! ------------------------------------------------------------------
	60
	61	!* 1. FILL BLOCK DATA
	62	! ---------------
	63
	64	!-- REFERENCE TEMPERATURE FOR THE TRANSMISSIVITIES
	65
	66	TINTP = (/ 187.5_JPRB, 200._JPRB, 212.5_JPRB, 225._JPRB, 237.5_JPRB, &
	67	&250._JPRB,&
	68	&262.5_JPRB, 275._JPRB, 287.5_JPRB, 300._JPRB, 312.5_JPRB /)
	69
	70	!-- COEFFICIENTS OF THE POLYNOMIALS GIVING THE PLANCK FUNCTIONS
	71
	72	XP( :, 1) = (/&
	73	&0.46430621E+02_JPRB, 0.12928299E+03_JPRB, 0.20732648E+03_JPRB,&
	74	&0.31398411E+03_JPRB, 0.18373177E+03_JPRB,-0.11412303E+03_JPRB/)
	75	XP( :, 2) = (/&
	76	&0.73604774E+02_JPRB, 0.27887914E+03_JPRB, 0.27076947E+03_JPRB,&
	77	&-.57322111E+02_JPRB,-0.64742459E+02_JPRB, 0.87238280E+02_JPRB/)
	78	XP( :, 3) = (/&
	79	&0.37050866E+02_JPRB, 0.20498759E+03_JPRB, 0.37558029E+03_JPRB,&
	80	&0.17401171E+03_JPRB,-0.13350302E+03_JPRB,-0.37651795E+02_JPRB/)
	81	XP( :, 4) = (/&
	82	&0.14930141E+02_JPRB, 0.89161160E+02_JPRB, 0.17793062E+03_JPRB,&
	83	&0.93433860E+02_JPRB,-0.70646020E+02_JPRB,-0.26373150E+02_JPRB/)
	84	XP( :, 5) = (/&
	85	&0.40386780E+02_JPRB, 0.10855270E+03_JPRB, 0.50755010E+02_JPRB,&
	86	&-0.31496190E+02_JPRB, 0.12791300E+00_JPRB, 0.18017770E+01_JPRB/)
	87	XP( :, 6) = (/&
	88	&0.90811926E+01_JPRB, 0.75073923E+02_JPRB, 0.24654438E+03_JPRB,&
	89	&0.39332612E+03_JPRB, 0.29385281E+03_JPRB, 0.89107921E+02_JPRB/)
	90
	91	!-----------------------------------------------------------------------
	92	! PADE APPROXIMANTS FOR THE TRANSMISSIVITIES
	93
	94
	95	!--- WATER VAPOUR FROM ZHONG & HAIGH (revision3 96-11-15)
	96
	97	!- H2O 0-350 cm-1
	98
	99
	100	!----- INTERVAL = 1 ----- T = 187.50
	101
	102	PDGA( 1, 1,:) = (/&
	103	&0.25000224E-02_JPRB, 0.18701843E-02_JPRB, 0.00000000E+00_JPRB/)
	104	PDGB( 1, 1,:) = (/&
	105	&0.25000224E-02_JPRB, 0.61593968E-01_JPRB, 0.10000000E+01_JPRB/)
	106	PDGA( 1, 2,:) = (/&
	107	&0.34131105E-02_JPRB, 0.55153039E-03_JPRB, 0.00000000E+00_JPRB/)
	108	PDGB( 1, 2,:) = (/&
	109	&0.34131105E-02_JPRB, 0.73127832E-01_JPRB, 0.10000000E+01_JPRB/)
	110
	111	!----- INTERVAL = 1 ----- T = 200.00
	112
	113	PDGA( 2, 1,:) = (/&
	114	&0.26344616E-02_JPRB, 0.16894582E-02_JPRB, 0.00000000E+00_JPRB/)
	115	PDGB( 2, 1,:) = (/&
	116	&0.26344616E-02_JPRB, 0.63633167E-01_JPRB, 0.10000000E+01_JPRB/)
	117	PDGA( 2, 2,:) = (/&
	118	&0.36120928E-02_JPRB, 0.44720171E-03_JPRB, 0.00000000E+00_JPRB/)
	119	PDGB( 2, 2,:) = (/&
	120	&0.36120928E-02_JPRB, 0.75062171E-01_JPRB, 0.10000000E+01_JPRB/)
	121
	122	!----- INTERVAL = 1 ----- T = 212.50
	123
	124	PDGA( 3, 1,:) = (/&
	125	&0.27743234E-02_JPRB, 0.15245487E-02_JPRB, 0.00000000E+00_JPRB/)
	126	PDGB( 3, 1,:) = (/&
	127	&0.27743234E-02_JPRB, 0.65651733E-01_JPRB, 0.10000000E+01_JPRB/)
	128	PDGA( 3, 2,:) = (/&
	129	&0.38453121E-02_JPRB, 0.42382776E-03_JPRB, 0.00000000E+00_JPRB/)
	130	PDGB( 3, 2,:) = (/&
	131	&0.38453121E-02_JPRB, 0.77088315E-01_JPRB, 0.10000000E+01_JPRB/)
	132
	133	!----- INTERVAL = 1 ----- T = 225.00
	134
	135	PDGA( 4, 1,:) = (/&
	136	&0.29265376E-02_JPRB, 0.13719090E-02_JPRB, 0.00000000E+00_JPRB/)
	137	PDGB( 4, 1,:) = (/&
	138	&0.29265376E-02_JPRB, 0.67739270E-01_JPRB, 0.10000000E+01_JPRB/)
	139	PDGA( 4, 2,:) = (/&
	140	&0.41211460E-02_JPRB, 0.42401401E-03_JPRB, 0.00000000E+00_JPRB/)
	141	PDGB( 4, 2,:) = (/&
	142	&0.41211460E-02_JPRB, 0.79241307E-01_JPRB, 0.10000000E+01_JPRB/)
	143
	144	!----- INTERVAL = 1 ----- T = 237.50
	145
	146	PDGA( 5, 1,:) = (/&
	147	&0.30979053E-02_JPRB, 0.12223308E-02_JPRB, 0.00000000E+00_JPRB/)
	148	PDGB( 5, 1,:) = (/&
	149	&0.30979053E-02_JPRB, 0.69968340E-01_JPRB, 0.10000000E+01_JPRB/)
	150	PDGA( 5, 2,:) = (/&
	151	&0.43966504E-02_JPRB, 0.67198946E-03_JPRB, 0.00000000E+00_JPRB/)
	152	PDGB( 5, 2,:) = (/&
	153	&0.43966504E-02_JPRB, 0.80947310E-01_JPRB, 0.10000000E+01_JPRB/)
	154
	155	!----- INTERVAL = 1 ----- T = 250.00
	156
	157	PDGA( 6, 1,:) = (/&
	158	&0.32813184E-02_JPRB, 0.11573810E-02_JPRB, 0.00000000E+00_JPRB/)
	159	PDGB( 6, 1,:) = (/&
	160	&0.32813184E-02_JPRB, 0.72183750E-01_JPRB, 0.10000000E+01_JPRB/)
	161	PDGA( 6, 2,:) = (/&
	162	&0.46792452E-02_JPRB, 0.99691013E-03_JPRB, 0.00000000E+00_JPRB/)
	163	PDGB( 6, 2,:) = (/&
	164	&0.46792452E-02_JPRB, 0.82404099E-01_JPRB, 0.10000000E+01_JPRB/)
	165
	166	!----- INTERVAL = 1 ----- T = 262.50
	167
	168	PDGA( 7, 1,:) = (/&
	169	&0.34869261E-02_JPRB, 0.11110812E-02_JPRB, 0.00000000E+00_JPRB/)
	170	PDGB( 7, 1,:) = (/&
	171	&0.34869261E-02_JPRB, 0.74507149E-01_JPRB, 0.10000000E+01_JPRB/)
	172	PDGA( 7, 2,:) = (/&
	173	&0.49313571E-02_JPRB, 0.15144806E-02_JPRB, 0.00000000E+00_JPRB/)
	174	PDGB( 7, 2,:) = (/&
	175	&0.49313571E-02_JPRB, 0.83301687E-01_JPRB, 0.10000000E+01_JPRB/)
	176
	177	!----- INTERVAL = 1 ----- T = 275.00
	178
	179	PDGA( 8, 1,:) = (/&
	180	&0.37169013E-02_JPRB, 0.10586459E-02_JPRB, 0.00000000E+00_JPRB/)
	181	PDGB( 8, 1,:) = (/&
	182	&0.37169013E-02_JPRB, 0.76930655E-01_JPRB, 0.10000000E+01_JPRB/)
	183	PDGA( 8, 2,:) = (/&
	184	&0.51606177E-02_JPRB, 0.20799953E-02_JPRB, 0.00000000E+00_JPRB/)
	185	PDGB( 8, 2,:) = (/&
	186	&0.51606177E-02_JPRB, 0.83904484E-01_JPRB, 0.10000000E+01_JPRB/)
	187
	188	!----- INTERVAL = 1 ----- T = 287.50
	189
	190	PDGA( 9, 1,:) = (/&
	191	&0.39482491E-02_JPRB, 0.11280761E-02_JPRB, 0.00000000E+00_JPRB/)
	192	PDGB( 9, 1,:) = (/&
	193	&0.39482491E-02_JPRB, 0.79096624E-01_JPRB, 0.10000000E+01_JPRB/)
	194	PDGA( 9, 2,:) = (/&
	195	&0.53608496E-02_JPRB, 0.26755638E-02_JPRB, 0.00000000E+00_JPRB/)
	196	PDGB( 9, 2,:) = (/&
	197	&0.53608496E-02_JPRB, 0.84271466E-01_JPRB, 0.10000000E+01_JPRB/)
	198
	199	!----- INTERVAL = 1 ----- T = 300.00
	200
	201	PDGA(10, 1,:) = (/&
	202	&0.41849825E-02_JPRB, 0.12500965E-02_JPRB, 0.00000000E+00_JPRB/)
	203	PDGB(10, 1,:) = (/&
	204	&0.41849825E-02_JPRB, 0.81087000E-01_JPRB, 0.10000000E+01_JPRB/)
	205	PDGA(10, 2,:) = (/&
	206	&0.55372909E-02_JPRB, 0.32512851E-02_JPRB, 0.00000000E+00_JPRB/)
	207	PDGB(10, 2,:) = (/&
	208	&0.55372909E-02_JPRB, 0.84546756E-01_JPRB, 0.10000000E+01_JPRB/)
	209
	210	!----- INTERVAL = 1 ----- T = 312.50
	211
	212	PDGA(11, 1,:) = (/&
	213	&0.44204714E-02_JPRB, 0.14195697E-02_JPRB, 0.00000000E+00_JPRB/)
	214	PDGB(11, 1,:) = (/&
	215	&0.44204714E-02_JPRB, 0.82840020E-01_JPRB, 0.10000000E+01_JPRB/)
	216	PDGA(11, 2,:) = (/&
	217	&0.56935299E-02_JPRB, 0.38054592E-02_JPRB, 0.00000000E+00_JPRB/)
	218	PDGB(11, 2,:) = (/&
	219	&0.56935299E-02_JPRB, 0.84847060E-01_JPRB, 0.10000000E+01_JPRB/)
	220
	221
	222	!- H2O 500-800 cm-1
	223
	224	!----- INTERVAL = 2 ----- T = 187.50
	225
	226	PDGA( 1, 3,:) = (/&
	227	&0.15053751E+01_JPRB, 0.45361026E+00_JPRB, 0.00000000E+00_JPRB/)
	228	PDGB( 1, 3,:) = (/&
	229	&0.15053751E+01_JPRB, 0.15789584E+01_JPRB, 0.10000000E+01_JPRB/)
	230	PDGA( 1, 4,:) = (/&
	231	&0.18920793E+01_JPRB, 0.53457554E+00_JPRB, 0.00000000E+00_JPRB/)
	232	PDGB( 1, 4,:) = (/&
	233	&0.18920793E+01_JPRB, 0.18418304E+01_JPRB, 0.10000000E+01_JPRB/)
	234
	235	!----- INTERVAL = 2 ----- T = 200.00
	236
	237	PDGA( 2, 3,:) = (/&
	238	&0.15977537E+01_JPRB, 0.48084314E+00_JPRB, 0.00000000E+00_JPRB/)
	239	PDGB( 2, 3,:) = (/&
	240	&0.15977537E+01_JPRB, 0.16476468E+01_JPRB, 0.10000000E+01_JPRB/)
	241	PDGA( 2, 4,:) = (/&
	242	&0.20435568E+01_JPRB, 0.55893717E+00_JPRB, 0.00000000E+00_JPRB/)
	243	PDGB( 2, 4,:) = (/&
	244	&0.20435568E+01_JPRB, 0.19386656E+01_JPRB, 0.10000000E+01_JPRB/)
	245
	246	!----- INTERVAL = 2 ----- T = 212.50
	247
	248	PDGA( 3, 3,:) = (/&
	249	&0.16913237E+01_JPRB, 0.50454053E+00_JPRB, 0.00000000E+00_JPRB/)
	250	PDGB( 3, 3,:) = (/&
	251	&0.16913237E+01_JPRB, 0.17144170E+01_JPRB, 0.10000000E+01_JPRB/)
	252	PDGA( 3, 4,:) = (/&
	253	&0.21978186E+01_JPRB, 0.57905459E+00_JPRB, 0.00000000E+00_JPRB/)
	254	PDGB( 3, 4,:) = (/&
	255	&0.21978186E+01_JPRB, 0.20334044E+01_JPRB, 0.10000000E+01_JPRB/)
	256
	257	!----- INTERVAL = 2 ----- T = 225.00
	258
	259	PDGA( 4, 3,:) = (/&
	260	&0.17856476E+01_JPRB, 0.52514194E+00_JPRB, 0.00000000E+00_JPRB/)
	261	PDGB( 4, 3,:) = (/&
	262	&0.17856476E+01_JPRB, 0.17792823E+01_JPRB, 0.10000000E+01_JPRB/)
	263	PDGA( 4, 4,:) = (/&
	264	&0.23533355E+01_JPRB, 0.59558005E+00_JPRB, 0.00000000E+00_JPRB/)
	265	PDGB( 4, 4,:) = (/&
	266	&0.23533355E+01_JPRB, 0.21256517E+01_JPRB, 0.10000000E+01_JPRB/)
	267
	268	!----- INTERVAL = 2 ----- T = 237.50
	269
	270	PDGA( 5, 3,:) = (/&
	271	&0.18802811E+01_JPRB, 0.54304459E+00_JPRB, 0.00000000E+00_JPRB/)
	272	PDGB( 5, 3,:) = (/&
	273	&0.18802811E+01_JPRB, 0.18422412E+01_JPRB, 0.10000000E+01_JPRB/)
	274	PDGA( 5, 4,:) = (/&
	275	&0.25086500E+01_JPRB, 0.60908958E+00_JPRB, 0.00000000E+00_JPRB/)
	276	PDGB( 5, 4,:) = (/&
	277	&0.25086500E+01_JPRB, 0.22150389E+01_JPRB, 0.10000000E+01_JPRB/)
	278
	279	!----- INTERVAL = 2 ----- T = 250.00
	280
	281	PDGA( 6, 3,:) = (/&
	282	&0.19747954E+01_JPRB, 0.55860186E+00_JPRB, 0.00000000E+00_JPRB/)
	283	PDGB( 6, 3,:) = (/&
	284	&0.19747954E+01_JPRB, 0.19032856E+01_JPRB, 0.10000000E+01_JPRB/)
	285	PDGA( 6, 4,:) = (/&
	286	&0.26624407E+01_JPRB, 0.62008317E+00_JPRB, 0.00000000E+00_JPRB/)
	287	PDGB( 6, 4,:) = (/&
	288	&0.26624407E+01_JPRB, 0.23012482E+01_JPRB, 0.10000000E+01_JPRB/)
	289
	290	!----- INTERVAL = 2 ----- T = 262.50
	291
	292	PDGA( 7, 3,:) = (/&
	293	&0.20687911E+01_JPRB, 0.57212480E+00_JPRB, 0.00000000E+00_JPRB/)
	294	PDGB( 7, 3,:) = (/&
	295	&0.20687911E+01_JPRB, 0.19624068E+01_JPRB, 0.10000000E+01_JPRB/)
	296	PDGA( 7, 4,:) = (/&
	297	&0.28135635E+01_JPRB, 0.62898892E+00_JPRB, 0.00000000E+00_JPRB/)
	298	PDGB( 7, 4,:) = (/&
	299	&0.28135635E+01_JPRB, 0.23840281E+01_JPRB, 0.10000000E+01_JPRB/)
	300
	301	!----- INTERVAL = 2 ----- T = 275.00
	302
	303	PDGA( 8, 3,:) = (/&
	304	&0.21619083E+01_JPRB, 0.58388519E+00_JPRB, 0.00000000E+00_JPRB/)
	305	PDGB( 8, 3,:) = (/&
	306	&0.21619083E+01_JPRB, 0.20195993E+01_JPRB, 0.10000000E+01_JPRB/)
	307	PDGA( 8, 4,:) = (/&
	308	&0.29610693E+01_JPRB, 0.63616954E+00_JPRB, 0.00000000E+00_JPRB/)
	309	PDGB( 8, 4,:) = (/&
	310	&0.29610693E+01_JPRB, 0.24631984E+01_JPRB, 0.10000000E+01_JPRB/)
	311
	312	!----- INTERVAL = 2 ----- T = 287.50
	313
	314	PDGA( 9, 3,:) = (/&
	315	&0.22538305E+01_JPRB, 0.59411934E+00_JPRB, 0.00000000E+00_JPRB/)
	316	PDGB( 9, 3,:) = (/&
	317	&0.22538305E+01_JPRB, 0.20748638E+01_JPRB, 0.10000000E+01_JPRB/)
	318	PDGA( 9, 4,:) = (/&
	319	&0.31042087E+01_JPRB, 0.64192944E+00_JPRB, 0.00000000E+00_JPRB/)
	320	PDGB( 9, 4,:) = (/&
	321	&0.31042087E+01_JPRB, 0.25386513E+01_JPRB, 0.10000000E+01_JPRB/)
	322
	323	!----- INTERVAL = 2 ----- T = 300.00
	324
	325	PDGA(10, 3,:) = (/&
	326	&0.23442867E+01_JPRB, 0.60303198E+00_JPRB, 0.00000000E+00_JPRB/)
	327	PDGB(10, 3,:) = (/&
	328	&0.23442867E+01_JPRB, 0.21282086E+01_JPRB, 0.10000000E+01_JPRB/)
	329	PDGA(10, 4,:) = (/&
	330	&0.32424163E+01_JPRB, 0.64652280E+00_JPRB, 0.00000000E+00_JPRB/)
	331	PDGB(10, 4,:) = (/&
	332	&0.32424163E+01_JPRB, 0.26103424E+01_JPRB, 0.10000000E+01_JPRB/)
	333
	334	!----- INTERVAL = 2 ----- T = 312.50
	335
	336	PDGA(11, 3,:) = (/&
	337	&0.24330507E+01_JPRB, 0.61080006E+00_JPRB, 0.00000000E+00_JPRB/)
	338	PDGB(11, 3,:) = (/&
	339	&0.24330507E+01_JPRB, 0.21796505E+01_JPRB, 0.10000000E+01_JPRB/)
	340	PDGA(11, 4,:) = (/&
	341	&0.33752974E+01_JPRB, 0.65016031E+00_JPRB, 0.00000000E+00_JPRB/)
	342	PDGB(11, 4,:) = (/&
	343	&0.33752974E+01_JPRB, 0.26782849E+01_JPRB, 0.10000000E+01_JPRB/)
	344
	345
	346	!- WATER VAPOR - INT. 3 -- 800-970 + 1110-1250 CM-1
	347
	348
	349	!----- INTERVAL = 3 ----- T = 187.50
	350
	351	PDGA( 1, 7,:) = (/&
	352	&0.14334746E+02_JPRB, 0.11649992E+02_JPRB, 0.00000000E+00_JPRB/)
	353	PDGB( 1, 7,:) = (/&
	354	&0.14334746E+02_JPRB, 0.12059903E+02_JPRB, 0.10000000E+01_JPRB/)
	355	PDGA( 1, 8,:) = (/&
	356	&0.11596027E+02_JPRB, 0.11051587E+02_JPRB, 0.00000000E+00_JPRB/)
	357	PDGB( 1, 8,:) = (/&
	358	&0.11596027E+02_JPRB, 0.11390898E+02_JPRB, 0.10000000E+01_JPRB/)
	359
	360	!----- INTERVAL = 3 ----- T = 200.00
	361
	362	PDGA( 2, 7,:) = (/&
	363	&0.12924521E+02_JPRB, 0.11365906E+02_JPRB, 0.00000000E+00_JPRB/)
	364	PDGB( 2, 7,:) = (/&
	365	&0.12924521E+02_JPRB, 0.11739611E+02_JPRB, 0.10000000E+01_JPRB/)
	366	PDGA( 2, 8,:) = (/&
	367	&0.10445365E+02_JPRB, 0.10682810E+02_JPRB, 0.00000000E+00_JPRB/)
	368	PDGB( 2, 8,:) = (/&
	369	&0.10445365E+02_JPRB, 0.10993927E+02_JPRB, 0.10000000E+01_JPRB/)
	370
	371	!----- INTERVAL = 3 ----- T = 212.50
	372
	373	PDGA( 3, 7,:) = (/&
	374	&0.11774060E+02_JPRB, 0.11080218E+02_JPRB, 0.00000000E+00_JPRB/)
	375	PDGB( 3, 7,:) = (/&
	376	&0.11774060E+02_JPRB, 0.11424740E+02_JPRB, 0.10000000E+01_JPRB/)
	377	PDGA( 3, 8,:) = (/&
	378	&0.95571840E+01_JPRB, 0.10328058E+02_JPRB, 0.00000000E+00_JPRB/)
	379	PDGB( 3, 8,:) = (/&
	380	&0.95571840E+01_JPRB, 0.10618404E+02_JPRB, 0.10000000E+01_JPRB/)
	381
	382	!----- INTERVAL = 3 ----- T = 225.00
	383
	384	PDGA( 4, 7,:) = (/&
	385	&0.10839967E+02_JPRB, 0.10800025E+02_JPRB, 0.00000000E+00_JPRB/)
	386	PDGB( 4, 7,:) = (/&
	387	&0.10839967E+02_JPRB, 0.11121318E+02_JPRB, 0.10000000E+01_JPRB/)
	388	PDGA( 4, 8,:) = (/&
	389	&0.88719975E+01_JPRB, 0.99930444E+01_JPRB, 0.00000000E+00_JPRB/)
	390	PDGB( 4, 8,:) = (/&
	391	&0.88719975E+01_JPRB, 0.10268470E+02_JPRB, 0.10000000E+01_JPRB/)
	392
	393	!----- INTERVAL = 3 ----- T = 237.50
	394
	395	PDGA( 5, 7,:) = (/&
	396	&0.10082160E+02_JPRB, 0.10529965E+02_JPRB, 0.00000000E+00_JPRB/)
	397	PDGB( 5, 7,:) = (/&
	398	&0.10082160E+02_JPRB, 0.10832955E+02_JPRB, 0.10000000E+01_JPRB/)
	399	PDGA( 5, 8,:) = (/&
	400	&0.83425443E+01_JPRB, 0.96805504E+01_JPRB, 0.00000000E+00_JPRB/)
	401	PDGB( 5, 8,:) = (/&
	402	&0.83425443E+01_JPRB, 0.99456138E+01_JPRB, 0.10000000E+01_JPRB/)
	403
	404	!----- INTERVAL = 3 ----- T = 250.00
	405
	406	PDGA( 6, 7,:) = (/&
	407	&0.94663507E+01_JPRB, 0.10272823E+02_JPRB, 0.00000000E+00_JPRB/)
	408	PDGB( 6, 7,:) = (/&
	409	&0.94663507E+01_JPRB, 0.10561525E+02_JPRB, 0.10000000E+01_JPRB/)
	410	PDGA( 6, 8,:) = (/&
	411	&0.79324712E+01_JPRB, 0.93914198E+01_JPRB, 0.00000000E+00_JPRB/)
	412	PDGB( 6, 8,:) = (/&
	413	&0.79324712E+01_JPRB, 0.96496576E+01_JPRB, 0.10000000E+01_JPRB/)
	414
	415	!----- INTERVAL = 3 ----- T = 262.50
	416
	417	PDGA( 7, 7,:) = (/&
	418	&0.89643981E+01_JPRB, 0.10030051E+02_JPRB, 0.00000000E+00_JPRB/)
	419	PDGB( 7, 7,:) = (/&
	420	&0.89643981E+01_JPRB, 0.10307714E+02_JPRB, 0.10000000E+01_JPRB/)
	421	PDGA( 7, 8,:) = (/&
	422	&0.76141974E+01_JPRB, 0.91252916E+01_JPRB, 0.00000000E+00_JPRB/)
	423	PDGB( 7, 8,:) = (/&
	424	&0.76141974E+01_JPRB, 0.93794463E+01_JPRB, 0.10000000E+01_JPRB/)
	425
	426	!----- INTERVAL = 3 ----- T = 275.00
	427
	428	PDGA( 8, 7,:) = (/&
	429	&0.85537123E+01_JPRB, 0.98021793E+01_JPRB, 0.00000000E+00_JPRB/)
	430	PDGB( 8, 7,:) = (/&
	431	&0.85537123E+01_JPRB, 0.10071426E+02_JPRB, 0.10000000E+01_JPRB/)
	432	PDGA( 8, 8,:) = (/&
	433	&0.73668729E+01_JPRB, 0.88811055E+01_JPRB, 0.00000000E+00_JPRB/)
	434	PDGB( 8, 8,:) = (/&
	435	&0.73668729E+01_JPRB, 0.91333042E+01_JPRB, 0.10000000E+01_JPRB/)
	436
	437	!----- INTERVAL = 3 ----- T = 287.50
	438
	439	PDGA( 9, 7,:) = (/&
	440	&0.82163567E+01_JPRB, 0.95891296E+01_JPRB, 0.00000000E+00_JPRB/)
	441	PDGB( 9, 7,:) = (/&
	442	&0.82163567E+01_JPRB, 0.98520772E+01_JPRB, 0.10000000E+01_JPRB/)
	443	PDGA( 9, 8,:) = (/&
	444	&0.71747025E+01_JPRB, 0.86574340E+01_JPRB, 0.00000000E+00_JPRB/)
	445	PDGB( 9, 8,:) = (/&
	446	&0.71747025E+01_JPRB, 0.89093260E+01_JPRB, 0.10000000E+01_JPRB/)
	447
	448	!----- INTERVAL = 3 ----- T = 300.00
	449
	450	PDGA(10, 7,:) = (/&
	451	&0.79381525E+01_JPRB, 0.93904375E+01_JPRB, 0.00000000E+00_JPRB/)
	452	PDGB(10, 7,:) = (/&
	453	&0.79381525E+01_JPRB, 0.96487960E+01_JPRB, 0.10000000E+01_JPRB/)
	454	PDGA(10, 8,:) = (/&
	455	&0.70256573E+01_JPRB, 0.84526940E+01_JPRB, 0.00000000E+00_JPRB/)
	456	PDGB(10, 8,:) = (/&
	457	&0.70256573E+01_JPRB, 0.87055560E+01_JPRB, 0.10000000E+01_JPRB/)
	458
	459	!----- INTERVAL = 3 ----- T = 312.50
	460
	461	PDGA(11, 7,:) = (/&
	462	&0.77078849E+01_JPRB, 0.92054098E+01_JPRB, 0.00000000E+00_JPRB/)
	463	PDGB(11, 7,:) = (/&
	464	&0.77078849E+01_JPRB, 0.94605633E+01_JPRB, 0.10000000E+01_JPRB/)
	465	PDGA(11, 8,:) = (/&
	466	&0.69105145E+01_JPRB, 0.82652769E+01_JPRB, 0.00000000E+00_JPRB/)
	467	PDGB(11, 8,:) = (/&
	468	&0.69105145E+01_JPRB, 0.85200926E+01_JPRB, 0.10000000E+01_JPRB/)
	469
	470	!-- WATER VAPOR --- 970 -1110 CM-1
	471
	472
	473	!----- INTERVAL = 4 ----- T = 187.500
	474
	475	PDGA( 1, 9,:) = (/&
	476	&0.94868790E+02_JPRB, 0.17437229E+02_JPRB, 0.00000000E+00_JPRB/)
	477	PDGB( 1, 9,:) = (/&
	478	&0.94868790E+02_JPRB, 0.18796329E+02_JPRB, 0.10000000E+01_JPRB/)
	479	PDGA( 1,10,:) = (/&
	480	&0.95419113E+02_JPRB, 0.17234291E+02_JPRB, 0.00000000E+00_JPRB/)
	481	PDGB( 1,10,:) = (/&
	482	&0.95419113E+02_JPRB, 0.18632164E+02_JPRB, 0.10000000E+01_JPRB/)
	483
	484	!----- INTERVAL = 4 ----- T = 200.000
	485
	486	PDGA( 2, 9,:) = (/&
	487	&0.95143959E+02_JPRB, 0.17335575E+02_JPRB, 0.00000000E+00_JPRB/)
	488	PDGB( 2, 9,:) = (/&
	489	&0.95143959E+02_JPRB, 0.18714111E+02_JPRB, 0.10000000E+01_JPRB/)
	490	PDGA( 2,10,:) = (/&
	491	&0.95675995E+02_JPRB, 0.17129913E+02_JPRB, 0.00000000E+00_JPRB/)
	492	PDGB( 2,10,:) = (/&
	493	&0.95675995E+02_JPRB, 0.18547161E+02_JPRB, 0.10000000E+01_JPRB/)
	494
	495	!----- INTERVAL = 4 ----- T = 212.500
	496
	497	PDGA( 3, 9,:) = (/&
	498	&0.95363609E+02_JPRB, 0.17245064E+02_JPRB, 0.00000000E+00_JPRB/)
	499	PDGB( 3, 9,:) = (/&
	500	&0.95363609E+02_JPRB, 0.18640270E+02_JPRB, 0.10000000E+01_JPRB/)
	501	PDGA( 3,10,:) = (/&
	502	&0.95911537E+02_JPRB, 0.17036016E+02_JPRB, 0.00000000E+00_JPRB/)
	503	PDGB( 3,10,:) = (/&
	504	&0.95911537E+02_JPRB, 0.18470697E+02_JPRB, 0.10000000E+01_JPRB/)
	505
	506	!----- INTERVAL = 4 ----- T = 225.000
	507
	508	PDGA( 4, 9,:) = (/&
	509	&0.95551239E+02_JPRB, 0.17163479E+02_JPRB, 0.00000000E+00_JPRB/)
	510	PDGB( 4, 9,:) = (/&
	511	&0.95551239E+02_JPRB, 0.18573282E+02_JPRB, 0.10000000E+01_JPRB/)
	512	PDGA( 4,10,:) = (/&
	513	&0.96128136E+02_JPRB, 0.16952074E+02_JPRB, 0.00000000E+00_JPRB/)
	514	PDGB( 4,10,:) = (/&
	515	&0.96128136E+02_JPRB, 0.18402708E+02_JPRB, 0.10000000E+01_JPRB/)
	516
	517	!----- INTERVAL = 4 ----- T = 237.500
	518
	519	PDGA( 5, 9,:) = (/&
	520	&0.95763680E+02_JPRB, 0.17089018E+02_JPRB, 0.00000000E+00_JPRB/)
	521	PDGB( 5, 9,:) = (/&
	522	&0.95763680E+02_JPRB, 0.18513403E+02_JPRB, 0.10000000E+01_JPRB/)
	523	PDGA( 5,10,:) = (/&
	524	&0.96294296E+02_JPRB, 0.16877150E+02_JPRB, 0.00000000E+00_JPRB/)
	525	PDGB( 5,10,:) = (/&
	526	&0.96294296E+02_JPRB, 0.18341324E+02_JPRB, 0.10000000E+01_JPRB/)
	527
	528	!----- INTERVAL = 4 ----- T = 250.000
	529
	530	PDGA( 6, 9,:) = (/&
	531	&0.95913246E+02_JPRB, 0.17022213E+02_JPRB, 0.00000000E+00_JPRB/)
	532	PDGB( 6, 9,:) = (/&
	533	&0.95913246E+02_JPRB, 0.18458538E+02_JPRB, 0.10000000E+01_JPRB/)
	534	PDGA( 6,10,:) = (/&
	535	&0.96462036E+02_JPRB, 0.16808561E+02_JPRB, 0.00000000E+00_JPRB/)
	536	PDGB( 6,10,:) = (/&
	537	&0.96462036E+02_JPRB, 0.18285398E+02_JPRB, 0.10000000E+01_JPRB/)
	538
	539	!----- INTERVAL = 4 ----- T = 262.500
	540
	541	PDGA( 7, 9,:) = (/&
	542	&0.96069473E+02_JPRB, 0.16961018E+02_JPRB, 0.00000000E+00_JPRB/)
	543	PDGB( 7, 9,:) = (/&
	544	&0.96069473E+02_JPRB, 0.18408932E+02_JPRB, 0.10000000E+01_JPRB/)
	545	PDGA( 7,10,:) = (/&
	546	&0.96610298E+02_JPRB, 0.16746571E+02_JPRB, 0.00000000E+00_JPRB/)
	547	PDGB( 7,10,:) = (/&
	548	&0.96610298E+02_JPRB, 0.18234850E+02_JPRB, 0.10000000E+01_JPRB/)
	549
	550	!----- INTERVAL = 4 ----- T = 275.000
	551
	552	PDGA( 8, 9,:) = (/&
	553	&0.96201309E+02_JPRB, 0.16905493E+02_JPRB, 0.00000000E+00_JPRB/)
	554	PDGB( 8, 9,:) = (/&
	555	&0.96201309E+02_JPRB, 0.18363655E+02_JPRB, 0.10000000E+01_JPRB/)
	556	PDGA( 8,10,:) = (/&
	557	&0.96754684E+02_JPRB, 0.16690109E+02_JPRB, 0.00000000E+00_JPRB/)
	558	PDGB( 8,10,:) = (/&
	559	&0.96754684E+02_JPRB, 0.18189079E+02_JPRB, 0.10000000E+01_JPRB/)
	560
	561	!----- INTERVAL = 4 ----- T = 287.500
	562
	563	PDGA( 9, 9,:) = (/&
	564	&0.96342339E+02_JPRB, 0.16853893E+02_JPRB, 0.00000000E+00_JPRB/)
	565	PDGB( 9, 9,:) = (/&
	566	&0.96342339E+02_JPRB, 0.18321957E+02_JPRB, 0.10000000E+01_JPRB/)
	567	PDGA( 9,10,:) = (/&
	568	&0.96883301E+02_JPRB, 0.16638573E+02_JPRB, 0.00000000E+00_JPRB/)
	569	PDGB( 9,10,:) = (/&
	570	&0.96883301E+02_JPRB, 0.18147303E+02_JPRB, 0.10000000E+01_JPRB/)
	571
	572	!----- INTERVAL = 4 ----- T = 300.000
	573
	574	PDGA(10, 9,:) = (/&
	575	&0.96457764E+02_JPRB, 0.16806755E+02_JPRB, 0.00000000E+00_JPRB/)
	576	PDGB(10, 9,:) = (/&
	577	&0.96457764E+02_JPRB, 0.18283590E+02_JPRB, 0.10000000E+01_JPRB/)
	578	PDGA(10,10,:) = (/&
	579	&0.96989792E+02_JPRB, 0.16591677E+02_JPRB, 0.00000000E+00_JPRB/)
	580	PDGB(10,10,:) = (/&
	581	&0.96989792E+02_JPRB, 0.18108814E+02_JPRB, 0.10000000E+01_JPRB/)
	582
	583	!----- INTERVAL = 4 ----- T = 312.500
	584
	585	PDGA(11, 9,:) = (/&
	586	&0.96549957E+02_JPRB, 0.16763689E+02_JPRB, 0.00000000E+00_JPRB/)
	587	PDGB(11, 9,:) = (/&
	588	&0.96549957E+02_JPRB, 0.18248074E+02_JPRB, 0.10000000E+01_JPRB/)
	589	PDGA(11,10,:) = (/&
	590	&0.97097275E+02_JPRB, 0.16548479E+02_JPRB, 0.00000000E+00_JPRB/)
	591	PDGB(11,10,:) = (/&
	592	&0.97097275E+02_JPRB, 0.18073788E+02_JPRB, 0.10000000E+01_JPRB/)
	593
	594	!-- WATER VAPOR -- INT.5 -- 350- 500 CM-1
	595
	596
	597	!----- INTERVAL = 5 ----- T = 187.500
	598
	599	PDGA( 1, 5,:) = (/&
	600	&0.13134047E+00_JPRB,-0.23649048E-01_JPRB, 0.00000000E+00_JPRB/)
	601	PDGB( 1, 5,:) = (/&
	602	&0.13134047E+00_JPRB, 0.54008597E+00_JPRB, 0.10000000E+01_JPRB/)
	603	PDGA( 1, 6,:) = (/&
	604	&0.14049581E+00_JPRB,-0.26231026E-01_JPRB, 0.00000000E+00_JPRB/)
	605	PDGB( 1, 6,:) = (/&
	606	&0.14049581E+00_JPRB, 0.54143775E+00_JPRB, 0.10000000E+01_JPRB/)
	607
	608	!----- INTERVAL = 5 ----- T = 200.000
	609
	610	PDGA( 2, 5,:) = (/&
	611	&0.13330981E+00_JPRB,-0.24178915E-01_JPRB, 0.00000000E+00_JPRB/)
	612	PDGB( 2, 5,:) = (/&
	613	&0.13330981E+00_JPRB, 0.54094988E+00_JPRB, 0.10000000E+01_JPRB/)
	614	PDGA( 2, 6,:) = (/&
	615	&0.14229582E+00_JPRB,-0.26725627E-01_JPRB, 0.00000000E+00_JPRB/)
	616	PDGB( 2, 6,:) = (/&
	617	&0.14229582E+00_JPRB, 0.54189402E+00_JPRB, 0.10000000E+01_JPRB/)
	618
	619	!----- INTERVAL = 5 ----- T = 212.500
	620
	621	PDGA( 3, 5,:) = (/&
	622	&0.13504511E+00_JPRB,-0.24650861E-01_JPRB, 0.00000000E+00_JPRB/)
	623	PDGB( 3, 5,:) = (/&
	624	&0.13504511E+00_JPRB, 0.54169583E+00_JPRB, 0.10000000E+01_JPRB/)
	625	PDGA( 3, 6,:) = (/&
	626	&0.14384151E+00_JPRB,-0.27153090E-01_JPRB, 0.00000000E+00_JPRB/)
	627	PDGB( 3, 6,:) = (/&
	628	&0.14384151E+00_JPRB, 0.54222512E+00_JPRB, 0.10000000E+01_JPRB/)
	629
	630	!----- INTERVAL = 5 ----- T = 225.000
	631
	632	PDGA( 4, 5,:) = (/&
	633	&0.13651314E+00_JPRB,-0.25044570E-01_JPRB, 0.00000000E+00_JPRB/)
	634	PDGB( 4, 5,:) = (/&
	635	&0.13651314E+00_JPRB, 0.54191625E+00_JPRB, 0.10000000E+01_JPRB/)
	636	PDGA( 4, 6,:) = (/&
	637	&0.14517485E+00_JPRB,-0.27523417E-01_JPRB, 0.00000000E+00_JPRB/)
	638	PDGB( 4, 6,:) = (/&
	639	&0.14517485E+00_JPRB, 0.54246801E+00_JPRB, 0.10000000E+01_JPRB/)
	640
	641	!----- INTERVAL = 5 ----- T = 237.500
	642
	643	PDGA( 5, 5,:) = (/&
	644	&0.13790466E+00_JPRB,-0.25431205E-01_JPRB, 0.00000000E+00_JPRB/)
	645	PDGB( 5, 5,:) = (/&
	646	&0.13790466E+00_JPRB, 0.54262739E+00_JPRB, 0.10000000E+01_JPRB/)
	647	PDGA( 5, 6,:) = (/&
	648	&0.14633319E+00_JPRB,-0.27845515E-01_JPRB, 0.00000000E+00_JPRB/)
	649	PDGB( 5, 6,:) = (/&
	650	&0.14633319E+00_JPRB, 0.54265642E+00_JPRB, 0.10000000E+01_JPRB/)
	651
	652	!----- INTERVAL = 5 ----- T = 250.000
	653
	654	PDGA( 6, 5,:) = (/&
	655	&0.13909847E+00_JPRB,-0.25759069E-01_JPRB, 0.00000000E+00_JPRB/)
	656	PDGB( 6, 5,:) = (/&
	657	&0.13909847E+00_JPRB, 0.54293746E+00_JPRB, 0.10000000E+01_JPRB/)
	658	PDGA( 6, 6,:) = (/&
	659	&0.14734478E+00_JPRB,-0.28128289E-01_JPRB, 0.00000000E+00_JPRB/)
	660	PDGB( 6, 6,:) = (/&
	661	&0.14734478E+00_JPRB, 0.54279846E+00_JPRB, 0.10000000E+01_JPRB/)
	662
	663	!----- INTERVAL = 5 ----- T = 262.500
	664
	665	PDGA( 7, 5,:) = (/&
	666	&0.14014673E+00_JPRB,-0.26045626E-01_JPRB, 0.00000000E+00_JPRB/)
	667	PDGB( 7, 5,:) = (/&
	668	&0.14014673E+00_JPRB, 0.54306209E+00_JPRB, 0.10000000E+01_JPRB/)
	669	PDGA( 7, 6,:) = (/&
	670	&0.14823231E+00_JPRB,-0.28376250E-01_JPRB, 0.00000000E+00_JPRB/)
	671	PDGB( 7, 6,:) = (/&
	672	&0.14823231E+00_JPRB, 0.54290944E+00_JPRB, 0.10000000E+01_JPRB/)
	673
	674	!----- INTERVAL = 5 ----- T = 275.000
	675
	676	PDGA( 8, 5,:) = (/&
	677	&0.14110570E+00_JPRB,-0.26310772E-01_JPRB, 0.00000000E+00_JPRB/)
	678	PDGB( 8, 5,:) = (/&
	679	&0.14110570E+00_JPRB, 0.54324186E+00_JPRB, 0.10000000E+01_JPRB/)
	680	PDGA( 8, 6,:) = (/&
	681	&0.14901793E+00_JPRB,-0.28597040E-01_JPRB, 0.00000000E+00_JPRB/)
	682	PDGB( 8, 6,:) = (/&
	683	&0.14901793E+00_JPRB, 0.54300690E+00_JPRB, 0.10000000E+01_JPRB/)
	684
	685	!----- INTERVAL = 5 ----- T = 287.500
	686
	687	PDGA( 9, 5,:) = (/&
	688	&0.14198618E+00_JPRB,-0.26556855E-01_JPRB, 0.00000000E+00_JPRB/)
	689	PDGB( 9, 5,:) = (/&
	690	&0.14198618E+00_JPRB, 0.54346353E+00_JPRB, 0.10000000E+01_JPRB/)
	691	PDGA( 9, 6,:) = (/&
	692	&0.14971229E+00_JPRB,-0.28792191E-01_JPRB, 0.00000000E+00_JPRB/)
	693	PDGB( 9, 6,:) = (/&
	694	&0.14971229E+00_JPRB, 0.54307669E+00_JPRB, 0.10000000E+01_JPRB/)
	695
	696	!----- INTERVAL = 5 ----- T = 300.000
	697
	698	PDGA(10, 5,:) = (/&
	699	&0.14277160E+00_JPRB,-0.26774861E-01_JPRB, 0.00000000E+00_JPRB/)
	700	PDGB(10, 5,:) = (/&
	701	&0.14277160E+00_JPRB, 0.54357564E+00_JPRB, 0.10000000E+01_JPRB/)
	702	PDGA(10, 6,:) = (/&
	703	&0.15033126E+00_JPRB,-0.28966904E-01_JPRB, 0.00000000E+00_JPRB/)
	704	PDGB(10, 6,:) = (/&
	705	&0.15033126E+00_JPRB, 0.54313493E+00_JPRB, 0.10000000E+01_JPRB/)
	706
	707	!----- INTERVAL = 5 ----- T = 312.500
	708
	709	PDGA(11, 5,:) = (/&
	710	&0.14349319E+00_JPRB,-0.26976623E-01_JPRB, 0.00000000E+00_JPRB/)
	711	PDGB(11, 5,:) = (/&
	712	&0.14349319E+00_JPRB, 0.54369903E+00_JPRB, 0.10000000E+01_JPRB/)
	713	PDGA(11, 6,:) = (/&
	714	&0.15088280E+00_JPRB,-0.29121898E-01_JPRB, 0.00000000E+00_JPRB/)
	715	PDGB(11, 6,:) = (/&
	716	&0.15088280E+00_JPRB, 0.54318237E+00_JPRB, 0.10000000E+01_JPRB/)
	717
	718	!- WATER VAPOR - WINGS OF VIBRATION-ROTATION BAND - 1250-1450+1880-2820 -
	719
	720
	721	!----- INTERVAL = 6 ----- T = 187.50
	722
	723	PDGA( 1,11,:) = (/&
	724	&0.59891051E+00_JPRB, 0.12874948E-01_JPRB, 0.00000000E+00_JPRB/)
	725	PDGB( 1,11,:) = (/&
	726	&0.59891051E+00_JPRB, 0.15230591E+01_JPRB, 0.10000000E+01_JPRB/)
	727	PDGA( 1,12,:) = (/&
	728	&0.55131795E+00_JPRB, 0.32252772E-01_JPRB, 0.00000000E+00_JPRB/)
	729	PDGB( 1,12,:) = (/&
	730	&0.55131795E+00_JPRB, 0.14332603E+01_JPRB, 0.10000000E+01_JPRB/)
	731
	732	!----- INTERVAL = 6 ----- T = 200.00
	733
	734	PDGA( 2,11,:) = (/&
	735	&0.59891051E+00_JPRB, 0.12874948E-01_JPRB, 0.00000000E+00_JPRB/)
	736	PDGB( 2,11,:) = (/&
	737	&0.59891051E+00_JPRB, 0.15230591E+01_JPRB, 0.10000000E+01_JPRB/)
	738	PDGA( 2,12,:) = (/&
	739	&0.55131795E+00_JPRB, 0.32252772E-01_JPRB, 0.00000000E+00_JPRB/)
	740	PDGB( 2,12,:) = (/&
	741	&0.55131795E+00_JPRB, 0.14332603E+01_JPRB, 0.10000000E+01_JPRB/)
	742
	743	!----- INTERVAL = 6 ----- T = 212.50
	744
	745	PDGA( 3,11,:) = (/&
	746	&0.59891051E+00_JPRB, 0.12874948E-01_JPRB, 0.00000000E+00_JPRB/)
	747	PDGB( 3,11,:) = (/&
	748	&0.59891051E+00_JPRB, 0.15230591E+01_JPRB, 0.10000000E+01_JPRB/)
	749	PDGA( 3,12,:) = (/&
	750	&0.44063067E+00_JPRB, 0.91024989E-01_JPRB, 0.00000000E+00_JPRB/)
	751	PDGB( 3,12,:) = (/&
	752	&0.44063067E+00_JPRB, 0.12039660E+01_JPRB, 0.10000000E+01_JPRB/)
	753
	754	!----- INTERVAL = 6 ----- T = 225.00
	755
	756	PDGA( 4,11,:) = (/&
	757	&0.51061614E+00_JPRB, 0.59883548E-01_JPRB, 0.00000000E+00_JPRB/)
	758	PDGB( 4,11,:) = (/&
	759	&0.51061614E+00_JPRB, 0.13461757E+01_JPRB, 0.10000000E+01_JPRB/)
	760	PDGA( 4,12,:) = (/&
	761	&0.30439727E+00_JPRB, 0.15980470E+00_JPRB, 0.00000000E+00_JPRB/)
	762	PDGB( 4,12,:) = (/&
	763	&0.30439727E+00_JPRB, 0.91241774E+00_JPRB, 0.10000000E+01_JPRB/)
	764
	765	!----- INTERVAL = 6 ----- T = 237.50
	766
	767	PDGA( 5,11,:) = (/&
	768	&0.40673842E+00_JPRB, 0.11398935E+00_JPRB, 0.00000000E+00_JPRB/)
	769	PDGB( 5,11,:) = (/&
	770	&0.40673842E+00_JPRB, 0.11289965E+01_JPRB, 0.10000000E+01_JPRB/)
	771	PDGA( 5,12,:) = (/&
	772	&0.15005620E+00_JPRB, 0.23446409E+00_JPRB, 0.00000000E+00_JPRB/)
	773	PDGB( 5,12,:) = (/&
	774	&0.15005620E+00_JPRB, 0.58547602E+00_JPRB, 0.10000000E+01_JPRB/)
	775
	776	!----- INTERVAL = 6 ----- T = 250.00
	777
	778	PDGA( 6,11,:) = (/&
	779	&0.28375203E+00_JPRB, 0.17444874E+00_JPRB, 0.00000000E+00_JPRB/)
	780	PDGB( 6,11,:) = (/&
	781	&0.28375203E+00_JPRB, 0.86693115E+00_JPRB, 0.10000000E+01_JPRB/)
	782	PDGA( 6,12,:) = (/&
	783	&0.51658133E-01_JPRB, 0.29464628E+00_JPRB, 0.00000000E+00_JPRB/)
	784	PDGB( 6,12,:) = (/&
	785	&0.51658133E-01_JPRB, 0.40170363E+00_JPRB, 0.10000000E+01_JPRB/)
	786
	787	!----- INTERVAL = 6 ----- T = 262.50
	788
	789	PDGA( 7,11,:) = (/&
	790	&0.15136005E+00_JPRB, 0.23761536E+00_JPRB, 0.00000000E+00_JPRB/)
	791	PDGB( 7,11,:) = (/&
	792	&0.15136005E+00_JPRB, 0.58911683E+00_JPRB, 0.10000000E+01_JPRB/)
	793	PDGA( 7,12,:) = (/&
	794	&0.18932679E-01_JPRB, 0.33516250E+00_JPRB, 0.00000000E+00_JPRB/)
	795	PDGB( 7,12,:) = (/&
	796	&0.18932679E-01_JPRB, 0.36796152E+00_JPRB, 0.10000000E+01_JPRB/)
	797
	798	!----- INTERVAL = 6 ----- T = 275.00
	799
	800	PDGA( 8,11,:) = (/&
	801	&0.61752765E-01_JPRB, 0.28965454E+00_JPRB, 0.00000000E+00_JPRB/)
	802	PDGB( 8,11,:) = (/&
	803	&0.61752765E-01_JPRB, 0.41975793E+00_JPRB, 0.10000000E+01_JPRB/)
	804	PDGA( 8,12,:) = (/&
	805	&0.79619427E-02_JPRB, 0.36873141E+00_JPRB, 0.00000000E+00_JPRB/)
	806	PDGB( 8,12,:) = (/&
	807	&0.79619427E-02_JPRB, 0.37964009E+00_JPRB, 0.10000000E+01_JPRB/)
	808
	809	!----- INTERVAL = 6 ----- T = 287.50
	810
	811	PDGA( 9,11,:) = (/&
	812	&0.26192233E-01_JPRB, 0.32568668E+00_JPRB, 0.00000000E+00_JPRB/)
	813	PDGB( 9,11,:) = (/&
	814	&0.26192233E-01_JPRB, 0.37385106E+00_JPRB, 0.10000000E+01_JPRB/)
	815	PDGA( 9,12,:) = (/&
	816	&0.40764469E-02_JPRB, 0.40137572E+00_JPRB, 0.00000000E+00_JPRB/)
	817	PDGB( 9,12,:) = (/&
	818	&0.40764469E-02_JPRB, 0.40608889E+00_JPRB, 0.10000000E+01_JPRB/)
	819
	820	!----- INTERVAL = 6 ----- T = 300.00
	821
	822	PDGA(10,11,:) = (/&
	823	&0.12168738E-01_JPRB, 0.35455148E+00_JPRB, 0.00000000E+00_JPRB/)
	824	PDGB(10,11,:) = (/&
	825	&0.12168738E-01_JPRB, 0.37329084E+00_JPRB, 0.10000000E+01_JPRB/)
	826	PDGA(10,12,:) = (/&
	827	&0.23914061E-02_JPRB, 0.43615987E+00_JPRB, 0.00000000E+00_JPRB/)
	828	PDGB(10,12,:) = (/&
	829	&0.23914061E-02_JPRB, 0.43919208E+00_JPRB, 0.10000000E+01_JPRB/)
	830
	831	!----- INTERVAL = 6 ----- T = 312.50
	832
	833	PDGA(11,11,:) = (/&
	834	&0.64195381E-02_JPRB, 0.38088067E+00_JPRB, 0.00000000E+00_JPRB/)
	835	PDGB(11,11,:) = (/&
	836	&0.64195381E-02_JPRB, 0.38906156E+00_JPRB, 0.10000000E+01_JPRB/)
	837	PDGA(11,12,:) = (/&
	838	&0.23914061E-02_JPRB, 0.43615987E+00_JPRB, 0.00000000E+00_JPRB/)
	839	PDGB(11,12,:) = (/&
	840	&0.23914061E-02_JPRB, 0.43919208E+00_JPRB, 0.10000000E+01_JPRB/)
	841
	842
	843
	844	!=======================================================================
	845
	846	!-- CARBON DIOXIDE
	847	! ==============
	848
	849	!-- CO2 -- INT.2 -- 500-800 CM-1 --- FROM ABS225 ------------
	850
	851	!-- FIU = 0.8 + DMAX1(0.35,(7-IU)*0.9) , X/T, 9
	852
	853	!----- INTERVAL = 2 ----- T = 187.5
	854
	855	!-- INDICES FOR PADE APPROXIMATION 1 30 38 45
	856	PDGA( 1,13,:) = (/&
	857	&0.87668459E-01_JPRB, 0.13845511E+01_JPRB, 0.00000000E+00_JPRB/)
	858	PDGB( 1,13,:) = (/&
	859	&0.87668459E-01_JPRB, 0.23203798E+01_JPRB, 0.10000000E+01_JPRB/)
	860	PDGA( 1,14,:) = (/&
	861	&0.74878820E-01_JPRB, 0.11718758E+01_JPRB, 0.00000000E+00_JPRB/)
	862	PDGB( 1,14,:) = (/&
	863	&0.74878820E-01_JPRB, 0.20206726E+01_JPRB, 0.10000000E+01_JPRB/)
	864
	865	!----- INTERVAL = 2 ----- T = 200.0
	866
	867	!-- INDICES FOR PADE APPROXIMATION 1 30 38 45
	868	PDGA( 2,13,:) = (/&
	869	&0.83754276E-01_JPRB, 0.13187042E+01_JPRB, 0.00000000E+00_JPRB/)
	870	PDGB( 2,13,:) = (/&
	871	&0.83754276E-01_JPRB, 0.22288925E+01_JPRB, 0.10000000E+01_JPRB/)
	872	PDGA( 2,14,:) = (/&
	873	&0.71650966E-01_JPRB, 0.11216131E+01_JPRB, 0.00000000E+00_JPRB/)
	874	PDGB( 2,14,:) = (/&
	875	&0.71650966E-01_JPRB, 0.19441824E+01_JPRB, 0.10000000E+01_JPRB/)
	876
	877	!----- INTERVAL = 2 ----- T = 212.5
	878
	879	!-- INDICES FOR PADE APPROXIMATION 1 30 38 45
	880	PDGA( 3,13,:) = (/&
	881	&0.80460283E-01_JPRB, 0.12644396E+01_JPRB, 0.00000000E+00_JPRB/)
	882	PDGB( 3,13,:) = (/&
	883	&0.80460283E-01_JPRB, 0.21515593E+01_JPRB, 0.10000000E+01_JPRB/)
	884	PDGA( 3,14,:) = (/&
	885	&0.68979615E-01_JPRB, 0.10809473E+01_JPRB, 0.00000000E+00_JPRB/)
	886	PDGB( 3,14,:) = (/&
	887	&0.68979615E-01_JPRB, 0.18807257E+01_JPRB, 0.10000000E+01_JPRB/)
	888
	889	!----- INTERVAL = 2 ----- T = 225.0
	890
	891	!-- INDICES FOR PADE APPROXIMATION 1 30 38 45
	892	PDGA( 4,13,:) = (/&
	893	&0.77659686E-01_JPRB, 0.12191543E+01_JPRB, 0.00000000E+00_JPRB/)
	894	PDGB( 4,13,:) = (/&
	895	&0.77659686E-01_JPRB, 0.20855896E+01_JPRB, 0.10000000E+01_JPRB/)
	896	PDGA( 4,14,:) = (/&
	897	&0.66745345E-01_JPRB, 0.10476396E+01_JPRB, 0.00000000E+00_JPRB/)
	898	PDGB( 4,14,:) = (/&
	899	&0.66745345E-01_JPRB, 0.18275618E+01_JPRB, 0.10000000E+01_JPRB/)
	900
	901	!----- INTERVAL = 2 ----- T = 237.5
	902
	903	!-- INDICES FOR PADE APPROXIMATION 1 30 38 45
	904	PDGA( 5,13,:) = (/&
	905	&0.75257056E-01_JPRB, 0.11809511E+01_JPRB, 0.00000000E+00_JPRB/)
	906	PDGB( 5,13,:) = (/&
	907	&0.75257056E-01_JPRB, 0.20288489E+01_JPRB, 0.10000000E+01_JPRB/)
	908	PDGA( 5,14,:) = (/&
	909	&0.64857571E-01_JPRB, 0.10200373E+01_JPRB, 0.00000000E+00_JPRB/)
	910	PDGB( 5,14,:) = (/&
	911	&0.64857571E-01_JPRB, 0.17825910E+01_JPRB, 0.10000000E+01_JPRB/)
	912
	913	!----- INTERVAL = 2 ----- T = 250.0
	914
	915	!-- INDICES FOR PADE APPROXIMATION 1 30 38 45
	916	PDGA( 6,13,:) = (/&
	917	&0.73179175E-01_JPRB, 0.11484154E+01_JPRB, 0.00000000E+00_JPRB/)
	918	PDGB( 6,13,:) = (/&
	919	&0.73179175E-01_JPRB, 0.19796791E+01_JPRB, 0.10000000E+01_JPRB/)
	920	PDGA( 6,14,:) = (/&
	921	&0.63248495E-01_JPRB, 0.99692726E+00_JPRB, 0.00000000E+00_JPRB/)
	922	PDGB( 6,14,:) = (/&
	923	&0.63248495E-01_JPRB, 0.17442308E+01_JPRB, 0.10000000E+01_JPRB/)
	924
	925	!----- INTERVAL = 2 ----- T = 262.5
	926
	927	!-- INDICES FOR PADE APPROXIMATION 1 30 38 45
	928	PDGA( 7,13,:) = (/&
	929	&0.71369063E-01_JPRB, 0.11204723E+01_JPRB, 0.00000000E+00_JPRB/)
	930	PDGB( 7,13,:) = (/&
	931	&0.71369063E-01_JPRB, 0.19367778E+01_JPRB, 0.10000000E+01_JPRB/)
	932	PDGA( 7,14,:) = (/&
	933	&0.61866970E-01_JPRB, 0.97740923E+00_JPRB, 0.00000000E+00_JPRB/)
	934	PDGB( 7,14,:) = (/&
	935	&0.61866970E-01_JPRB, 0.17112809E+01_JPRB, 0.10000000E+01_JPRB/)
	936
	937	!----- INTERVAL = 2 ----- T = 275.0
	938
	939	!-- INDICES FOR PADE APPROXIMATION 1 30 38 45
	940	PDGA( 8,13,:) = (/&
	941	&0.69781812E-01_JPRB, 0.10962918E+01_JPRB, 0.00000000E+00_JPRB/)
	942	PDGB( 8,13,:) = (/&
	943	&0.69781812E-01_JPRB, 0.18991112E+01_JPRB, 0.10000000E+01_JPRB/)
	944	PDGA( 8,14,:) = (/&
	945	&0.60673632E-01_JPRB, 0.96080188E+00_JPRB, 0.00000000E+00_JPRB/)
	946	PDGB( 8,14,:) = (/&
	947	&0.60673632E-01_JPRB, 0.16828137E+01_JPRB, 0.10000000E+01_JPRB/)
	948
	949	!----- INTERVAL = 2 ----- T = 287.5
	950
	951	!-- INDICES FOR PADE APPROXIMATION 1 30 38 45
	952	PDGA( 9,13,:) = (/&
	953	&0.68381606E-01_JPRB, 0.10752229E+01_JPRB, 0.00000000E+00_JPRB/)
	954	PDGB( 9,13,:) = (/&
	955	&0.68381606E-01_JPRB, 0.18658501E+01_JPRB, 0.10000000E+01_JPRB/)
	956	PDGA( 9,14,:) = (/&
	957	&0.59637277E-01_JPRB, 0.94657562E+00_JPRB, 0.00000000E+00_JPRB/)
	958	PDGB( 9,14,:) = (/&
	959	&0.59637277E-01_JPRB, 0.16580908E+01_JPRB, 0.10000000E+01_JPRB/)
	960
	961	!----- INTERVAL = 2 ----- T = 300.0
	962
	963	!-- INDICES FOR PADE APPROXIMATION 1 30 38 45
	964	PDGA(10,13,:) = (/&
	965	&0.67139539E-01_JPRB, 0.10567474E+01_JPRB, 0.00000000E+00_JPRB/)
	966	PDGB(10,13,:) = (/&
	967	&0.67139539E-01_JPRB, 0.18363226E+01_JPRB, 0.10000000E+01_JPRB/)
	968	PDGA(10,14,:) = (/&
	969	&0.58732178E-01_JPRB, 0.93430511E+00_JPRB, 0.00000000E+00_JPRB/)
	970	PDGB(10,14,:) = (/&
	971	&0.58732178E-01_JPRB, 0.16365014E+01_JPRB, 0.10000000E+01_JPRB/)
	972
	973	!----- INTERVAL = 2 ----- T = 312.5
	974
	975	!-- INDICES FOR PADE APPROXIMATION 1 30 38 45
	976	PDGA(11,13,:) = (/&
	977	&0.66032012E-01_JPRB, 0.10404465E+01_JPRB, 0.00000000E+00_JPRB/)
	978	PDGB(11,13,:) = (/&
	979	&0.66032012E-01_JPRB, 0.18099779E+01_JPRB, 0.10000000E+01_JPRB/)
	980	PDGA(11,14,:) = (/&
	981	&0.57936092E-01_JPRB, 0.92363528E+00_JPRB, 0.00000000E+00_JPRB/)
	982	PDGB(11,14,:) = (/&
	983	&0.57936092E-01_JPRB, 0.16175164E+01_JPRB, 0.10000000E+01_JPRB/)
	984
	985
	986
	987	!-- CARBON DIOXIDE LINES IN THE WINDOW REGION (800-1250 CM-1)
	988
	989	!----- INTERVAL = 4 ----- T = 187.5
	990
	991	!-- INDICES FOR PADE APPROXIMATION 1 15 29 45
	992	PDGA( 1,15,:) = (/&
	993	&0.13230067E+02_JPRB, 0.22042132E+02_JPRB, 0.00000000E+00_JPRB/)
	994	PDGB( 1,15,:) = (/&
	995	&0.13230067E+02_JPRB, 0.22051750E+02_JPRB, 0.10000000E+01_JPRB/)
	996	PDGA( 1,16,:) = (/&
	997	&0.13183816E+02_JPRB, 0.22169501E+02_JPRB, 0.00000000E+00_JPRB/)
	998	PDGB( 1,16,:) = (/&
	999	&0.13183816E+02_JPRB, 0.22178972E+02_JPRB, 0.10000000E+01_JPRB/)
	1000
	1001	!----- INTERVAL = 4 ----- T = 200.0
	1002
	1003	!-- INDICES FOR PADE APPROXIMATION 1 15 29 45
	1004	PDGA( 2,15,:) = (/&
	1005	&0.13213564E+02_JPRB, 0.22107298E+02_JPRB, 0.00000000E+00_JPRB/)
	1006	PDGB( 2,15,:) = (/&
	1007	&0.13213564E+02_JPRB, 0.22116850E+02_JPRB, 0.10000000E+01_JPRB/)
	1008	PDGA( 2,16,:) = (/&
	1009	&0.13189991E+02_JPRB, 0.22270075E+02_JPRB, 0.00000000E+00_JPRB/)
	1010	PDGB( 2,16,:) = (/&
	1011	&0.13189991E+02_JPRB, 0.22279484E+02_JPRB, 0.10000000E+01_JPRB/)
	1012
	1013	!----- INTERVAL = 4 ----- T = 212.5
	1014
	1015	!-- INDICES FOR PADE APPROXIMATION 1 15 29 45
	1016	PDGA( 3,15,:) = (/&
	1017	&0.13209140E+02_JPRB, 0.22180915E+02_JPRB, 0.00000000E+00_JPRB/)
	1018	PDGB( 3,15,:) = (/&
	1019	&0.13209140E+02_JPRB, 0.22190410E+02_JPRB, 0.10000000E+01_JPRB/)
	1020	PDGA( 3,16,:) = (/&
	1021	&0.13209485E+02_JPRB, 0.22379193E+02_JPRB, 0.00000000E+00_JPRB/)
	1022	PDGB( 3,16,:) = (/&
	1023	&0.13209485E+02_JPRB, 0.22388551E+02_JPRB, 0.10000000E+01_JPRB/)
	1024
	1025	!----- INTERVAL = 4 ----- T = 225.0
	1026
	1027	!-- INDICES FOR PADE APPROXIMATION 1 15 29 45
	1028	PDGA( 4,15,:) = (/&
	1029	&0.13213894E+02_JPRB, 0.22259478E+02_JPRB, 0.00000000E+00_JPRB/)
	1030	PDGB( 4,15,:) = (/&
	1031	&0.13213894E+02_JPRB, 0.22268925E+02_JPRB, 0.10000000E+01_JPRB/)
	1032	PDGA( 4,16,:) = (/&
	1033	&0.13238789E+02_JPRB, 0.22492992E+02_JPRB, 0.00000000E+00_JPRB/)
	1034	PDGB( 4,16,:) = (/&
	1035	&0.13238789E+02_JPRB, 0.22502309E+02_JPRB, 0.10000000E+01_JPRB/)
	1036
	1037	!----- INTERVAL = 4 ----- T = 237.5
	1038
	1039	!-- INDICES FOR PADE APPROXIMATION 1 15 29 45
	1040	PDGA( 5,15,:) = (/&
	1041	&0.13225963E+02_JPRB, 0.22341039E+02_JPRB, 0.00000000E+00_JPRB/)
	1042	PDGB( 5,15,:) = (/&
	1043	&0.13225963E+02_JPRB, 0.22350445E+02_JPRB, 0.10000000E+01_JPRB/)
	1044	PDGA( 5,16,:) = (/&
	1045	&0.13275017E+02_JPRB, 0.22608508E+02_JPRB, 0.00000000E+00_JPRB/)
	1046	PDGB( 5,16,:) = (/&
	1047	&0.13275017E+02_JPRB, 0.22617792E+02_JPRB, 0.10000000E+01_JPRB/)
	1048
	1049	!----- INTERVAL = 4 ----- T = 250.0
	1050
	1051	!-- INDICES FOR PADE APPROXIMATION 1 15 29 45
	1052	PDGA( 6,15,:) = (/&
	1053	&0.13243806E+02_JPRB, 0.22424247E+02_JPRB, 0.00000000E+00_JPRB/)
	1054	PDGB( 6,15,:) = (/&
	1055	&0.13243806E+02_JPRB, 0.22433617E+02_JPRB, 0.10000000E+01_JPRB/)
	1056	PDGA( 6,16,:) = (/&
	1057	&0.13316096E+02_JPRB, 0.22723843E+02_JPRB, 0.00000000E+00_JPRB/)
	1058	PDGB( 6,16,:) = (/&
	1059	&0.13316096E+02_JPRB, 0.22733099E+02_JPRB, 0.10000000E+01_JPRB/)
	1060
	1061	!----- INTERVAL = 4 ----- T = 262.5
	1062
	1063	!-- INDICES FOR PADE APPROXIMATION 1 15 29 45
	1064	PDGA( 7,15,:) = (/&
	1065	&0.13266104E+02_JPRB, 0.22508089E+02_JPRB, 0.00000000E+00_JPRB/)
	1066	PDGB( 7,15,:) = (/&
	1067	&0.13266104E+02_JPRB, 0.22517429E+02_JPRB, 0.10000000E+01_JPRB/)
	1068	PDGA( 7,16,:) = (/&
	1069	&0.13360555E+02_JPRB, 0.22837837E+02_JPRB, 0.00000000E+00_JPRB/)
	1070	PDGB( 7,16,:) = (/&
	1071	&0.13360555E+02_JPRB, 0.22847071E+02_JPRB, 0.10000000E+01_JPRB/)
	1072
	1073	!----- INTERVAL = 4 ----- T = 275.0
	1074
	1075	!-- INDICES FOR PADE APPROXIMATION 1 15 29 45
	1076	PDGA( 8,15,:) = (/&
	1077	&0.13291782E+02_JPRB, 0.22591771E+02_JPRB, 0.00000000E+00_JPRB/)
	1078	PDGB( 8,15,:) = (/&
	1079	&0.13291782E+02_JPRB, 0.22601086E+02_JPRB, 0.10000000E+01_JPRB/)
	1080	PDGA( 8,16,:) = (/&
	1081	&0.13407324E+02_JPRB, 0.22949751E+02_JPRB, 0.00000000E+00_JPRB/)
	1082	PDGB( 8,16,:) = (/&
	1083	&0.13407324E+02_JPRB, 0.22958967E+02_JPRB, 0.10000000E+01_JPRB/)
	1084
	1085	!----- INTERVAL = 4 ----- T = 287.5
	1086
	1087	!-- INDICES FOR PADE APPROXIMATION 1 15 29 45
	1088	PDGA( 9,15,:) = (/&
	1089	&0.13319961E+02_JPRB, 0.22674661E+02_JPRB, 0.00000000E+00_JPRB/)
	1090	PDGB( 9,15,:) = (/&
	1091	&0.13319961E+02_JPRB, 0.22683956E+02_JPRB, 0.10000000E+01_JPRB/)
	1092	PDGA( 9,16,:) = (/&
	1093	&0.13455544E+02_JPRB, 0.23059032E+02_JPRB, 0.00000000E+00_JPRB/)
	1094	PDGB( 9,16,:) = (/&
	1095	&0.13455544E+02_JPRB, 0.23068234E+02_JPRB, 0.10000000E+01_JPRB/)
	1096
	1097	!----- INTERVAL = 4 ----- T = 300.0
	1098
	1099	!-- INDICES FOR PADE APPROXIMATION 1 15 29 45
	1100	PDGA(10,15,:) = (/&
	1101	&0.13349927E+02_JPRB, 0.22756246E+02_JPRB, 0.00000000E+00_JPRB/)
	1102	PDGB(10,15,:) = (/&
	1103	&0.13349927E+02_JPRB, 0.22765522E+02_JPRB, 0.10000000E+01_JPRB/)
	1104	PDGA(10,16,:) = (/&
	1105	&0.13504450E+02_JPRB, 0.23165146E+02_JPRB, 0.00000000E+00_JPRB/)
	1106	PDGB(10,16,:) = (/&
	1107	&0.13504450E+02_JPRB, 0.23174336E+02_JPRB, 0.10000000E+01_JPRB/)
	1108
	1109	!----- INTERVAL = 4 ----- T = 312.5
	1110
	1111	!-- INDICES FOR PADE APPROXIMATION 1 15 29 45
	1112	PDGA(11,15,:) = (/&
	1113	&0.13381108E+02_JPRB, 0.22836093E+02_JPRB, 0.00000000E+00_JPRB/)
	1114	PDGB(11,15,:) = (/&
	1115	&0.13381108E+02_JPRB, 0.22845354E+02_JPRB, 0.10000000E+01_JPRB/)
	1116	PDGA(11,16,:) = (/&
	1117	&0.13553282E+02_JPRB, 0.23267456E+02_JPRB, 0.00000000E+00_JPRB/)
	1118	PDGB(11,16,:) = (/&
	1119	&0.13553282E+02_JPRB, 0.23276638E+02_JPRB, 0.10000000E+01_JPRB/)
	1120
	1121
	1122	! ------------------------------------------------------------------
	1123
	1124	!----- (CONTINUUM ABSORPTION)
	1125
	1126	!----- (CONTINUUM ABSORPTION: e-type COMPONENT)
	1127
	1128	RETYPE(1:4)= (/ 12._JPRB, 5.5_JPRB, 4.25_JPRB, 45._JPRB /)
	1129
	1130	!----- (CONTINUUM ABSORPTION: p-type COMPONENT)
	1131
	1132	RPTYPE(1:4)= (/ 0.22_JPRB, 0.012_JPRB, 0.0071_JPRB, 3.96_JPRB /)
	1133
	1134	! ------------------------------------------------------------------
	1135
	1136	!-- COEFFICIENTS OF THE POLYNOMIALS GIVING THE TEMPERATURE DEPENDENCE OF
	1137	! THE ABSORPTION
	1138
	1139	!--------H2O
	1140
	1141	! revised in Zhong 961108
	1142	ALWT(1,:)= (/&
	1143	&2.34995778846E-03_JPRB, -2.76713384294E-04_JPRB, 1.16480338097E-06_JPRB/)
	1144	BLWT(1,:)= (/&
	1145	&-1.58165952771E-05_JPRB, -2.39167473702E-05_JPRB, 1.80148335147E-07_JPRB/)
	1146	ALWT(2,:)= (/&
	1147	&2.52595953359E-02_JPRB, -6.72079319635E-04_JPRB, 5.74103783815E-06_JPRB/)
	1148	BLWT(2,:)= (/&
	1149	&-8.26196996910E-05_JPRB, -1.05514645370E-05_JPRB, 7.02984234993E-08_JPRB/)
	1150	ALWT(3,:)= (/&
	1151	&3.55525229363E-02_JPRB, -7.94992134865E-04_JPRB, 6.64848193374E-06_JPRB/)
	1152	BLWT(3,:)= (/&
	1153	&-9.71124908025E-05_JPRB, -2.95218285256E-06_JPRB, 2.23374952695E-08_JPRB/)
	1154	ALWT(4,:)= (/&
	1155	&5.47044522259E-02_JPRB, -1.19105877667E-03_JPRB, 9.74676865100E-06_JPRB/)
	1156	BLWT(4,:)= (/&
	1157	&-2.10153035427E-04_JPRB, -6.93815560155E-06_JPRB, 5.50381928956E-08_JPRB/)
	1158	ALWT(5,:)= (/&
	1159	&1.88063066950E-02_JPRB, -1.11250846983E-04_JPRB, 1.66977895508E-06_JPRB/)
	1160	BLWT(5,:)= (/&
	1161	&-5.72683436311E-05_JPRB, -2.48448308453E-05_JPRB, 1.88450887138E-07_JPRB/)
	1162	ALWT(6,:)= (/&
	1163	&1.29526952131E-02_JPRB, -3.81424455035E-04_JPRB, 3.07118138204E-06_JPRB/)
	1164	BLWT(6,:)= (/&
	1165	&-4.20789327775E-05_JPRB, -1.25055291318E-05_JPRB, 8.58839668934E-08_JPRB/)
	1166
	1167
	1168	!-------CO2
	1169
	1170	ALWT(7,:)= (/0.250073E-03_JPRB,0.455875E-03_JPRB,0.109242E-03_JPRB /)
	1171	BLWT(7,:)= (/0.199846E-05_JPRB,-.216313E-05_JPRB,0.175991E-06_JPRB /)
	1172	ALWT(8,:)= (/0.307423E-01_JPRB,0.110879E-02_JPRB,-.322172E-03_JPRB /)
	1173	BLWT(8,:)= (/-0.108482E-03_JPRB,0.258096E-05_JPRB,-.814575E-06_JPRB /)
	1174
	1175
	1176	! ------------------------------------------------------------------
	1177
	1178	!* 2. SET VALUES.
	1179	! -----------
	1180
	1181
	1182	!-number of spectral intervals
	1183	NSIL = 6
	1184	!-number of intervals with Pade approximants transmission functions
	1185	NIPD = 8
	1186	NIPD2 = 2*NIPD
	1187	!-number of reference temperatures
	1188	NTR = 11
	1189	!-number of absorber amounts
	1190	NUA = 24
	1191	!-number of transmission functions
	1192	NTRA = 15
	1193	!-number of Gauss angles
	1194	NG1 = 2
	1195	NG1P1 = NG1+1
	1196
	1197	!-- REFERENCE TEMPERATURES FOR THE PLANCK FUNCTIONS ----- TSTAND
	1198	! TEMPERATURE DEPENDENCE OF THE ABSORPTION ----- TREF
	1199	TSTAND = 250.0_JPRB
	1200	TREF = 250.0_JPRB
	1201
	1202	!-- ROOTS AND WEIGHTS FOR THE 2-POINT GAUSSIAN QUADRATURE
	1203	RT1 = (/ -0.577350269_JPRB, +0.577350269_JPRB /)
	1204	WG1 = (/ _ONE_ , _ONE_ /)
	1205
	1206	!-- TEMPERATURE STEP AND MAXIMUM INDEX FOR THE TRANSMISSIVITIES
	1207	TSTP = 12.5_JPRB
	1208	MXIXT = 10
	1209
	1210	!-- COEFFICIENTS FOR OZONE ABSORPTION
	1211
	1212	RO1H = 2230._JPRB
	1213	RO2H = 100._JPRB
	1214	RPIALF0 = 2._JPRB
	1215	RO3T(1) = -.326E-03_JPRB
	1216	RO3T(2) = -.102E-05_JPRB
	1217	RO3T(3) = 0.137E-02_JPRB
	1218	RO3T(4) = -.535E-05_JPRB
	1219
	1220	!-- COEFFICIENTS FOR THE PSEUDO-VOIGT LINE PROFILE (PA)
	1221
	1222	RVGCO2= 60._JPRB
	1223	RVGH2O= 30._JPRB
	1224	RVGO3 =400._JPRB
	1225
	1226	! ------------------------------------------------------------------
	1227
	1228	RETURN
	1229	END SUBROUTINE SULWN

Note: See TracBrowser for help on using the repository browser.

Download in other formats:

Original Format