c---------------- zonally averaged and SPW in the geopotential height c at 1000 hPa pressure level extracted from UKMO data c-------------------------------------------------------------------- common/ghav /ghav_00 (36), $ ghav_s1 (36),ghav_c1 (36),ghav_s2 (36),ghav_c2 (36), $ ghav_s3 (36),ghav_c3 (36),ghav_s4 (36),ghav_c4 (36) common/ghm1r/ghm1_r00(36), $ ghm1_rs1(36),ghm1_rc1(36),ghm1_rs2(36),ghm1_rc2(36), $ ghm1_rs3(36),ghm1_rc3(36),ghm1_rs4(36),ghm1_rc4(36) common/ghm1i/ghm1_i00(36), $ ghm1_is1(36),ghm1_ic1(36),ghm1_is2(36),ghm1_ic2(36), $ ghm1_is3(36),ghm1_ic3(36),ghm1_is4(36),ghm1_ic4(36) common/ghm2r/ghm2_r00(36), $ ghm2_rs1(36),ghm2_rc1(36),ghm2_rs2(36),ghm2_rc2(36), $ ghm2_rs3(36),ghm2_rc3(36),ghm2_rs4(36),ghm2_rc4(36) common/ghm2i/ghm2_i00(36), $ ghm2_is1(36),ghm2_ic1(36),ghm2_is2(36),ghm2_ic2(36), $ ghm2_is3(36),ghm2_ic3(36),ghm2_is4(36),ghm2_ic4(36) DATA ghav_00/36 numbers/ DATA ghav_s1// DATA ghav_c1// DATA ghav_s2// DATA ghav_c2// DATA ghav_s3// DATA ghav_c3// DATA ghav_s4// DATA ghav_c4// c-------------------------------------------------------------------- DATA ghm1_r00/ .8805E+01, .2271E+02, .2722E+02, .2102E+02, $ .7583E+01,-.6727E+01,-.1579E+02,-.1654E+02, $ -.1001E+02,-.2766E+00, .7966E+01, .1182E+02, $ .1130E+02, .8710E+01, .6886E+01, .7303E+01, $ .9268E+01, .1051E+02, .8743E+01, .3303E+01, $ -.4230E+01,-.1066E+02,-.1276E+02,-.8995E+01, $ -.3747E+00, .9846E+01, .1756E+02, .1951E+02, $ .1461E+02, .4276E+01,-.8245E+01,-.1909E+02, $ -.2506E+02,-.2454E+02,-.1773E+02,-.6446E+01/ DATA ghm1_rs1/-.7883E+00,-.2040E+01,-.2582E+01,-.2627E+01, $ -.2877E+01,-.4021E+01,-.6200E+01,-.8797E+01, $ -.1073E+02,-.1104E+02,-.9498E+01,-.6672E+01, $ -.3653E+01,-.1454E+01,-.5529E+00,-.8055E+00, $ -.1714E+01,-.2794E+01,-.3771E+01,-.4492E+01, $ -.4707E+01,-.3973E+01,-.1844E+01, .1730E+01, $ .6076E+01, .9838E+01, .1146E+02, .9906E+01, $ .5214E+01,-.1422E+01,-.8101E+01,-.1296E+02, $ -.1480E+02,-.1336E+02,-.9182E+01,-.3258E+01/ DATA ghm1_rc1/-.6590E+00,-.1635E+01,-.1818E+01,-.1305E+01, $ -.6745E+00,-.6012E+00,-.1392E+01,-.2765E+01, $ -.4023E+01,-.4504E+01,-.4015E+01,-.2963E+01, $ -.2096E+01,-.2015E+01,-.2784E+01,-.3876E+01, $ -.4476E+01,-.3952E+01,-.2166E+01, .5361E+00, $ .3640E+01, .6820E+01, .1007E+02, .1350E+02, $ .1691E+02, .1947E+02, .1977E+02, .1632E+02, $ .8374E+01,-.3416E+01,-.1679E+02,-.2838E+02, $ -.3470E+02,-.3337E+02,-.2407E+02,-.8765E+01/ DATA ghm1_rs2/-.1248E+01,-.3435E+01,-.4847E+01,-.5369E+01, $ -.5188E+01,-.4562E+01,-.3598E+01,-.2230E+01, $ -.4011E+00, .1690E+01, .3540E+01, .4557E+01, $ .4434E+01, .3399E+01, .2132E+01, .1358E+01, $ .1393E+01, .1953E+01, .2407E+01, .2309E+01, $ .1813E+01, .1647E+01, .2598E+01, .4819E+01, $ .7467E+01, .8987E+01, .7954E+01, .3967E+01, $ -.1954E+01,-.7789E+01,-.1152E+02,-.1216E+02, $ -.1010E+02,-.6744E+01,-.3515E+01,-.1040E+01/ DATA ghm1_rc2/-.3327E+00,-.1167E+01,-.2447E+01,-.4269E+01, $ -.6431E+01,-.8404E+01,-.9466E+01,-.8996E+01, $ -.6815E+01,-.3378E+01, .3517E+00, .3318E+01, $ .4867E+01, .5036E+01, .4450E+01, .3889E+01, $ .3793E+01, .4044E+01, .4156E+01, .3735E+01, $ .2881E+01, .2206E+01, .2432E+01, .3826E+01, $ .5863E+01, .7409E+01, .7352E+01, .5298E+01, $ .1890E+01,-.1501E+01,-.3530E+01,-.3627E+01, $ -.2267E+01,-.5918E+00, .3545E+00, .2736E+00/ DATA ghm1_rs3/-.1694E+00,-.3377E+00,-.9176E-01, .5774E+00, $ .1440E+01, .2153E+01, .2434E+01, .2186E+01, $ .1514E+01, .6439E+00,-.1859E+00,-.8046E+00, $ -.1134E+01,-.1177E+01,-.1005E+01,-.7391E+00, $ -.5214E+00,-.4407E+00,-.4443E+00,-.2960E+00, $ .3523E+00, .1765E+01, .3889E+01, .6231E+01, $ .7970E+01, .8302E+01, .6868E+01, .4015E+01, $ .7200E+00,-.1838E+01,-.2843E+01,-.2238E+01, $ -.7269E+00, .6485E+00, .1097E+01, .5130E+00/ DATA ghm1_rc3/-.4568E+00,-.1237E+01,-.1669E+01,-.1671E+01, $ -.1339E+01,-.9147E+00,-.6805E+00,-.8218E+00, $ -.1316E+01,-.1924E+01,-.2305E+01,-.2206E+01, $ -.1624E+01,-.8257E+00,-.2068E+00,-.5268E-01, $ -.3568E+00,-.8140E+00,-.1013E+01,-.7147E+00, $ -.4424E-01, .5498E+00, .5553E+00,-.2671E+00, $ -.1683E+01,-.3056E+01,-.3669E+01,-.3107E+01, $ -.1488E+01, .6016E+00, .2411E+01, .3392E+01, $ .3414E+01, .2714E+01, .1670E+01, .5542E+00/ DATA ghm1_rs4/ .1463E+01, .3988E+01, .5447E+01, .5534E+01, $ .4379E+01, .2465E+01, .4189E+00,-.1214E+01, $ -.2135E+01,-.2330E+01,-.2005E+01,-.1447E+01, $ -.9023E+00,-.5005E+00,-.2565E+00,-.1155E+00, $ -.1074E-01, .9551E-01, .2015E+00, .2769E+00, $ .2805E+00, .1736E+00,-.7349E-01,-.4754E+00, $ -.1022E+01,-.1667E+01,-.2324E+01,-.2876E+01, $ -.3208E+01,-.3244E+01,-.2974E+01,-.2467E+01, $ -.1838E+01,-.1211E+01,-.6649E+00,-.2088E+00/ DATA ghm1_rc4/-.5451E+00,-.1240E+01,-.9946E+00, .1568E+00, $ .1614E+01, .2567E+01, .2471E+01, .1349E+01, $ -.2453E+00,-.1566E+01,-.2092E+01,-.1775E+01, $ -.9917E+00,-.2636E+00, .5873E-01,-.4688E-01, $ -.3437E+00,-.5503E+00,-.5384E+00,-.3899E+00, $ -.3003E+00,-.4226E+00,-.7700E+00,-.1235E+01, $ -.1688E+01,-.2068E+01,-.2393E+01,-.2692E+01, $ -.2928E+01,-.2989E+01,-.2758E+01,-.2216E+01, $ -.1489E+01,-.7926E+00,-.3090E+00,-.6800E-01/ DATA ghm1_i00/-.1882E+02,-.4787E+02,-.5551E+02,-.3959E+02, $ -.9210E+01, .2062E+02, .3698E+02, .3519E+02, $ .2007E+02, .2033E+01,-.9189E+01,-.9465E+01, $ -.1352E+01, .8676E+01, .1466E+02, .1448E+02, $ .1033E+02, .6697E+01, .7381E+01, .1346E+02, $ .2311E+02, .3286E+02, .3929E+02, .4017E+02, $ .3480E+02, .2397E+02, .9811E+01,-.4457E+01, $ -.1510E+02,-.1904E+02,-.1529E+02,-.5851E+01, $ .4814E+01, .1164E+02, .1145E+02, .4703E+01/ DATA ghm1_is1/ .6756E+00, .2062E+01, .3342E+01, .3945E+01, $ .3094E+01, .3718E+00,-.3763E+01,-.7930E+01, $ -.1039E+02,-.9940E+01,-.6628E+01,-.1809E+01, $ .2505E+01, .4676E+01, .4245E+01, .2061E+01, $ -.3077E+00,-.1521E+01,-.1195E+01,-.1895E-01, $ .7646E+00, .1690E+00,-.1936E+01,-.4749E+01, $ -.6984E+01,-.7546E+01,-.6034E+01,-.2865E+01, $ .1008E+01, .4541E+01, .6973E+01, .7983E+01, $ .7629E+01, .6187E+01, .3996E+01, .1378E+01/ DATA ghm1_ic1/-.7945E+00,-.2560E+01,-.4825E+01,-.7758E+01, $ -.1112E+02,-.1410E+02,-.1536E+02,-.1367E+02, $ -.8605E+01,-.1095E+01, .6707E+01, .1232E+02, $ .1414E+02, .1221E+02, .8166E+01, .4150E+01, $ .1545E+01, .1481E+00,-.1603E+01,-.5537E+01, $ -.1249E+02,-.2170E+02,-.3124E+02,-.3911E+02, $ -.4426E+02,-.4692E+02,-.4789E+02,-.4763E+02, $ -.4567E+02,-.4092E+02,-.3277E+02,-.2202E+02, $ -.1101E+02,-.2612E+01, .1283E+01, .9930E+00/ DATA ghm1_is2/ .5176E+00, .1417E+01, .2024E+01, .2434E+01, $ .2905E+01, .3616E+01, .4457E+01, .5041E+01, $ .4958E+01, .4095E+01, .2782E+01, .1625E+01, $ .1126E+01, .1338E+01, .1814E+01, .1913E+01, $ .1272E+01, .1119E+00,-.8333E+00,-.7510E+00, $ .7398E+00, .3330E+01, .6188E+01, .8425E+01, $ .9548E+01, .9597E+01, .8914E+01, .7736E+01, $ .5976E+01, .3350E+01,-.1954E+00,-.4109E+01, $ -.7236E+01,-.8296E+01,-.6589E+01,-.2508E+01/ DATA ghm1_ic2/-.1068E+01,-.2899E+01,-.3906E+01,-.3809E+01, $ -.2674E+01,-.8988E+00, .9164E+00, .2198E+01, $ .2636E+01, .2306E+01, .1603E+01, .1012E+01, $ .8351E+00, .1034E+01, .1290E+01, .1240E+01, $ .7557E+00, .7011E-01,-.3339E+00,-.8458E-02, $ .1171E+01, .2898E+01, .4581E+01, .5647E+01, $ .5824E+01, .5221E+01, .4191E+01, .3068E+01, $ .1980E+01, .8557E+00,-.4016E+00,-.1708E+01, $ -.2735E+01,-.3055E+01,-.2407E+01,-.9141E+00/ DATA ghm1_is3/ .6317E+00, .1814E+01, .2773E+01, .3417E+01, $ .3715E+01, .3694E+01, .3421E+01, .2992E+01, $ .2521E+01, .2117E+01, .1850E+01, .1726E+01, $ .1675E+01, .1582E+01, .1354E+01, .9840E+00, $ .5615E+00, .2226E+00, .4668E-01,-.2741E-01, $ -.2025E+00,-.7167E+00,-.1676E+01,-.2927E+01, $ -.4053E+01,-.4540E+01,-.4018E+01,-.2473E+01, $ -.2887E+00, .1901E+01, .3486E+01, .4126E+01, $ .3847E+01, .2948E+01, .1785E+01, .5895E+00/ DATA ghm1_ic3/-.1240E+00,-.3783E+00,-.6226E+00,-.7858E+00, $ -.7799E+00,-.5804E+00,-.2842E+00,-.8700E-01, $ -.1771E+00,-.6095E+00,-.1246E+01,-.1814E+01, $ -.2054E+01,-.1867E+01,-.1369E+01,-.8164E+00, $ -.4510E+00,-.3670E+00,-.4838E+00,-.6333E+00, $ -.6917E+00,-.6617E+00,-.6502E+00,-.7670E+00, $ -.1028E+01,-.1344E+01,-.1598E+01,-.1760E+01, $ -.1933E+01,-.2282E+01,-.2881E+01,-.3591E+01, $ -.4061E+01,-.3886E+01,-.2840E+01,-.1045E+01/ DATA ghm1_is4/ .6480E+00, .1447E+01, .1071E+01,-.4088E+00, $ -.2218E+01,-.3356E+01,-.3207E+01,-.1891E+01, $ -.1465E+00, .1145E+01, .1485E+01, .9959E+00, $ .2517E+00,-.1517E+00, .2109E-01, .5510E+00, $ .9877E+00, .1003E+01, .6158E+00, .1421E+00, $ -.6152E-01, .1379E+00, .5780E+00, .9598E+00, $ .1105E+01, .1110E+01, .1275E+01, .1864E+01, $ .2875E+01, .3990E+01, .4744E+01, .4802E+01, $ .4138E+01, .3008E+01, .1751E+01, .5648E+00/ DATA ghm1_ic4/ .5810E+00, .1564E+01, .2093E+01, .2103E+01, $ .1742E+01, .1277E+01, .9334E+00, .7844E+00, $ .7374E+00, .6210E+00, .3150E+00,-.1604E+00, $ -.6491E+00,-.9515E+00,-.9471E+00,-.6701E+00, $ -.2931E+00,-.2941E-01,-.1390E-01,-.2334E+00, $ -.5469E+00,-.7801E+00,-.8352E+00,-.7473E+00, $ -.6547E+00,-.6997E+00,-.9236E+00,-.1221E+01, $ -.1386E+01,-.1228E+01,-.6952E+00, .7082E-01, $ .7838E+00, .1144E+01, .9911E+00, .3894E+00/ c-------------------------------------------------------------------- DATA ghm2_r00/-.9094E+00,-.7046E+01,-.1421E+02,-.1607E+02, $ -.9820E+01, .1604E+01, .1161E+02, .1453E+02, $ .9345E+01,-.4888E-01,-.7896E+01,-.1049E+02, $ -.8070E+01,-.3792E+01,-.9277E+00,-.7049E+00, $ -.2088E+01,-.3123E+01,-.2375E+01, .6175E+00, $ .5717E+01, .1244E+02, .1955E+02, .2450E+02, $ .2397E+02, .1569E+02, .6826E+00,-.1609E+02, $ -.2781E+02,-.2963E+02,-.2172E+02,-.9260E+01, $ .9275E+00, .4772E+01, .3163E+01, .4484E+00/ DATA ghm2_rs1/-.9322E-01,-.8445E+00,-.2324E+01,-.4299E+01, $ -.6186E+01,-.7200E+01,-.6775E+01,-.4970E+01, $ -.2510E+01,-.3750E+00, .7909E+00, .1019E+01, $ .8509E+00, .8173E+00, .9997E+00, .1027E+01, $ .4954E+00,-.5591E+00,-.1580E+01,-.1900E+01, $ -.1331E+01,-.4400E+00,-.2533E+00,-.1556E+01, $ -.4310E+01,-.7619E+01,-.1026E+02,-.1139E+02, $ -.1094E+02,-.9443E+01,-.7591E+01,-.5774E+01, $ -.4050E+01,-.2398E+01,-.9726E+00,-.1154E+00/ DATA ghm2_rc1/ .1165E+00, .1041E+01, .2786E+01, .4922E+01, $ .6568E+01, .6685E+01, .4705E+01, .1059E+01, $ -.2890E+01,-.5584E+01,-.6219E+01,-.5206E+01, $ -.3805E+01,-.3194E+01,-.3683E+01,-.4643E+01, $ -.5157E+01,-.4850E+01,-.4235E+01,-.4388E+01, $ -.6268E+01,-.1026E+02,-.1621E+02,-.2371E+02, $ -.3224E+02,-.4088E+02,-.4798E+02,-.5132E+02, $ -.4903E+02,-.4078E+02,-.2851E+02,-.1574E+02, $ -.5967E+01,-.8485E+00, .4079E+00, .9231E-01/ DATA ghm2_rs2/ .1989E+00, .1653E+01, .3909E+01, .6001E+01, $ .7112E+01, .6912E+01, .5590E+01, .3662E+01, $ .1687E+01, .8784E-01,-.9041E+00,-.1224E+01, $ -.9512E+00,-.3020E+00, .4148E+00, .9059E+00, $ .1026E+01, .8364E+00, .5373E+00, .3064E+00, $ .1860E+00, .1123E+00, .6175E-01, .1670E+00, $ .6586E+00, .1636E+01, .2845E+01, .3690E+01, $ .3545E+01, .2202E+01, .1091E+00,-.1806E+01, $ -.2679E+01,-.2262E+01,-.1093E+01,-.1394E+00/ DATA ghm2_rc2/-.1059E+00,-.8420E+00,-.1811E+01,-.2366E+01, $ -.2174E+01,-.1427E+01,-.6718E+00,-.3886E+00, $ -.6467E+00,-.1082E+01,-.1198E+01,-.7562E+00, $ .5588E-01, .7732E+00, .1008E+01, .7290E+00, $ .2611E+00, .2635E-01, .2267E+00, .7084E+00, $ .1094E+01, .1074E+01, .6317E+00, .6275E-01, $ -.2262E+00, .2465E-01, .7781E+00, .1739E+01, $ .2532E+01, .2888E+01, .2743E+01, .2213E+01, $ .1507E+01, .8250E+00, .3084E+00, .3481E-01/ DATA ghm2_rs3/ .4402E-01, .2930E+00, .3465E+00,-.2716E+00, $ -.1593E+01,-.3075E+01,-.3935E+01,-.3697E+01, $ -.2518E+01,-.1042E+01, .6252E-01, .5280E+00, $ .5387E+00, .4404E+00, .4023E+00, .3366E+00, $ .1147E+00,-.1713E+00,-.2021E+00, .2668E+00, $ .1055E+01, .1520E+01, .9580E+00,-.8163E+00, $ -.3164E+01,-.4894E+01,-.4977E+01,-.3211E+01, $ -.3685E+00, .2282E+01, .3725E+01, .3709E+01, $ .2707E+01, .1463E+01, .5193E+00, .5608E-01/ DATA ghm2_rc3/ .1799E+00, .1483E+01, .3451E+01, .5155E+01, $ .5859E+01, .5350E+01, .3957E+01, .2280E+01, $ .8553E+00,-.5760E-01,-.4854E+00,-.6060E+00, $ -.6031E+00,-.5937E+00,-.6259E+00,-.6964E+00, $ -.7558E+00,-.7223E+00,-.5329E+00,-.2260E+00, $ .1476E-01,-.7649E-01,-.6778E+00,-.1701E+01, $ -.2746E+01,-.3254E+01,-.2803E+01,-.1365E+01, $ .6418E+00, .2537E+01, .3705E+01, .3860E+01, $ .3127E+01, .1930E+01, .7788E+00, .9129E-01/ DATA ghm2_rs4/ .1794E-01, .1932E+00, .6703E+00, .1537E+01, $ .2665E+01, .3687E+01, .4178E+01, .3918E+01, $ .3023E+01, .1872E+01, .8663E+00, .2230E+00, $ -.7211E-01,-.1480E+00,-.1044E+00, .2945E-01, $ .2207E+00, .3500E+00, .2375E+00,-.2141E+00, $ -.8836E+00,-.1444E+01,-.1555E+01,-.1096E+01, $ -.2619E+00, .5870E+00, .1193E+01, .1582E+01, $ .1996E+01, .2618E+01, .3335E+01, .3749E+01, $ .3457E+01, .2416E+01, .1071E+01, .1318E+00/ DATA ghm2_rc4/-.9202E-02,-.9859E-01,-.3317E+00,-.7085E+00, $ -.1079E+01,-.1189E+01,-.8571E+00,-.1631E+00, $ .5502E+00, .8807E+00, .6481E+00, .3117E-01, $ -.5565E+00,-.7671E+00,-.5631E+00,-.2135E+00, $ -.5016E-01,-.1845E+00,-.4217E+00,-.4433E+00, $ -.1088E+00, .3811E+00, .6080E+00, .2632E+00, $ -.5732E+00,-.1428E+01,-.1723E+01,-.1155E+01, $ .1032E+00, .1508E+01, .2472E+01, .2678E+01, $ .2191E+01, .1346E+01, .5383E+00, .6268E-01/ DATA ghm2_i00/ .5365E+00, .4329E+01, .9613E+01, .1326E+02, $ .1325E+02, .9721E+01, .4619E+01, .2098E+00, $ -.2282E+01,-.3049E+01,-.3007E+01,-.2757E+01, $ -.2100E+01,-.4381E+00, .2410E+01, .5760E+01, $ .8455E+01, .9790E+01, .1018E+02, .1092E+02, $ .1316E+02, .1673E+02, .1992E+02, .2030E+02, $ .1629E+02, .8296E+01,-.1209E+01,-.8917E+01, $ -.1235E+02,-.1107E+02,-.6665E+01,-.1778E+01, $ .1402E+01, .2134E+01, .1207E+01, .1622E+00/ DATA ghm2_is1/ .3681E-01, .2772E+00, .5091E+00, .4021E+00, $ -.2185E+00,-.1211E+01,-.2137E+01,-.2480E+01, $ -.1939E+01,-.6281E+00, .9484E+00, .2159E+01, $ .2596E+01, .2304E+01, .1734E+01, .1447E+01, $ .1751E+01, .2493E+01, .3156E+01, .3181E+01, $ .2317E+01, .7734E+00,-.9010E+00,-.2123E+01, $ -.2555E+01,-.2209E+01,-.1346E+01,-.2881E+00, $ .7177E+00, .1523E+01, .2025E+01, .2139E+01, $ .1834E+01, .1211E+01, .5173E+00, .6259E-01/ DATA ghm2_ic1/-.2678E+00,-.2122E+01,-.4539E+01,-.5919E+01, $ -.5538E+01,-.4030E+01,-.2829E+01,-.3046E+01, $ -.4692E+01,-.6782E+01,-.8143E+01,-.8210E+01, $ -.7214E+01,-.5732E+01,-.4147E+01,-.2529E+01, $ -.9945E+00,-.6436E-01,-.5259E+00,-.2779E+01, $ -.6218E+01,-.9296E+01,-.1039E+02,-.8893E+01, $ -.5633E+01,-.2262E+01,-.3374E-02, .1211E+01, $ .2507E+01, .4899E+01, .8158E+01, .1072E+02, $ .1081E+02, .7950E+01, .3624E+01, .4520E+00/ DATA ghm2_is2/ .2223E-01, .1431E+00, .1320E+00,-.3120E+00, $ -.1277E+01,-.2514E+01,-.3543E+01,-.3930E+01, $ -.3545E+01,-.2631E+01,-.1636E+01,-.9331E+00, $ -.6199E+00,-.5173E+00,-.3589E+00,-.1403E-01, $ .4220E+00, .7322E+00, .7886E+00, .6982E+00, $ .7579E+00, .1237E+01, .2140E+01, .3133E+01, $ .3704E+01, .3471E+01, .2436E+01, .1007E+01, $ -.2238E+00,-.8187E+00,-.7212E+00,-.2365E+00, $ .2074E+00, .3440E+00, .2047E+00, .2818E-01/ DATA ghm2_ic2/-.1535E+00,-.1199E+01,-.2464E+01,-.2881E+01, $ -.1904E+01, .8525E-01, .2004E+01, .2773E+01, $ .2006E+01, .2262E+00,-.1515E+01,-.2336E+01, $ -.2046E+01,-.1180E+01,-.5359E+00,-.5976E+00, $ -.1221E+01,-.1789E+01,-.1680E+01,-.7158E+00, $ .7231E+00, .1953E+01, .2416E+01, .1987E+01, $ .9736E+00,-.1462E+00,-.1031E+01,-.1624E+01, $ -.2064E+01,-.2477E+01,-.2810E+01,-.2864E+01, $ -.2461E+01,-.1641E+01,-.7062E+00,-.8580E-01/ DATA ghm2_is3/-.2757E-01,-.2189E+00,-.4619E+00,-.5512E+00, $ -.3329E+00, .1887E+00, .8214E+00, .1266E+01, $ .1282E+01, .8409E+00, .1596E+00,-.4183E+00, $ -.6345E+00,-.4716E+00,-.1408E+00, .9384E-01, $ .1206E+00, .5492E-01, .1194E+00, .4255E+00, $ .8420E+00, .1076E+01, .9229E+00, .4853E+00, $ .1716E+00, .4326E+00, .1416E+01, .2796E+01, $ .3929E+01, .4242E+01, .3596E+01, .2349E+01, $ .1101E+01, .3006E+00, .1307E-01,-.5157E-02/ DATA ghm2_ic3/ .7513E-01, .5664E+00, .1051E+01, .8877E+00, $ -.2356E+00,-.2037E+01,-.3758E+01,-.4594E+01, $ -.4157E+01,-.2682E+01,-.8675E+00, .5453E+00, $ .1155E+01, .1040E+01, .5935E+00, .2096E+00, $ .4360E-01,-.1222E-01,-.1585E+00,-.4821E+00, $ -.8719E+00,-.1111E+01,-.1059E+01,-.7777E+00, $ -.5018E+00,-.4752E+00,-.7752E+00,-.1251E+01, $ -.1621E+01,-.1656E+01,-.1322E+01,-.7894E+00, $ -.3043E+00,-.3103E-01, .3193E-01, .6476E-02/ DATA ghm2_is4/ .1433E+00, .1136E+01, .2421E+01, .3061E+01, $ .2493E+01, .8716E+00,-.1066E+01,-.2479E+01, $ -.2907E+01,-.2435E+01,-.1512E+01,-.5950E+00, $ .8857E-01, .5363E+00, .8081E+00, .8932E+00, $ .7319E+00, .3452E+00,-.8160E-01,-.2751E+00, $ -.6985E-01, .4374E+00, .9200E+00, .1040E+01, $ .6970E+00, .1213E+00,-.2690E+00,-.1434E+00, $ .5232E+00, .1435E+01, .2160E+01, .2373E+01, $ .2016E+01, .1290E+01, .5337E+00, .6335E-01/ DATA ghm2_ic4/ .6269E-01, .5045E+00, .1116E+01, .1537E+01, $ .1554E+01, .1203E+01, .7001E+00, .2585E+00, $ -.4531E-01,-.2612E+00,-.4497E+00,-.5838E+00, $ -.5651E+00,-.3359E+00, .2589E-01, .3331E+00, $ .4330E+00, .3461E+00, .2688E+00, .4131E+00, $ .8012E+00, .1188E+01, .1200E+01, .6102E+00, $ -.4508E+00,-.1508E+01,-.1998E+01,-.1603E+01, $ -.4388E+00, .1006E+01, .2140E+01, .2571E+01, $ .2254E+01, .1461E+01, .6072E+00, .7218E-01/ c-------------------------------------------------------------------- subroutine SPW_H2O_LIM include 'com_main.fc' include 'data_GH_SPW.f' data I_00/1/,I_S1/1/,I_S2/1/ c----------------------------------- Stationary PWs nSPW=max0(ncom-1920,0) if(nSPW.gt.0) then tdSPW = float(nSPW)*xsec/86400. ! time (days) of the forcing tSWs = 1.- exp(-tdSPW/10.) ! SPWs c------------------------------ calculation of the current day number nday=ncom-nsun !zeitschritt mit bewegter sonne dayl=float(ntime*24) !zeitschritte/tag if(nday.lt.0) nday=0 c.....DEKLINATION c c-------------------------------deklination in jul.tagen nach c 31.dezember (12:00 Greenwich) c ndek=1 -->1.jan 12:00 day=float(ndek)+float(nday)/dayl !skalierung auf tage td1=2.*pi*day/365. td2=2.*td td3=3.*td td4=4.*td do 200 j=1,nb gh_zav=ghav_00 (j)+ghav_s1 (j)*SIN(td1)+ghav_c1 (j)*COS(td1)+ $ ghav_s2 (j)*SIN(td2)+ghav_c2 (j)*COS(td2)+ $ ghav_s3 (j)*SIN(td3)+ghav_c3 (j)*COS(td3)+ $ ghav_s4 (j)*SIN(td4)+ghav_c4 (j)*COS(td4) ghr_m1=ghm1_r00(j)+ghm1_rs1(j)*SIN(td1)+ghm1_rc1(j)*COS(td1)+ $ ghm1_rs2(j)*SIN(td2)+ghm1_rc2(j)*COS(td2)+ $ ghm1_rs3(j)*SIN(td3)+ghm1_rc3(j)*COS(td3)+ $ ghm1_rs4(j)*SIN(td4)+ghm1_rc4(j)*COS(td4) ghi_m1=ghm1_i00(j)+ghm1_is1(j)*SIN(td1)+ghm1_ic1(j)*COS(td1)+ $ ghm1_is2(j)*SIN(td2)+ghm1_ic2(j)*COS(td2)+ $ ghm1_is3(j)*SIN(td3)+ghm1_ic3(j)*COS(td3)+ $ ghm1_is4(j)*SIN(td4)+ghm1_ic4(j)*COS(td4) ghr_m2=ghm2_r00(j)+ghm2_rs1(j)*SIN(td1)+ghm2_rc1(j)*COS(td1)+ $ ghm2_rs2(j)*SIN(td2)+ghm2_rc2(j)*COS(td2)+ $ ghm2_rs3(j)*SIN(td3)+ghm2_rc3(j)*COS(td3)+ $ ghm2_rs4(j)*SIN(td4)+ghm2_rc4(j)*COS(td4) ghi_m2=ghm2_i00(j)+ghm2_is1(j)*SIN(td1)+ghm2_ic1(j)*COS(td1)+ $ ghm2_is2(j)*SIN(td2)+ghm2_ic2(j)*COS(td2)+ $ ghm2_is3(j)*SIN(td3)+ghm2_ic3(j)*COS(td3)+ $ ghm2_is4(j)*SIN(td4)+ghm2_ic4(j)*COS(td4) do i=1,igit dlong1 = 2.*pi*float(i-1)/float(igit) dlong2 = 2.*dlong1 firn1(j,i)= tSWs*g*(float(I_00)* gh_zav+ $ float(I_S1)*(ghr_m1*COS(dlong1)+ $ ghi_m1*SIN(dlong1)+ $ float(I_S2)*(ghr_m2*COS(dlong2)+ $ ghi_m2*SIN(dlong2)) end do 200 continue return end