c $Log: o3blk.f,v $ c Revision 1.3 1993/12/17 15:33:10 ldr c Hack V4-4-52l to change all continuation chars to & c c Revision 1.2 93/07/06 16:32:13 ldr c generalized common block for "l" = "nl" levels (data for 9 only though) c for consistency with same common block elsewhere. c c c Revision 1.1 91/02/22 16:37:44 ldr c Initial release V3-0 c block data o3blk C C OZONE DATA C include 'PARAMS.f' include 'RDPARM.f' common /o3dat/ dduo3n(37,l),ddo3n2(37,l),ddo3n3(37,l),ddo3n4(37,l) c data for 9 levels only data ((dduo3n(i,j),i=1,37),j=1,3)/ &.06645,.06810,.06975,.07243,.07511,.07774,.08037,.08512,.08987, &.09158,.09328,.09290,.09253,.09325,.09398,.09367,.09336,.09280, &.09225,.09192,.09160,.09194,.09228,.09172,.09115,.08960,.08806, &.08583,.08359,.07806,.07253,.07022,.06792,.06553,.06314,.06151, &.05989,.04958,.04906,.04855,.04601,.04346,.04214,.04082,.03708, &.03334,.02878,.02421,.02045,.01669,.01278,.00887,.00824,.00761, &.00751,.00741,.00842,.00943,.01050,.01158,.01291,.01423,.01577, &.01730,.02101,.02472,.02765,.03058,.03102,.03147,.03201,.03254, &.03338,.03421,.01818,.01737,.01655,.01479,.01302,.01212,.01123, &.00872,.00622,.00515,.00409,.00285,.00162,.00112,.00063,.00058, &.00054,.00054,.00055,.00066,.00078,.00090,.00103,.00130,.00157, &.00180,.00203,.00353,.00503,.00606,.00709,.00777,.00845,.00886, &.00927,.00910,.00893/ data ((dduo3n(i,j),i=1,37),j=4,6)/ &.00379,.00344,.00309,.00275,.00242,.00228,.00213,.00177,.00141, &.00115,.00090,.00072,.00055,.00047,.00038,.00039,.00040,.00042, &.00044,.00048,.00052,.00065,.00078,.00086,.00095,.00097,.00099, &.00105,.00111,.00136,.00161,.00169,.00177,.00214,.00250,.00247, &.00244,.00072,.00068,.00064,.00064,.00063,.00063,.00063,.00060, &.00057,.00053,.00050,.00046,.00043,.00038,.00033,.00035,.00037, &.00038,.00039,.00043,.00048,.00053,.00058,.00064,.00071,.00071, &.00071,.00074,.00077,.00077,.00077,.00077,.00077,.00075,.00074, &.00073,.00072,.00046,.00047,.00047,.00048,.00050,.00050,.00050, &.00048,.00047,.00047,.00047,.00047,.00047,.00043,.00038,.00034, &.00030,.00031,.00032,.00033,.00034,.00041,.00047,.00056,.00065, &.00065,.00065,.00064,.00064,.00064,.00064,.00064,.00064,.00059, &.00054,.00050,.00046/ data ((dduo3n(i,j),i=1,37),j=7,9)/ &.00039,.00039,.00039,.00044,.00049,.00049,.00049,.00044,.00040, &.00040,.00040,.00040,.00040,.00034,.00029,.00029,.00029,.00027, &.00024,.00022,.00020,.00029,.00039,.00044,.00049,.00049,.00049, &.00049,.00049,.00049,.00049,.00049,.00049,.00044,.00039,.00039, &.00039,.00034,.00034,.00034,.00039,.00044,.00044,.00044,.00042, &.00040,.00040,.00040,.00040,.00040,.00032,.00024,.00024,.00024, &.00023,.00022,.00021,.00020,.00027,.00034,.00039,.00044,.00044, &.00044,.00044,.00044,.00044,.00044,.00044,.00044,.00039,.00034, &.00034,.00034,.00030,.00030,.00030,.00035,.00040,.00040,.00040, &.00040,.00040,.00040,.00040,.00040,.00040,.00030,.00020,.00020, &.00020,.00020,.00020,.00020,.00020,.00025,.00030,.00035,.00040, &.00040,.00040,.00040,.00040,.00040,.00040,.00040,.00040,.00035, &.00030,.00030,.00030/ data ((ddo3n2(i,j),i=1,37),j=1,3)/ &.07025,.07074,.07124,.07353,.07583,.07996,.08410,.08698,.08985, &.09058,.09131,.09317,.09502,.09461,.09420,.09497,.09575,.09491, &.09407,.09278,.09150,.09174,.09198,.09032,.08867,.08693,.08520, &.08335,.08150,.07776,.07402,.07145,.06888,.06670,.06451,.06317, &.06183,.04641,.04558,.04476,.04348,.04220,.04167,.04114,.03745, &.03375,.02960,.02544,.02011,.01478,.01248,.01018,.00888,.00757, &.00690,.00623,.00640,.00658,.00825,.00992,.01119,.01246,.01527, &.01808,.02095,.02383,.02659,.02935,.03071,.03207,.03395,.03583, &.03631,.03680,.01601,.01556,.01510,.01450,.01389,.01339,.01289, &.01055,.00821,.00699,.00576,.00371,.00165,.00129,.00092,.00084, &.00076,.00065,.00054,.00054,.00054,.00060,.00066,.00090,.00114, &.00138,.00162,.00252,.00342,.00494,.00645,.00707,.00769,.00815, &.00862,.00908,.00955/ data ((ddo3n2(i,j),i=1,37),j=4,6)/ &.00484,.00451,.00418,.00388,.00358,.00329,.00300,.00242,.00184, &.00149,.00115,.00097,.00079,.00069,.00058,.00054,.00049,.00047, &.00044,.00043,.00041,.00047,.00052,.00056,.00060,.00063,.00066, &.00083,.00099,.00127,.00154,.00170,.00186,.00191,.00196,.00196, &.00197,.00116,.00104,.00093,.00087,.00082,.00078,.00074,.00071, &.00067,.00067,.00067,.00063,.00058,.00054,.00050,.00050,.00050, &.00045,.00040,.00035,.00030,.00037,.00044,.00048,.00052,.00053, &.00054,.00056,.00058,.00063,.00068,.00068,.00067,.00063,.00058, &.00061,.00065,.00065,.00066,.00066,.00063,.00059,.00058,.00057, &.00057,.00057,.00057,.00057,.00054,.00050,.00050,.00050,.00050, &.00050,.00045,.00039,.00033,.00027,.00032,.00037,.00044,.00051, &.00051,.00052,.00052,.00051,.00053,.00054,.00054,.00054,.00051, &.00047,.00047,.00047/ data ((ddo3n2(i,j),i=1,37),j=7,9)/ &.00059,.00059,.00059,.00059,.00059,.00054,.00049,.00049,.00049, &.00049,.00049,.00049,.00049,.00049,.00049,.00049,.00049,.00042, &.00034,.00027,.00020,.00024,.00029,.00039,.00049,.00049,.00049, &.00049,.00049,.00044,.00039,.00039,.00039,.00039,.00039,.00039, &.00039,.00054,.00054,.00054,.00054,.00054,.00049,.00044,.00044, &.00044,.00044,.00044,.00044,.00044,.00044,.00044,.00044,.00044, &.00038,.00032,.00026,.00020,.00022,.00024,.00034,.00044,.00044, &.00044,.00044,.00044,.00039,.00034,.00034,.00034,.00034,.00034, &.00034,.00034,.00050,.00050,.00050,.00050,.00050,.00045,.00040, &.00040,.00040,.00040,.00040,.00040,.00040,.00040,.00040,.00040, &.00040,.00035,.00030,.00025,.00020,.00020,.00020,.00030,.00040, &.00040,.00040,.00040,.00040,.00035,.00030,.00030,.00030,.00030, &.00030,.00030,.00030/ data ((ddo3n3(i,j),i=1,37),j=1,3)/ &.05989,.06151,.06314,.06553,.06792,.07022,.07253,.07806,.08359, &.08583,.08806,.08960,.09115,.09172,.09228,.09194,.09160,.09192, &.09225,.09280,.09336,.09367,.09398,.09325,.09253,.09290,.09328, &.09158,.08987,.08512,.08037,.07774,.07511,.07243,.06975,.06810, &.06645,.03421,.03338,.03254,.03201,.03147,.03102,.03058,.02765, &.02472,.02101,.01730,.01577,.01423,.01291,.01158,.01050,.00943, &.00842,.00741,.00751,.00761,.00824,.00887,.01278,.01669,.02045, &.02421,.02878,.03334,.03708,.04082,.04214,.04346,.04601,.04855, &.04906,.04957,.00893,.00910,.00927,.00886,.00845,.00777,.00709, &.00606,.00503,.00353,.00203,.00180,.00157,.00130,.00103,.00090, &.00078,.00066,.00055,.00054,.00054,.00058,.00063,.00112,.00162, &.00285,.00409,.00515,.00622,.00872,.01123,.01212,.01302,.01479, &.01655,.01737,.01818/ data ((ddo3n3(i,j),i=1,37),j=4,6)/ &.00244,.00247,.00250,.00214,.00177,.00169,.00161,.00136,.00111, &.00105,.00099,.00097,.00095,.00086,.00078,.00065,.00052,.00048, &.00044,.00042,.00040,.00039,.00038,.00047,.00055,.00072,.00090, &.00115,.00141,.00177,.00213,.00228,.00242,.00275,.00309,.00344, &.00379,.00072,.00073,.00074,.00075,.00077,.00077,.00077,.00077, &.00077,.00074,.00071,.00071,.00071,.00064,.00058,.00053,.00048, &.00043,.00039,.00038,.00037,.00035,.00033,.00038,.00043,.00046, &.00050,.00053,.00057,.00060,.00063,.00063,.00063,.00064,.00064, &.00068,.00072,.00046,.00050,.00054,.00059,.00064,.00064,.00064, &.00064,.00064,.00064,.00065,.00065,.00065,.00056,.00047,.00041, &.00034,.00033,.00032,.00031,.00030,.00034,.00038,.00043,.00047, &.00047,.00047,.00047,.00047,.00048,.00050,.00050,.00050,.00048, &.00047,.00047,.00046/ data ((ddo3n3(i,j),i=1,37),j=7,9)/ &.00039,.00039,.00039,.00044,.00049,.00049,.00049,.00049,.00049, &.00049,.00049,.00049,.00049,.00044,.00039,.00029,.00020,.00022, &.00024,.00027,.00029,.00029,.00029,.00034,.00040,.00040,.00040, &.00040,.00040,.00044,.00049,.00049,.00049,.00044,.00039,.00039, &.00039,.00034,.00034,.00034,.00039,.00044,.00044,.00044,.00044, &.00044,.00044,.00044,.00044,.00044,.00039,.00034,.00027,.00020, &.00021,.00022,.00023,.00024,.00024,.00024,.00032,.00040,.00040, &.00040,.00040,.00040,.00042,.00044,.00044,.00044,.00039,.00034, &.00034,.00034,.00030,.00030,.00030,.00035,.00040,.00040,.00040, &.00040,.00040,.00040,.00040,.00040,.00040,.00035,.00030,.00025, &.00020,.00020,.00020,.00020,.00020,.00020,.00020,.00030,.00040, &.00040,.00040,.00040,.00040,.00040,.00040,.00040,.00040,.00035, &.00030,.00030,.00030/ data ((ddo3n4(i,j),i=1,37),j=1,3)/ &.06183,.06317,.06451,.06670,.06888,.07145,.07402,.07776,.08150, &.08335,.08520,.08693,.08867,.09032,.09198,.09174,.09150,.09278, &.09407,.09491,.09575,.09497,.09420,.09461,.09502,.09317,.09131, &.09058,.08985,.08698,.08410,.07996,.07583,.07353,.07124,.07074, &.07025,.03680,.03631,.03583,.03395,.03207,.03071,.02935,.02659, &.02383,.02095,.01808,.01527,.01246,.01119,.00992,.00825,.00658, &.00640,.00623,.00690,.00757,.00888,.01018,.01248,.01478,.02011, &.02544,.02960,.03375,.03745,.04114,.04167,.04220,.04348,.04476, &.04558,.04641,.00955,.00908,.00862,.00815,.00769,.00707,.00645, &.00494,.00342,.00252,.00162,.00138,.00114,.00090,.00066,.00060, &.00054,.00054,.00054,.00065,.00076,.00084,.00092,.00129,.00165, &.00371,.00576,.00699,.00821,.01055,.01289,.01339,.01389,.01450, &.01510,.01556,.01601/ data ((ddo3n4(i,j),i=1,37),j=4,6)/ &.00197,.00196,.00196,.00191,.00186,.00170,.00154,.00127,.00099, &.00083,.00066,.00063,.00060,.00056,.00052,.00047,.00041,.00043, &.00044,.00047,.00049,.00054,.00058,.00069,.00079,.00097,.00115, &.00149,.00184,.00242,.00300,.00329,.00358,.00388,.00418,.00451, &.00484,.00065,.00061,.00058,.00063,.00067,.00068,.00068,.00063, &.00058,.00056,.00054,.00053,.00052,.00048,.00044,.00037,.00030, &.00035,.00040,.00045,.00050,.00050,.00050,.00054,.00058,.00063, &.00067,.00067,.00067,.00071,.00074,.00078,.00082,.00087,.00093, &.00104,.00116,.00047,.00047,.00047,.00051,.00054,.00054,.00054, &.00053,.00051,.00052,.00052,.00051,.00051,.00044,.00037,.00032, &.00027,.00033,.00039,.00045,.00050,.00050,.00050,.00050,.00050, &.00054,.00057,.00057,.00057,.00057,.00057,.00058,.00059,.00063, &.00066,.00066,.00065/ data ((ddo3n4(i,j),i=1,37),j=7,9)/ &.00039,.00039,.00039,.00039,.00039,.00039,.00039,.00044,.00049, &.00049,.00049,.00049,.00049,.00039,.00029,.00024,.00020,.00027, &.00034,.00042,.00049,.00049,.00049,.00049,.00049,.00049,.00049, &.00049,.00049,.00049,.00049,.00054,.00059,.00059,.00059,.00059, &.00059,.00034,.00034,.00034,.00034,.00034,.00034,.00034,.00039, &.00044,.00044,.00044,.00044,.00044,.00034,.00024,.00022,.00020, &.00026,.00032,.00038,.00044,.00044,.00044,.00044,.00044,.00044, &.00044,.00044,.00044,.00044,.00044,.00049,.00054,.00054,.00054, &.00054,.00054,.00030,.00030,.00030,.00030,.00030,.00030,.00030, &.00035,.00040,.00040,.00040,.00040,.00040,.00030,.00020,.00020, &.00020,.00025,.00030,.00035,.00040,.00040,.00040,.00040,.00040, &.00040,.00040,.00040,.00040,.00040,.00040,.00045,.00050,.00050, &.00050,.00050,.00050/ C OZONE DATA C Set up for Hal's half levels using the program O3INT C end