c------data_newCO2.f--------------------------------------------------- c....Included by VPO (September 1999) c....Pre-calculating matrix coefficients for CO2 cooling data (HLOGPRES(i),i=1,93) / 2.0, 2.25, 2.5, 2.75, & 3.0, 3.25, 3.5, 3.75, 4.0, 4.25, 4.5, 4.75, 5.0, 5.25, 5.5, 5.75, & 6.0, 6.25, 6.5, 6.75, 7.0, 7.25, 7.5, 7.75, 8.0, 8.25, 8.5, 8.75, & 9.0, 9.25, 9.5, 9.75,10.0,10.25,10.5,10.75,11.0,11.25,11.5,11.75, &12.0,12.25,12.5,12.75,13.0,13.25,13.5,13.75,14.0,14.25,14.5,14.75, &15.0,15.25,15.5,15.75,16.0,16.25,16.5,16.75,17.0,17.25,17.5,17.75, &18.0,18.25,18.5,18.75,19.0,19.25,19.5,19.75,20.0, $20.25,20.5,20.75,21.,21.25,21.5,21.75,22., $22.25,22.5,22.75,23.,23.25,23.5,23.75,24., $24.25,24.5,24.75,25./ c c HCO2VMR,HN2VMR,HO2VMR are global average vmr's data (HCO2VMR(i),i=1,73) / 42*3.600E-04, & 3.580E-04,3.540E-04,3.500E-04,3.410E-04,3.280E-04,3.110E-04, & 2.930E-04,2.750E-04,2.560E-04,2.370E-04,2.180E-04,1.990E-04, & 1.800E-04,1.610E-04,1.420E-04,1.240E-04,1.060E-04,9.000E-05, & 7.800E-05,6.800E-05,5.900E-05,5.100E-05,4.400E-05,3.700E-05, & 3.000E-05,2.400E-05,1.900E-05,1.400E-05,1.000E-05,7.000E-06, & 5.000E-06 / data (HN2VMR(i),i=1,93) / 26*7.810E-01, $ .781108E+00,.781129E+00,.781240E+00,.781375E+00,.781512E+00, $ .781648E+00,.781785E+00,.781926E+00,.782096E+00,.782303E+00, $ .782554E+00,.782856E+00,.783217E+00,.783641E+00,.784124E+00, $ .784652E+00,.785186E+00,.785669E+00,.786027E+00,.786185E+00, $ .786077E+00,.785667E+00,.784945E+00,.783923E+00,.782625E+00, $ .781079E+00,.779293E+00,.777254E+00,.774922E+00,.772218E+00, $ .769027E+00,.765197E+00,.760546E+00,.754856E+00,.747894E+00, $ .739418E+00,.729171E+00,.716882E+00,.702277E+00,.685372E+00, $ .666341E+00,.645372E+00,.622634E+00,.598231E+00,.572204E+00, $ .544582E+00,.515542E+00,.485254E+00,.453966E+00,.422014E+00, $ .389772E+00,.357618E+00,.325914E+00,.295004E+00,.265193E+00, $ .236755E+00,.209934E+00,.184877E+00,.161718E+00,.140577E+00, $ .121424E+00,.104243E+00,.889717E-01,.755151E-01,.637512E-01, $ .535462E-01,.447349E-01/ c & 7.814E-01,7.819E-01,7.821E-01,7.820E-01,7.819E-01,7.819E-01, c & 7.824E-01,7.829E-01,7.830E-01,7.830E-01,7.833E-01,7.839E-01, c & 7.844E-01,7.849E-01,7.854E-01,7.859E-01,7.861E-01,7.860E-01, c & 7.858E-01,7.852E-01,7.840E-01,7.824E-01,7.804E-01,7.784E-01, c & 7.766E-01,7.745E-01,7.715E-01,7.678E-01,7.637E-01,7.590E-01, c & 7.534E-01,7.465E-01,7.383E-01,7.283E-01,7.159E-01,7.012E-01, c & 6.846E-01,6.660E-01,6.452E-01,6.227E-01,5.987E-01,5.773E-01, c & 5.462E-01,5.178E-01/ data (HO2VMR(i),i=1,93) / 26*2.100E-01, $ .209543E+00,.209525E+00,.209444E+00,.209345E+00,.209245E+00, $ .209145E+00,.209045E+00,.208938E+00,.208793E+00,.208609E+00, $ .208382E+00,.208105E+00,.207765E+00,.207350E+00,.206840E+00, $ .206209E+00,.205425E+00,.204447E+00,.203225E+00,.201711E+00, $ .199855E+00,.197615E+00,.194949E+00,.191820E+00,.188190E+00, $ .184022E+00,.179274E+00,.173894E+00,.167833E+00,.161048E+00, $ .153505E+00,.145191E+00,.136135E+00,.126394E+00,.116121E+00, $ .105559E+00,.950391E-01,.849613E-01,.757360E-01,.677152E-01, $ .609799E-01,.553561E-01,.505408E-01,.462458E-01,.422665E-01, $ .384933E-01,.348636E-01,.313718E-01,.280339E-01,.248716E-01, $ .219012E-01,.191347E-01,.165881E-01,.142688E-01,.121776E-01, $ .103115E-01,.866399E-02,.722323E-02,.597622E-02,.490946E-02, $ .400413E-02,.324323E-02,.260954E-02,.208636E-02,.165789E-02, $ .130982E-02,.102849E-02/ c & 2.096E-01,2.091E-01,2.089E-01,2.090E-01,2.090E-01, c & 2.090E-01,2.091E-01,2.091E-01,2.086E-01,2.081E-01,2.080E-01, c & 2.080E-01,2.078E-01,2.072E-01,2.062E-01,2.052E-01,2.042E-01, c & 2.032E-01,2.020E-01,2.004E-01,1.982E-01,1.956E-01,1.924E-01, c & 1.888E-01,1.846E-01,1.800E-01,1.750E-01,1.693E-01,1.624E-01, c & 1.546E-01,1.464E-01,1.378E-01,1.285E-01,1.182E-01,1.070E-01, c & 9.605E-02,8.638E-02,7.768E-02,6.948E-02,6.227E-02,5.654E-02, c & 5.187E-02,4.766E-02,4.375E-02,4.011E-02,3.667E-02 / c HOVMR and HAVWEI are here global average and would be changed data (HOVMR(i),i=1,93) / 31*0.000E+00, $ .123074E-09,.216527E-08,.177122E-07,.100076E-06,.387890E-06, $ .139525E-05,.466880E-05,.144701E-04,.412975E-04,.107974E-03, $ .257817E-03,.562136E-03,.112236E-02,.206248E-02,.351214E-02, $ .558546E-02,.836733E-02,.119107E-01,.162429E-01,.213780E-01, $ .273329E-01,.341396E-01,.418615E-01,.505909E-01,.604459E-01, $ .715699E-01,.841254E-01,.982581E-01,.114120E+00,.131785E+00, $ .151245E+00,.172418E+00,.195169E+00,.219353E+00,.244592E+00, $ .270614E+00,.297391E+00,.325037E+00,.353707E+00,.383519E+00, $ .414501E+00,.446503E+00,.479353E+00,.512824E+00,.546622E+00, $ .580430E+00,.613915E+00,.646722E+00,.678496E+00,.708902E+00, $ .737625E+00,.764369E+00,.788943E+00,.811157E+00,.830832E+00, $ .847939E+00,.862417E+00,.874244E+00,.883404E+00,.889889E+00, $ .893683E+00,.894752E+00/ c & 2.298E-10,1.643E-09,1.197E-08,8.871E-08,4.229E-07,1.401E-06, c & 4.474E-06,1.419E-05,4.074E-05,1.047E-04,2.461E-04,5.324E-04, c & 1.058E-03,1.940E-03,3.304E-03,5.274E-03,7.953E-03,1.141E-02, c & 1.568E-02,2.078E-02,2.672E-02,3.353E-02,4.130E-02,5.011E-02, c & 6.003E-02,7.120E-02,8.382E-02,9.798E-02,1.137E-01,1.312E-01, c & 1.509E-01,1.725E-01,1.953E-01,2.191E-01,2.440E-01,2.698E-01, c & 2.962E-01,3.234E-01,3.519E-01,3.818E-01,4.131E-01,4.455E-01 c & / data (HAVWEI(i),i=1,73) / 34*2.895E+01,6*2.894E+01, & 2.893E+01,2.893E+01,2.892E+01,2.891E+01,2.889E+01,2.887E+01, & 2.884E+01,2.880E+01,2.874E+01,2.868E+01,2.860E+01,2.851E+01, & 2.840E+01,2.829E+01,2.816E+01,2.801E+01,2.784E+01,2.765E+01, & 2.743E+01,2.720E+01,2.694E+01,2.666E+01,2.636E+01,2.605E+01, & 2.572E+01,2.538E+01,2.504E+01,2.469E+01,2.434E+01,2.398E+01, & 2.361E+01,2.322E+01,2.281E+01 /