ini_aircraft.f90

 44.39793, 44.41131, 44.42400, 44.43619, 44.44731,&
 44.45933, 44.47095, 44.47776, 44.48403, 44.49192,&
 44.50044, 44.51020, 44.52095, 44.53370, 44.54737,&
 44.55783, 44.56727, 44.57504, 44.58094, 44.58412,&
 44.58225, 44.57236, 44.55879, 44.54496, 44.53045,&
 44.51564, 44.50161, 44.48671, 44.47298, 44.45754,&
 44.44110, 44.42419, 44.40608, 44.38719, 44.36785,&
 44.35673, 44.36123, 44.37101, 44.37533, 44.37696,&
 44.37613, 44.38058, 44.38785, 44.39397, 44.39713,&
 44.39959, 44.40136, 44.40122, 44.39871, 44.39061,&
 44.39359, 44.39652, 44.38966, 44.39608, 44.39569,&
 44.39465, 44.40496, 44.40415, 44.39887, 44.39713,&
 44.39695, 44.39696, 44.39696 /)


!
!* longitudes of the segments ends (1st point is takeoff, last point is landing)
!        (decimal degrees)
!
TAIRCRAFTS(9)%XSEGLON = (/  0.76306, 0.76307, 0.76305, 0.76269, 0.74580,&
 0.74072, 0.76103, 0.77639, 0.75449, 0.71425,&
 0.68316, 0.65249, 0.61874, 0.58328, 0.55006,&
 0.51760, 0.48441, 0.45139, 0.42065, 0.39305,&
 0.37216, 0.35714, 0.34286, 0.32602, 0.30618,&
 0.29573, 0.28531, 0.27413, 0.26043, 0.24570,&
 0.23012, 0.21237, 0.18837, 0.17083, 0.18349,&
 0.20509, 0.19600, 0.19825, 0.19492, 0.20130,&
 0.19254, 0.19556, 0.19605, 0.20768, 0.19070,&
 0.19338, 0.19937, 0.20087, 0.19005, 0.19651,&
 0.20863, 0.20360, 0.19309, 0.19990, 0.20947,&
 0.18161, 0.14867, 0.11569, 0.08135, 0.04598,&
 0.00878,-0.03075,-0.07182,-0.11374,-0.15676,&
-0.19923,-0.24111,-0.28194,-0.32286,-0.36105,&
-0.38799,-0.39993,-0.43095,-0.44520,-0.45588,&
-0.47157,-0.48673,-0.50422,-0.52201,-0.53820,&
-0.55361,-0.57117,-0.58856,-0.60501,-0.62178,&
-0.63509,-0.64631,-0.65933,-0.67844,-0.69380,&
-0.70676,-0.71683,-0.72233,-0.72811,-0.74429,&
-0.78257,-0.82472,-0.86568,-0.90634,-0.94853,&
-0.99312,-1.03733,-1.08136,-1.12497,-1.16729,&
-1.20861,-1.24852,-1.24317,-1.24128,-1.26618,&
-1.29450,-1.30808,-1.30763,-1.30267,-1.29873,&
-1.29013,-1.29921,-1.31215,-1.31578,-1.31067,&
-1.30216,-1.30826,-1.32260,-1.30085,-1.30780,&
-1.32801,-1.30845,-1.29379,-1.31837,-1.32354,&
-1.30182,-1.31707,-1.34122,-1.33728,-1.29928,&
-1.26473,-1.24858,-1.23360,-1.21667,-1.20075,&
-1.19259,-1.17065,-1.13473,-1.09576,-1.05647,&
-1.01627,-0.97416,-0.93471,-0.90394,-0.87912,&
-0.85150,-0.82113,-0.79423,-0.76751,-0.74274,&
-0.72071,-0.70026,-0.67875,-0.65563,-0.63129,&
-0.60738,-0.58319,-0.55662,-0.52999,-0.50503,&
-0.48014,-0.45503,-0.42987,-0.40221,-0.36724,&
-0.32885,-0.28896,-0.24699,-0.20322,-0.15936,&
-0.11700,-0.07826,-0.04194,-0.00601, 0.02865,&
 0.06331, 0.09933, 0.13591, 0.17155, 0.20078,&
 0.22495, 0.24723, 0.26669, 0.28571, 0.30512,&
 0.33057, 0.36230, 0.39468, 0.42872, 0.46249,&
 0.49528, 0.52814, 0.56066, 0.59247, 0.62509,&
 0.65765, 0.68978, 0.72237, 0.75668, 0.77236,&
 0.75175, 0.76499, 0.76381, 0.74495, 0.76561,&
 0.78717, 0.76713, 0.74758, 0.76078, 0.76316,&
 0.76337, 0.76334, 0.76336  /)

!
!* pressure of the segments ends (1st point is takeoff, last point is landing)
!        (pascals)
!

IF (TAIRCRAFTS(9)%LALTDEF) THEN
  ALLOCATE(TAIRCRAFTS(9)%XSEGP   (TAIRCRAFTS(9)%NSEG+1))
TAIRCRAFTS(9)%XSEGP = 100. * (/ 1014.8,1014.8,1014.8,1014.8,1005.5,&
 987.8, 972.7, 959.2, 957.2, 978.1,&
 993.8, 993.5, 992.9, 995.5, 997.4,&
 997.7, 998.5, 998.3, 996.8, 997.7,&
1000.1, 999.3, 998.7, 997.4, 996.2,&
 998.3,1000.0, 999.9, 999.1, 998.6,&
 998.5, 998.0, 999.2, 999.1,1009.5,&
1003.4, 990.2, 978.4, 967.1, 956.2,&
 945.9, 934.6, 924.2, 912.3, 901.3,&
 889.8, 878.6, 866.9, 855.7, 844.9,&
 834.2, 823.0, 812.0, 801.4, 800.1,&
 806.9, 815.5, 824.4, 834.5, 845.2,&
 856.3, 870.2, 884.9, 898.2, 913.0,&
 927.0, 940.6, 953.4, 966.2, 979.8,&
 992.8,1004.2,1006.7, 993.2, 982.3,&
 972.7, 962.0, 950.9, 940.8, 928.6,&
 917.0, 906.2, 895.3, 884.4, 874.0,&
 864.1, 854.4, 844.5, 834.4, 823.4,&
 812.3, 803.1, 806.5, 815.1, 824.1,&
 836.3, 845.1, 854.7, 866.7, 884.2,&
 903.2, 921.4, 938.5, 953.8, 969.2,&
 986.8,1000.3,1007.3, 995.3, 983.3,&
 986.5,1005.5,1005.5, 994.9, 985.4,&
 973.9, 964.7, 954.5, 945.0, 935.2,&
 924.2, 913.1, 902.7, 891.8, 881.8,&
 871.0, 860.2, 850.3, 839.9, 830.3,&
 820.3, 809.5, 801.3, 802.9, 813.4,&
 825.9, 839.4, 855.4, 874.2, 894.0,&
 909.5, 925.8, 940.5, 955.0, 969.2,&
 983.7,1000.0,1008.1,1000.5, 988.9,&
 982.3, 972.7, 960.7, 951.3, 939.8,&
 929.0, 915.4, 904.9, 895.4, 884.3,&
 873.4, 863.1, 852.1, 840.5, 829.5,&
 819.2, 809.6, 800.6, 801.4, 809.6,&
 818.1, 829.6, 840.8, 854.8, 868.4,&
 882.0, 894.2, 908.1, 922.9, 937.5,&
 950.9, 967.8, 987.5,1003.2,1005.1,&
1003.5,1003.3,1002.4,1002.3,1002.0,&
 995.6, 995.5, 998.5, 999.5,1000.3,&
1000.6, 999.6, 998.8, 999.2, 998.0,&
 997.3, 995.4, 995.1, 998.1, 988.4,&
 976.2, 965.3, 956.4, 945.6, 947.8,&
 965.9, 985.1,1003.1,1013.9,1013.9,&
1013.9,1013.9,1013.9  /)
 ELSE
  ALLOCATE(TAIRCRAFTS(9)%XSEGZ   (TAIRCRAFTS(9)%NSEG+1))
  TAIRCRAFTS(9)%XSEGZ    = (/8000,8000,8000,8000,8000,&
8000,8000,8000,8000,8000,&
8000,8000,8000,8000,8000,&
8000,8000,8000,8000,8000,&
8000,8000,8000,8000,8000,&
8000,8000,8000,8000,8000,&
8000,8000,8000,8000,8000,&
8000,8000,8000,8000,8000,&
8000,8000,8000,8000,8000,&
8000,8000,8000,8000,8000,&
8000,8000,8000,8000,8000,&
8000,8000,8000,8000,8000,&
8000,8000,8000,8000,8000,&
8000,8000,8000,8000,8000,&
8000,8000,8000,8000,8000,&
8000,8000,8000,8000,8000,&
8000,8000,8000,8000,8000,&
8000,8000,8000,8000,8000,&
8000,8000,8000,8000,8000,&
8000,8000,8000,8000,8000,&
8000,8000,8000,8000,8000,&
8000,8000,8000,8000,8000,&
8000,8000,8000,8000,8000,&
8000,8000,8000,8000,8000,&
8000,8000,8000,8000,8000,&
8000,8000,8000,8000,8000,&
8000,8000,8000,8000,8000,&
8000,8000,8000,8000,8000,&
8000,8000,8000,8000,8000,&
8000,8000,8000,8000,8000,&
8000,8000,8000,8000,8000,&
8000,8000,8000,8000,8000,&
8000,8000,8000,8000,8000,&
8000,8000,8000,8000,8000,&
8000,8000,8000,8000,8000,&
8000,8000,8000,8000,8000,&
8000,8000,8000,8000,8000,&
8000,8000,8000,8000,8000,&
8000,8000,8000,8000,8000,&
8000,8000,8000,8000,8000,&
8000,8000,8000,8000,8000,&
8000,8000,8000,8000,8000,&
8000,8000,8000,8000,8000,&
8000,8000,8000/)
ENDIF
#else
CALL PRINT_MSG( NVERB_FATAL, 'GEN', 'INI_AIRCRAFT', 'aircraft characteristics are commented' )
#endif
!
!----------------------------------------------------------------------------
!
!
END SUBROUTINE INI_AIRCRAFT