c----------------------------------------------------------------------- c INCLUDE 'aerice.h' c Spectral Radiative properties of water ice PARTICLE RADIUS = 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=1.2E+0) c Optical properties used by initracer.F to determine Qextrhor REAL rcrystal,qrefice PARAMETER (rcrystal=5.e-6,qrefice=2.1) 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.0428143,2.0440466,2.1968415,2.2153285,2.2960923, &2.3659375,2.8867066,1.4714612,1.7771624,1.8997087, &1.9929919,2.0451753,2.0872736,2.1281450,2.1707144, &2.2132783,2.2573934,2.3003073,2.3321264,2.3514304, &2.3634045,2.3739398,2.3842189,2.3941483,2.4037600, &2.4129043,2.4213498,2.4291728,2.4373298,2.4419029, &2.4471161,2.4538815,2.4630349,2.4742622,2.4854822, &2.5033839,2.5176528,2.5136092,2.5134516,2.5263309, &2.5060482,2.6094491,2.6798794,2.6632533,2.7183650, &2.8463554,2.9012349,2.9348140,2.9701750,2.9754398, &2.9789634,2.9716895,2.9712498,2.9672985,2.9738250, &3.0348940,3.1332080,3.1466768/ data epiceir/ &3.1348512,3.1135170,3.0980451,3.0516498,2.9460745, &2.7977514,2.7647121,2.7296543,2.6980081,2.6652355, &2.6520360,2.6446781,2.6661332,2.7014117,2.7124405, &2.7181728,2.7285180,2.7372139,2.7347012,2.7262812, &2.7032161,2.6736920,2.6591630,2.6453030,2.6226292, &2.5987844,2.5791478,2.5533869,2.5169418,2.4857807, &2.4605293,2.4401815,2.4123871,2.3720129,2.3076501, &2.2154198,2.1208081,1.9929006,1.8554076,1.7655714, &1.6732348,1.5088136,1.2957467,1.1248519,1.0043060, &0.9623911,0.9399940,0.9638529,1.0305194,1.1452191, &1.2687433,1.4178077,1.5291764,1.7348669,1.8864686, &2.0165479,2.1304126,2.2267041,2.3057120,2.3408694, &2.3737895,2.3992765,2.4196458,2.4389904,2.4559703, &2.4664493,2.4680557,2.4285460,2.3429909,2.2869768, &2.2235444,2.0965919,2.0351093,1.9889221,1.9465162, &1.8934352,1.6640973,1.4980435,1.4440260,1.4054043, &1.3498148,1.2628263,1.1601040,0.8777069,0.8140609, &0.7497768,0.6831331,0.5837339,0.5504547,0.4820068, &0.3904156,0.3576854,0.3641066,0.4038780,0.4747776, &0.5532535,0.6412786,0.7272216,0.8227299,0.9304959, &1.0245264,1.0890912,1.1736258,1.2312673,1.2493920, &1.1830822,1.0889487,0.9851518,0.9227560,0.8740039, &0.8118621,0.7720758,0.7351863,0.6589684,0.5922329, &0.5316939,0.4811391,0.4445072,0.4707272,0.5020384, &0.5401840,0.5982011,0.6122363,0.6017624,0.5915391, &0.5768967,0.5586212,0.5319895,0.4920566,0.4455049, &0.4009319,0.3399382,0.2980777,0.2753274,0.2093637, &0.1716706,0.1567566,0.1449283,0.1247388,0.1076142, &0.0937344,0.0625980,0.0375503,0.0283737/ data omegicevis/ &0.5494931,0.9999998,0.9999893,0.9999013,0.9758908, &0.9520350,0.9813806,0.4902175,0.4373621,0.4608643, &0.4736899,0.4790656,0.4847680,0.4913164,0.4985126, &0.5050762,0.5111622,0.5159741,0.5158814,0.5132105, &0.5098287,0.5077458,0.5059724,0.5035798,0.5004508, &0.4974112,0.4955608,0.4956980,0.4999822,0.5055479, &0.5182787,0.5389499,0.5644807,0.6003360,0.6358722, &0.6744935,0.7115463,0.7406379,0.7754455,0.8046825, &0.8330303,0.8720050,0.8909805,0.8971584,0.8986517, &0.8775966,0.8676537,0.8459433,0.8139567,0.7968134, &0.7813268,0.7666911,0.7660663,0.7625950,0.7705110, &0.8471078,0.8871527,0.8974949/ data omegiceir/ &0.8977836,0.8945748,0.8924134,0.8738061,0.8388449, &0.7859417,0.7726671,0.7557423,0.7397608,0.7176195, &0.7014517,0.6706539,0.6709267,0.6829631,0.6896477, &0.6933964,0.7002523,0.7101147,0.7166997,0.7200235, &0.7232453,0.7166191,0.7139632,0.7179898,0.7246478, &0.7245268,0.7280882,0.7347864,0.7340991,0.7336202, &0.7333983,0.7403341,0.7504411,0.7639143,0.7766036, &0.7794099,0.7640404,0.7500795,0.7291497,0.7110402, &0.6959369,0.6683127,0.6242461,0.5602421,0.4472759, &0.3841803,0.3222430,0.2709396,0.2443090,0.2429399, &0.2540719,0.2731242,0.2887707,0.3170114,0.3380532, &0.3559635,0.3733418,0.3897057,0.4070157,0.4162955, &0.4258323,0.4362862,0.4465349,0.4581154,0.4711562, &0.4861186,0.5037051,0.5414228,0.5708696,0.5832593, &0.5885317,0.5983726,0.5977412,0.5976148,0.6077798, &0.6216503,0.6655161,0.6657503,0.6467597,0.6461229, &0.6660358,0.6987826,0.7269489,0.7691699,0.7678677, &0.7591690,0.7429094,0.7052954,0.6864988,0.6300915, &0.4480666,0.2989470,0.1806929,0.1314649,0.1033070, &0.0896708,0.0859415,0.0864679,0.0888946,0.0928023, &0.0989119,0.1047399,0.1125751,0.1210458,0.1301845, &0.1373109,0.1401302,0.1382077,0.1341803,0.1336529, &0.1354927,0.1375671,0.1411836,0.1473035,0.1498776, &0.1508872,0.1485618,0.1416996,0.1143930,0.0999223, &0.0919109,0.0879268,0.0889088,0.0927174,0.0943725, &0.0961518,0.0982119,0.1012073,0.1047162,0.1074747, &0.1096113,0.1120945,0.1138527,0.1148487,0.1264241, &0.1220450,0.1182757,0.1155932,0.1089078,0.1020501, &0.0940495,0.0660757,0.0452682,0.0393932/ data gicevis/ &0.9488561,0.8622694,0.8421568,0.8444307,0.8198477, &0.8025251,0.8924177,0.9702666,0.9557836,0.9476732, &0.9401344,0.9356233,0.9306720,0.9244909,0.9168691, &0.9087364,0.8999177,0.8914922,0.8885176,0.8896047, &0.8924723,0.8939612,0.8951342,0.8972442,0.9004632, &0.9036172,0.9051868,0.9042581,0.8988889,0.8931115, &0.8817939,0.8662245,0.8491337,0.8268852,0.8078062, &0.7890281,0.7693759,0.7548954,0.7426000,0.7296526, &0.7270693,0.7355062,0.7289565,0.7364469,0.7544447, &0.7692665,0.7925164,0.8065700,0.8307455,0.8377706, &0.8427537,0.8454301,0.8436610,0.8436959,0.8396172, &0.8239458,0.8273445,0.8320904/ data giceir/ &0.8373514,0.8419112,0.8460672,0.8574966,0.8670993, &0.8753594,0.8769836,0.8787410,0.8801410,0.8817471, &0.8821138,0.8790489,0.8760744,0.8707907,0.8689077, &0.8674014,0.8654746,0.8634583,0.8622014,0.8614331, &0.8604119,0.8602243,0.8590601,0.8563642,0.8534315, &0.8516557,0.8491830,0.8464145,0.8443506,0.8419912, &0.8393673,0.8359801,0.8324290,0.8288801,0.8258969, &0.8241146,0.8232231,0.8199658,0.8160087,0.8130227, &0.8095026,0.8040639,0.7986902,0.7954774,0.7927923, &0.7908941,0.7887109,0.7863154,0.7833571,0.7799240, &0.7757225,0.7708758,0.7671629,0.7589634,0.7514880, &0.7439123,0.7363079,0.7288431,0.7213242,0.7172369, &0.7129840,0.7087308,0.7039406,0.6985872,0.6929027, &0.6868637,0.6798444,0.6653367,0.6513552,0.6442967, &0.6372020,0.6223192,0.6148563,0.6068394,0.5979654, &0.5884917,0.5583712,0.5388037,0.5299017,0.5197192, &0.5079988,0.4946542,0.4810905,0.4402598,0.4297767, &0.4177190,0.4033195,0.3778822,0.3680294,0.3443614, &0.2904477,0.2472555,0.2122748,0.1975763,0.1849724, &0.1717572,0.1611385,0.1505969,0.1396510,0.1290195, &0.1242519,0.1192575,0.1148210,0.1125826,0.1120808, &0.1130957,0.1133712,0.1114241,0.1063793,0.1023448, &0.0985022,0.0968736,0.0956093,0.0943082,0.0919330, &0.0892278,0.0861601,0.0830894,0.0777779,0.0741764, &0.0717541,0.0693096,0.0690498,0.0677189,0.0660590, &0.0651242,0.0642725,0.0635431,0.0626790,0.0610575, &0.0590792,0.0557436,0.0530752,0.0514414,0.0475330, &0.0431135,0.0407930,0.0389434,0.0353244,0.0319652, &0.0288019,0.0198931,0.0127889,0.0103672/