c----------------------------------------------------------------------- c INCLUDE 'aerice.h' c Spectral Radiative properties of water ice PARTICLE RADIUS = 4 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=2.1E+0) c Optical properties used by initracer.F to determine Qextrhor REAL rcrystal,qrefice PARAMETER (rcrystal=4.e-6,qrefice=2.1) c--------------------------------------------------------------------- data longicevis/ &.1802000E-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,.8197000E-05, &.8333000E-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,.8680000E-04,.9080000E-04,.9517000E-04, &.1000000E-03,.1200000E-03,.1500000E-03,.1670000E-03/ data epicevis/ &2.0854822,2.0504486,2.2594056,2.2905577,2.4309553, &2.7394925,2.9738858,1.0479889,1.5827071,1.7473683, &1.8791661,1.9542847,2.0162247,2.0774747,2.1420606, &2.2070080,2.2746674,2.3410056,2.3915425,2.4243052, &2.4465380,2.4664531,2.4864873,2.5070593,2.5285199, &2.5506347,2.5724538,2.5936350,2.6196233,2.6374214, &2.6572831,2.6830637,2.7173599,2.7675186,2.8233521, &2.8801521,2.9195511,2.9341195,2.9565225,2.9903221, &3.0211312,3.1489194,3.2117107,3.1927426,3.1992998, &3.2346768,3.1870882,3.0997686,3.0240328,2.9942008, &2.9638598,2.9380857,2.9347956,2.9330930,2.9452588, &2.9445502,2.8607601,2.7946008/ data epiceir/ &2.7047184,2.6120941,2.5504249,2.4083079,2.2449776, &2.0963051,2.0678715,2.0435539,2.0233198,2.0134084, &2.0220503,2.0596078,2.0865511,2.1071296,2.1073430, &2.1056444,2.1049262,2.0960135,2.0772534,2.0565253, &2.0132797,1.9785371,1.9572351,1.9217145,1.8724474, &1.8385008,1.8061319,1.7637404,1.7201956,1.6824483, &1.6508880,1.6160781,1.5712145,1.5128543,1.4363862, &1.3483616,1.2774042,1.1795400,1.0840162,1.0261202, &0.9651563,0.8602540,0.7339102,0.6469975,0.6119478, &0.6091090,0.6207982,0.6672347,0.7434798,0.8558041, &0.9740046,1.1170480,1.2233814,1.4233819,1.5659507, &1.6880697,1.7848208,1.8579589,1.8989074,1.9101462, &1.9175409,1.9114984,1.8998538,1.8840935,1.8632078, &1.8316492,1.7857095,1.6508096,1.4954219,1.4151742, &1.3432500,1.2148845,1.1631782,1.1234219,1.0776615, &1.0225006,0.8207632,0.7104143,0.6854881,0.6592867, &0.6146109,0.5515194,0.4878044,0.3406532,0.3125988, &0.2862523,0.2605937,0.2247351,0.2136279,0.1929169, &0.1780802,0.1848382,0.2104575,0.2466988,0.3018862, &0.3613543,0.4261933,0.4881637,0.5562663,0.6325883, &0.6974163,0.7349945,0.7849246,0.8107314,0.8016415, &0.7301529,0.6518985,0.5788133,0.5371399,0.5015947, &0.4561899,0.4281780,0.4014403,0.3523277,0.3134494, &0.2802024,0.2545224,0.2382317,0.2645295,0.2893848, &0.3160831,0.3526863,0.3600670,0.3487748,0.3395592, &0.3284123,0.3151843,0.2968681,0.2714744,0.2435622, &0.2178014,0.1836341,0.1606565,0.1482674,0.1111388, &0.0925535,0.0852699,0.0793584,0.0693137,0.0606733, &0.0536815,0.0376899,0.0234903,0.0179599/ data omegicevis/ &0.9997557,0.9999997,0.9999922,0.9999319,0.9834057, &0.9697400,0.9889413,0.4170863,0.3839164,0.4148017, &0.4329225,0.4410049,0.4489707,0.4576899,0.4670268, &0.4755634,0.4835813,0.4903115,0.4920676,0.4910262, &0.4890484,0.4880903,0.4873634,0.4862187,0.4850952, &0.4856144,0.4890416,0.4960548,0.5125623,0.5285751, &0.5546114,0.5898761,0.6277213,0.6730058,0.7122949, &0.7517495,0.7888858,0.8171780,0.8476295,0.8725174, &0.8933310,0.9217324,0.9365012,0.9409229,0.9421082, &0.9300490,0.9206304,0.9031980,0.8741305,0.8588691, &0.8445156,0.8310569,0.8304268,0.8275097,0.8349118, &0.8934678,0.9187520,0.9234176/ data omegiceir/ &0.9195789,0.9130654,0.9084498,0.8848193,0.8432430, &0.7802753,0.7644560,0.7449288,0.7265303,0.7022048, &0.6854911,0.6547806,0.6568891,0.6708937,0.6778638, &0.6815536,0.6886025,0.6981948,0.7035849,0.7054032, &0.7053613,0.6954878,0.6908569,0.6925153,0.6964372, &0.6940646,0.6957520,0.7002053,0.6964250,0.6932367, &0.6907555,0.6961634,0.7047681,0.7167735,0.7274370, &0.7265938,0.7055041,0.6847062,0.6557705,0.6320110, &0.6117497,0.5758710,0.5225218,0.4523725,0.3413817, &0.2842636,0.2313632,0.1900614,0.1697527,0.1697629, &0.1798291,0.1970501,0.2115807,0.2391071,0.2606377, &0.2798113,0.2988472,0.3170983,0.3361139,0.3461500, &0.3563966,0.3671677,0.3774159,0.3888194,0.4014468, &0.4154617,0.4312829,0.4628420,0.4848666,0.4936416, &0.4953880,0.4988511,0.4951004,0.4923347,0.5001683, &0.5114973,0.5471412,0.5407871,0.5179877,0.5151565, &0.5338754,0.5665359,0.5949027,0.6346611,0.6304472, &0.6168448,0.5937971,0.5441191,0.5208242,0.4555555, &0.2795748,0.1643928,0.0891554,0.0618627,0.0471263, &0.0400198,0.0378990,0.0377831,0.0385226,0.0399469, &0.0426608,0.0451856,0.0487382,0.0527340,0.0571690, &0.0606253,0.0618599,0.0605589,0.0581096,0.0574950, &0.0580301,0.0588644,0.0604849,0.0632511,0.0642014, &0.0643580,0.0628783,0.0592713,0.0462856,0.0396805, &0.0361116,0.0343350,0.0347561,0.0363269,0.0369600, &0.0376791,0.0385242,0.0397799,0.0412408,0.0423222, &0.0431063,0.0439387,0.0445039,0.0448168,0.0496150, &0.0473067,0.0454896,0.0441976,0.0410999,0.0380139, &0.0345402,0.0231292,0.0152373,0.0130964/ data gicevis/ &0.8343501,0.8539270,0.8165237,0.8181057,0.7824335, &0.8121903,0.9116917,0.9469896,0.9339413,0.9264918, &0.9194773,0.9152379,0.9105224,0.9045991,0.8973010, &0.8895398,0.8811479,0.8731629,0.8704250,0.8714981, &0.8741569,0.8753158,0.8759663,0.8770830,0.8782619, &0.8777608,0.8743001,0.8669701,0.8513806,0.8396250, &0.8215540,0.8018272,0.7843039,0.7655624,0.7525014, &0.7398580,0.7289740,0.7259218,0.7254756,0.7268577, &0.7324639,0.7521768,0.7661537,0.7739922,0.7902248, &0.8065580,0.8156578,0.8255079,0.8347661,0.8373555, &0.8387650,0.8389051,0.8371919,0.8368247,0.8344242, &0.8242407,0.8213838,0.8203836/ data giceir/ &0.8202859,0.8204761,0.8207446,0.8218899,0.8224330, &0.8225752,0.8226243,0.8228495,0.8228806,0.8232125, &0.8228349,0.8170514,0.8134916,0.8073353,0.8051527, &0.8032251,0.8010219,0.7986862,0.7967891,0.7952084, &0.7923052,0.7898931,0.7867939,0.7811755,0.7750518, &0.7710254,0.7664988,0.7615658,0.7570799,0.7523895, &0.7475237,0.7419846,0.7361146,0.7300106,0.7239206, &0.7182872,0.7132332,0.7041776,0.6943774,0.6874813, &0.6799427,0.6676864,0.6541361,0.6444608,0.6352317, &0.6299193,0.6244130,0.6191449,0.6140400,0.6095717, &0.6048778,0.6003752,0.5971281,0.5896495,0.5818252, &0.5736867,0.5649501,0.5561939,0.5469384,0.5418788, &0.5367152,0.5314598,0.5255540,0.5191799,0.5126669, &0.5058801,0.4979611,0.4805868,0.4616396,0.4517272, &0.4414385,0.4213243,0.4114112,0.4014477,0.3914565, &0.3809337,0.3465430,0.3234292,0.3130346,0.3027512, &0.2918884,0.2798819,0.2676042,0.2318030,0.2231267, &0.2135321,0.2026399,0.1847338,0.1781789,0.1631734, &0.1323553,0.1103728,0.0936858,0.0867514,0.0807283, &0.0744888,0.0694563,0.0645469,0.0595233,0.0546962, &0.0524681,0.0503008,0.0483757,0.0475037,0.0475338, &0.0483772,0.0487606,0.0480684,0.0460275,0.0444297, &0.0429296,0.0423003,0.0418224,0.0413265,0.0403650, &0.0392690,0.0380197,0.0367560,0.0344374,0.0328447, &0.0317576,0.0306637,0.0305520,0.0300328,0.0293586, &0.0289865,0.0286487,0.0283637,0.0280170,0.0273389, &0.0265009,0.0250756,0.0239277,0.0232211,0.0215270, &0.0195894,0.0185593,0.0177348,0.0161119,0.0145967, &0.0131628,0.0091000,0.0058481,0.0047391/