c----------------------------------------------------------------------- c INCLUDE 'aerice.h' c Spectral Radiative properties of water ice PARTICLE RADIUS = 0.5 MICRONS (Franck Montmessin) c (Warren, 1984) c visible integer nicevis parameter(nicevis=58) REAL longicevis(nicevis),epicevis(nicevis) & ,omegicevis(nicevis),gicevis(nicevis) c IR integer niceir parameter(niceir=144) REAL longiceir(niceir),epiceir(niceir) & ,omegiceir(niceir),giceir(niceir) c Ratio solsirice = Tau(vis) / Tau (9 microns) REAL solsirice PARAMETER (solsirice=65.E+0) c Optical properties used by initracer.F to determine Qextrhor REAL rcrystal,qrefice PARAMETER (rcrystal=.5e-6,qrefice=2.8) c--------------------------------------------------------------------- data longicevis/ &.1033000E-06,.4000000E-06,.8000000E-06,.1000000E-05,.1504000E-05, &.2000000E-05,.2600000E-05,.2817000E-05,.2899000E-05,.2915000E-05, &.2933000E-05,.2950000E-05,.2967000E-05,.2985000E-05,.3003000E-05, &.3021000E-05,.3040000E-05,.3058000E-05,.3077000E-05,.3096000E-05, &.3115000E-05,.3135000E-05,.3155000E-05,.3175000E-05,.3195000E-05, &.3215000E-05,.3236000E-05,.3257000E-05,.3279000E-05,.3300000E-05, &.3322000E-05,.3345000E-05,.3367000E-05,.3390000E-05,.3413000E-05, &.3436000E-05,.3460000E-05,.3484000E-05,.3509000E-05,.3534000E-05, &.3559000E-05,.3624000E-05,.3732000E-05,.3775000E-05,.3847000E-05, &.3969000E-05,.4099000E-05,.4239000E-05,.4348000E-05,.4387000E-05, &.4444000E-05,.4505000E-05,.4547000E-05,.4560000E-05,.4580000E-05, &.4719000E-05,.4904000E-05,.5000000E-05/ data longiceir/ &.5100000E-05,.5200000E-05,.5263000E-05,.5400000E-05,.5556000E-05, &.5714000E-05,.5747000E-05,.5780000E-05,.5814000E-05,.5848000E-05, &.5882000E-05,.6061000E-05,.6135000E-05,.6250000E-05,.6289000E-05, &.6329000E-05,.6369000E-05,.6410000E-05,.6452000E-05,.6494000E-05, &.6579000E-05,.6667000E-05,.6757000E-05,.6897000E-05,.7042000E-05, &.7143000E-05,.7246000E-05,.7353000E-05,.7463000E-05,.7576000E-05, &.7692000E-05,.7812000E-05,.7937000E-05,.8065000E-05,.8196999E-05, &.8333001E-05,.8475000E-05,.8696000E-05,.8929000E-05,.9091000E-05, &.9259000E-05,.9524000E-05,.9804000E-05,.1000000E-04,.1020000E-04, &.1031000E-04,.1042000E-04,.1053000E-04,.1064000E-04,.1075000E-04, &.1087000E-04,.1100000E-04,.1111000E-04,.1136000E-04,.1163000E-04, &.1190000E-04,.1220000E-04,.1250000E-04,.1282000E-04,.1299000E-04, &.1316000E-04,.1333000E-04,.1351000E-04,.1370000E-04,.1389000E-04, &.1408000E-04,.1429000E-04,.1471000E-04,.1515000E-04,.1538000E-04, &.1563000E-04,.1613000E-04,.1639000E-04,.1667000E-04,.1695000E-04, &.1724000E-04,.1818000E-04,.1887000E-04,.1923000E-04,.1961000E-04, &.2000000E-04,.2041000E-04,.2083000E-04,.2222000E-04,.2260000E-04, &.2305000E-04,.2360000E-04,.2460000E-04,.2500000E-04,.2600000E-04, &.2857000E-04,.3100000E-04,.3333000E-04,.3448000E-04,.3564000E-04, &.3700000E-04,.3824000E-04,.3960000E-04,.4114000E-04,.4276000E-04, &.4358000E-04,.4458000E-04,.4550000E-04,.4615000E-04,.4671000E-04, &.4736000E-04,.4800000E-04,.4878000E-04,.5003000E-04,.5128000E-04, &.5275000E-04,.5350000E-04,.5424000E-04,.5500000E-04,.5574000E-04, &.5640000E-04,.5700000E-04,.5746000E-04,.5840000E-04,.5929000E-04, &.6000000E-04,.6100000E-04,.6125000E-04,.6250000E-04,.6378000E-04, &.6467000E-04,.6558000E-04,.6655000E-04,.6760000E-04,.6900000E-04, &.7053000E-04,.7300000E-04,.7500000E-04,.7629000E-04,.8000000E-04, &.8297000E-04,.8500000E-04,.8680001E-04,.9080000E-04,.9517000E-04, &.1000000E-03,.1200000E-03,.1500000E-03,.1670000E-03/ data epicevis/ &2.1832037,3.0220087,2.4477277,1.7936502,0.7896869, &0.3638896,0.0989704,0.1296485,0.4747359,0.6042269, &0.7391522,0.8270491,0.9101521,1.0053538,1.1204786, &1.2478381,1.3907613,1.5331460,1.5983437,1.5859528, &1.5294470,1.4795980,1.4226713,1.3357474,1.2130061, &1.0765146,0.9549081,0.8522044,0.7333566,0.6579455, &0.5836973,0.5145633,0.4580996,0.4042850,0.3620397, &0.3252469,0.2931417,0.2685316,0.2455204,0.2259372, &0.2092481,0.1779757,0.1460140,0.1362165,0.1238611, &0.1114724,0.1013308,0.0958610,0.0989326,0.1026265, &0.1056360,0.1088488,0.1078976,0.1089309,0.1056082, &0.0775238,0.0604925,0.0548426/ data epiceir/ &0.0518859,0.0499921,0.0489281,0.0504541,0.0563693, &0.0690525,0.0726885,0.0778081,0.0828819,0.0909149, &0.0975723,0.1109497,0.1108328,0.1043100,0.1007861, &0.0985987,0.0951375,0.0903377,0.0868122,0.0846175, &0.0815860,0.0824196,0.0820647,0.0784795,0.0737793, &0.0722562,0.0696436,0.0659283,0.0645018,0.0631230, &0.0617881,0.0583767,0.0540010,0.0487309,0.0435927, &0.0405531,0.0414796,0.0409568,0.0413717,0.0422409, &0.0421894,0.0416819,0.0412459,0.0438362,0.0547753, &0.0626479,0.0729752,0.0890032,0.1097846,0.1367236, &0.1645632,0.1977923,0.2204414,0.2592581,0.2749909, &0.2818336,0.2731296,0.2562519,0.2294758,0.2146772, &0.2003647,0.1846708,0.1704422,0.1563350,0.1425573, &0.1287259,0.1145926,0.0897004,0.0727098,0.0659172, &0.0615737,0.0541199,0.0521104,0.0503624,0.0466379, &0.0422906,0.0299038,0.0264714,0.0274238,0.0264572, &0.0231405,0.0186739,0.0150726,0.0092988,0.0087124, &0.0084247,0.0083568,0.0085502,0.0087600,0.0096209, &0.0139307,0.0186971,0.0250932,0.0314043,0.0401234, &0.0493907,0.0591965,0.0683152,0.0781187,0.0888679, &0.0974246,0.1010759,0.1059724,0.1067670,0.1021143, &0.0896822,0.0784708,0.0693838,0.0645370,0.0599980, &0.0540903,0.0504870,0.0469609,0.0408812,0.0363856, &0.0326679,0.0299615,0.0284745,0.0328476,0.0366500, &0.0404568,0.0452998,0.0461202,0.0442455,0.0428461, &0.0412572,0.0394165,0.0369267,0.0336194,0.0301124, &0.0269362,0.0227761,0.0199896,0.0184862,0.0138242, &0.0116880,0.0108555,0.0101642,0.0089899,0.0079631, &0.0071303,0.0051857,0.0033162,0.0025556/ data omegicevis/ &0.5254589,1.0000000,0.9999991,0.9999862,0.9916013, &0.9620332,0.9309642,0.0638710,0.0662553,0.0823147, &0.0963694,0.1048159,0.1133009,0.1232222,0.1352970, &0.1488444,0.1650357,0.1841903,0.2017575,0.2166039, &0.2292029,0.2433622,0.2616843,0.2852339,0.3131889, &0.3412718,0.3660752,0.3928272,0.4309901,0.4492646, &0.4801873,0.5139056,0.5460804,0.5844365,0.6146011, &0.6468718,0.6772872,0.6975922,0.7236167,0.7461668, &0.7655625,0.7888166,0.7862524,0.7823967,0.7588729, &0.6857340,0.6214526,0.5368491,0.4470918,0.4119983, &0.3805366,0.3541514,0.3503601,0.3458159,0.3562116, &0.4411552,0.4703839,0.4680012/ data omegiceir/ &0.4410178,0.4089485,0.3886294,0.3210695,0.2419387, &0.1693097,0.1560958,0.1421160,0.1303703,0.1174139, &0.1096975,0.0955347,0.0956753,0.0990973,0.1009341, &0.1015035,0.1034342,0.1062110,0.1070629,0.1064178, &0.1036404,0.0972966,0.0935797,0.0912126,0.0893898, &0.0863554,0.0848208,0.0840290,0.0804088,0.0772171, &0.0744647,0.0741630,0.0747523,0.0763844,0.0774963, &0.0745925,0.0657440,0.0572360,0.0481501,0.0421850, &0.0375024,0.0306774,0.0232991,0.0167966,0.0100478, &0.0075047,0.0055527,0.0042542,0.0036752,0.0036866, &0.0039804,0.0045186,0.0049973,0.0059663,0.0067372, &0.0074513,0.0081464,0.0088094,0.0094550,0.0097817, &0.0101162,0.0104466,0.0107313,0.0110585,0.0114425, &0.0118786,0.0123615,0.0132487,0.0135842,0.0136287, &0.0132877,0.0127042,0.0121676,0.0117236,0.0118197, &0.0120773,0.0129020,0.0118840,0.0105257,0.0101722, &0.0107762,0.0121118,0.0133881,0.0149663,0.0144329, &0.0133009,0.0117145,0.0090358,0.0080348,0.0058144, &0.0023043,0.0010388,0.0004725,0.0003068,0.0002241, &0.0001846,0.0001716,0.0001686,0.0001696,0.0001738, &0.0001855,0.0001962,0.0002120,0.0002308,0.0002526, &0.0002702,0.0002761,0.0002683,0.0002543,0.0002499, &0.0002511,0.0002545,0.0002619,0.0002746,0.0002779, &0.0002773,0.0002686,0.0002502,0.0001890,0.0001591, &0.0001434,0.0001354,0.0001372,0.0001437,0.0001462, &0.0001491,0.0001526,0.0001578,0.0001639,0.0001681, &0.0001709,0.0001735,0.0001751,0.0001759,0.0001954, &0.0001839,0.0001755,0.0001695,0.0001556,0.0001422, &0.0001276,0.0000821,0.0000525,0.0000447/ data gicevis/ &0.9440147,0.7965972,0.8107608,0.7669883,0.6258456, &0.4763368,0.3164644,0.2653029,0.2540545,0.2543145, &0.2552853,0.2555421,0.2551991,0.2546355,0.2543354, &0.2544852,0.2551972,0.2571523,0.2610470,0.2657359, &0.2696103,0.2723087,0.2749877,0.2770225,0.2766140, &0.2729803,0.2674728,0.2618006,0.2547111,0.2485000, &0.2423996,0.2361834,0.2305830,0.2249461,0.2198020, &0.2149920,0.2103154,0.2060570,0.2018775,0.1979253, &0.1941856,0.1853729,0.1727509,0.1681767,0.1610373, &0.1502239,0.1399678,0.1301550,0.1233758,0.1211795, &0.1180928,0.1149843,0.1129097,0.1123236,0.1113603, &0.1042673,0.0958210,0.0918495/ data giceir/ &0.0879977,0.0844017,0.0822360,0.0778328,0.0732655, &0.0690960,0.0682752,0.0674878,0.0666989,0.0659700, &0.0653013,0.0618198,0.0604822,0.0583973,0.0576873, &0.0569741,0.0562715,0.0555336,0.0547710,0.0540252, &0.0525653,0.0511566,0.0498082,0.0478042,0.0458238, &0.0445190,0.0432495,0.0419659,0.0407013,0.0394739, &0.0382847,0.0371085,0.0359234,0.0347448,0.0335567, &0.0323681,0.0312087,0.0295399,0.0279082,0.0268502, &0.0258095,0.0242507,0.0226832,0.0216094,0.0205569, &0.0199994,0.0194464,0.0189064,0.0183935,0.0179262, &0.0174721,0.0170318,0.0167252,0.0161173,0.0156093, &0.0151735,0.0148010,0.0144899,0.0141909,0.0140236, &0.0138500,0.0136646,0.0134407,0.0131990,0.0129545, &0.0126989,0.0123981,0.0117364,0.0110220,0.0106622, &0.0102900,0.0096114,0.0092885,0.0089773,0.0086913, &0.0084029,0.0075082,0.0069195,0.0066498,0.0064030, &0.0061638,0.0059125,0.0056564,0.0049044,0.0047217, &0.0045194,0.0042905,0.0039171,0.0037807,0.0034683, &0.0028199,0.0023535,0.0019931,0.0018378,0.0017011, &0.0015627,0.0014514,0.0013460,0.0012398,0.0011386, &0.0010917,0.0010505,0.0010140,0.0010014,0.0010106, &0.0010385,0.0010523,0.0010404,0.0009990,0.0009673, &0.0009376,0.0009252,0.0009159,0.0009061,0.0008860, &0.0008628,0.0008361,0.0008086,0.0007567,0.0007210, &0.0006967,0.0006727,0.0006705,0.0006603,0.0006463, &0.0006386,0.0006316,0.0006257,0.0006182,0.0006034, &0.0005850,0.0005536,0.0005284,0.0005128,0.0004754, &0.0004328,0.0004100,0.0003918,0.0003559,0.0003223, &0.0002906,0.0002006,0.0001287,0.0001043/