Skip to content
Snippets Groups Projects
ini_aircraft.f90 74 KiB
Newer Older
  • Learn to ignore specific revisions
  •  999.3, 999.9,1000.4,1000.7,1000.6,&
    1000.8,1000.8,1000.6,1000.5,1000.1,&
     999.7, 999.2, 999.2, 999.6,1000.5,&
    1001.4,1001.6,1001.7,1001.6,1001.7,&
    1001.9,1002.1,1001.9,1001.8,1001.7,&
    1001.6,1001.7,1001.5,1001.2,1000.9,&
    1000.7,1001.1,1001.5,1001.5,1001.5,&
    1001.5,1001.5,1001.9,1002.2,1002.5,&
    1002.7,1002.4,1001.9,1002.0,1001.9,&
    1002.1,1002.7,1002.6,1002.7,1003.0,&
    1003.2,1003.2,1003.3,1003.3,1003.2,&
    1003.3,1003.4,1003.5,1003.0,1002.0,&
    1000.8, 999.2, 998.3, 998.4, 998.3,&
     998.9, 999.5,1000.4,1001.9,1002.8,&
    1003.3,1003.1,1001.2, 998.9, 996.9,&
     995.1, 994.9, 995.4, 995.5, 996.1,&
     996.5, 996.7, 996.8, 996.5, 996.2,&
     996.3, 997.2, 997.8, 998.6, 998.8,&
     997.9, 997.7, 996.8, 995.6, 994.7,&
     994.1, 993.8, 994.1, 995.1, 996.4,&
     999.0,1001.4,1002.9,1003.4,1002.7,&
    1002.2,1001.8,1001.5,1001.2,1000.5,&
    1000.0, 999.6, 998.4, 997.8, 997.3,&
     996.4, 996.5, 996.9, 996.9, 997.0,&
     997.1, 996.7, 996.9, 997.1, 997.2,&
     997.2, 997.0, 996.6, 996.0, 995.4,&
     994.9, 995.3, 996.0, 996.8, 997.4,&
     997.5, 997.6, 997.8, 998.0, 998.2,&
     998.3, 998.5, 998.6, 998.6, 998.6,&
     998.3, 998.0, 998.1, 998.2, 998.1,&
     997.9, 997.9, 997.5, 997.9, 998.4,&
     998.2, 997.4, 996.7, 996.1, 995.5,&
     996.0, 996.3, 996.2, 996.3, 996.0,&
     995.4, 995.4, 995.3, 994.8, 994.5,&
     994.1, 994.4  /)
     ELSE
    
      ALLOCATE(TAIRCRAFTS(5)%XSEGZ   (TAIRCRAFTS(5)%NSEG+1))
      TAIRCRAFTS(5)%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/)
    ENDIF
    !
    
    IF ( NAIRCRAFTS < 6 ) RETURN
    #else
    CALL PRINT_MSG( NVERB_FATAL, 'GEN', 'INI_AIRCRAFT', 'aircraft characteristics are commented' )
    #endif
    
    !----------------------------------------------------------------------------
    !
    !*      1.   Aircraft number 6
    !            -----------------
    !
    
    !* model number
    !
    
    
    !* aircraft flight name
    !
    
    !
    !* time step for storage
    !
    
    !
    !* take-off date and time
    !
    
    TAIRCRAFTS(6)%TLAUNCH%nyear  =  2007
    TAIRCRAFTS(6)%TLAUNCH%nmonth =    04
    TAIRCRAFTS(6)%TLAUNCH%nday   =    19
    TAIRCRAFTS(6)%TLAUNCH%xtime  = 55992.
    
    !
    !* number of flight segments
    !
    
    !
    !* initalisation of flag for pressure (T) or Z(F) for aicraft altitude
    !
    
    !
    !* allocation of the arrays
    !
    
    ALLOCATE(TAIRCRAFTS(6)%XSEGTIME(TAIRCRAFTS(6)%NSEG  ))
    ALLOCATE(TAIRCRAFTS(6)%XSEGLAT (TAIRCRAFTS(6)%NSEG+1))
    ALLOCATE(TAIRCRAFTS(6)%XSEGLON (TAIRCRAFTS(6)%NSEG+1))
    
    !
    !* duration of the segments (seconds)
    !
    
    TAIRCRAFTS(6)%XSEGTIME = (/ 27,   25,   26,   25,   25,   25,&
    
       25,   27,   28,   25,   26,   25,&
       26,   26,   26,   26,   25,   27,&
       27,   27,   27,   28,   28,   25,&
       27,   28,   27,   27,   26,   26,&
       26,   27,   26,   25,   25,   27,&
       27,   25,   26,   27,   27,   26,&
       27,   26,   26,   25,   26,   24,&
       25,   25,   25,   26,   27,   27,&
       27,   29,   29,   29,   29,   29,&
       29,   28,   29,   29,   27,   28,&
       28,   28,   26,   28,   26,   26,&
       25,   25,   28,   27,   26,   26,&
       29,   28,   26,   26,   27,   26,&
       26,   25,   26,   24,   25,   25,&
       26,   24,   25,   25,   27,   25,&
       26,   26,   26,   24,   24,   24,&
       24,   25,   25,   24,   25,   25,&
       25,   25,   24,   24,   24,   24,&
       23,   23,   24,   24,   24,   24,&
       27,   26,   25,   25,   26,   26,&
       24,   24,   25,   26,   25,   26,&
       26,   25,   26,   26,   27,   24,&
       25,   24,   25,   24,   26,   24,&
       24,   23,   24,   24,   23,   24,&
       25,   25,   24,   25,   28,   28,&
       26,   26,   28,   28,   28,   26,&
       27,   27,   27,   27,   26,   24,&
       24,   27,   28,   27,   26,   28,&
       29,   29,   28,   27,   28   /)
    !
    !* latitudes of the segments ends (1st point is takeoff, last point is landing)
    !        (decimal degrees)
    !
    
    TAIRCRAFTS(6)%XSEGLAT = (/  44.14614, 44.14841, 44.15199, 44.15888, 44.16587,&
    
     44.17280, 44.17953, 44.18641, 44.19343, 44.20074,&
     44.20752, 44.21445, 44.22139, 44.22865, 44.23605,&
     44.24331, 44.25045, 44.25722, 44.26426, 44.27113,&
     44.27801, 44.28496, 44.29233, 44.29944, 44.30612,&
     44.31311, 44.32038, 44.32756, 44.33466, 44.34155,&
     44.34851, 44.35557, 44.36279, 44.36982, 44.37671,&
     44.38379, 44.39117, 44.39831, 44.40499, 44.41186,&
     44.41907, 44.42637, 44.43340, 44.44051, 44.44749,&
     44.45439, 44.46129, 44.46847, 44.47526, 44.48238,&
     44.48966, 44.49706, 44.50420, 44.51117, 44.51802,&
     44.52483, 44.53217, 44.53939, 44.54629, 44.55308,&
     44.56001, 44.56696, 44.57396, 44.58110, 44.58836,&
     44.59549, 44.60253, 44.60947, 44.61647, 44.62329,&
     44.63051, 44.63757, 44.64473, 44.65168, 44.65879,&
     44.66629, 44.67335, 44.68004, 44.68665, 44.69401,&
     44.70118, 44.70651, 44.70872, 44.70757, 44.70296,&
     44.69641, 44.69022, 44.68403, 44.67814, 44.67201,&
     44.66553, 44.65876, 44.65247, 44.64606, 44.63975,&
     44.63345, 44.62765, 44.62149, 44.61525, 44.60889,&
     44.60281, 44.59667, 44.59043, 44.58400, 44.57706,&
     44.57080, 44.56535, 44.56024, 44.55582, 44.55158,&
     44.54727, 44.54317, 44.53909, 44.53488, 44.53082,&
     44.52674, 44.52256, 44.51820, 44.51381, 44.50985,&
     44.50597, 44.50180, 44.49769, 44.49378, 44.48980,&
     44.48562, 44.48126, 44.47710, 44.47292, 44.46873,&
     44.46366, 44.45784, 44.45107, 44.44347, 44.43597,&
     44.42798, 44.41978, 44.41116, 44.40333, 44.39528,&
     44.38766, 44.37943, 44.37150, 44.36297, 44.35491,&
     44.34703, 44.33932, 44.33142, 44.32336, 44.31518,&
     44.30685, 44.29949, 44.29657, 44.29762, 44.30213,&
     44.30973, 44.31706, 44.32385, 44.33065, 44.33810,&
     44.34583, 44.35311, 44.35997, 44.36612, 44.37085,&
     44.37429, 44.37605, 44.37683, 44.37769, 44.37856,&
     44.37956, 44.38060, 44.38176, 44.38285, 44.38399,&
     44.38503, 44.38596, 44.38687, 44.38787, 44.38900   /)
    !
    !* longitudes of the segments ends (1st point is takeoff, last point is landing)
    !        (decimal degrees)
    !
    
    TAIRCRAFTS(6)%XSEGLON = (/-0.91544,-0.91300,-0.91007,-0.90375,-0.89495,&
    
    -0.88708,-0.87983,-0.87229,-0.86452,-0.85654,&
    -0.84914,-0.84153,-0.83408,-0.82634,-0.81846,&
    -0.81096,-0.80323,-0.79569,-0.78779,-0.78020,&
    -0.77269,-0.76506,-0.75705,-0.74908,-0.74182,&
    -0.73428,-0.72632,-0.71835,-0.71057,-0.70309,&
    -0.69558,-0.68793,-0.67997,-0.67218,-0.66448,&
    -0.65671,-0.64853,-0.64067,-0.63340,-0.62590,&
    -0.61814,-0.61023,-0.60250,-0.59460,-0.58691,&
    -0.57916,-0.57164,-0.56390,-0.55623,-0.54843,&
    -0.54024,-0.53200,-0.52405,-0.51616,-0.50871,&
    -0.50122,-0.49331,-0.48550,-0.47785,-0.47037,&
    -0.46268,-0.45501,-0.44730,-0.43928,-0.43133,&
    -0.42366,-0.41596,-0.40833,-0.40054,-0.39299,&
    -0.38491,-0.37715,-0.36912,-0.36132,-0.35336,&
    -0.34495,-0.33715,-0.32974,-0.32263,-0.31464,&
    -0.30671,-0.29859,-0.29010,-0.28099,-0.27146,&
    -0.26236,-0.25343,-0.24444,-0.23594,-0.22713,&
    -0.21787,-0.20837,-0.19956,-0.19056,-0.18158,&
    -0.17232,-0.16387,-0.15482,-0.14565,-0.13627,&
    -0.12737,-0.11867,-0.10967,-0.10052,-0.09125,&
    -0.08213,-0.07306,-0.06374,-0.05342,-0.04236,&
    -0.03127,-0.02006,-0.00892, 0.00231, 0.01348,&
     0.02438, 0.03579, 0.04783, 0.05932, 0.07014,&
     0.08075, 0.09185, 0.10281, 0.11332, 0.12413,&
     0.13581, 0.14777, 0.15852, 0.16945, 0.18071,&
     0.19117, 0.19969, 0.20670, 0.21238, 0.21771,&
     0.22343, 0.22936, 0.23526, 0.24051, 0.24602,&
     0.25125, 0.25706, 0.26283, 0.26897, 0.27450,&
     0.27996, 0.28523, 0.29072, 0.29630, 0.30192,&
     0.30769, 0.31455, 0.32105, 0.32751, 0.33412,&
     0.34105, 0.34838, 0.35544, 0.36269, 0.37056,&
     0.37841, 0.38584, 0.39290, 0.40050, 0.40952,&
     0.42039, 0.43293, 0.44570, 0.45767, 0.46948,&
     0.48277, 0.49606, 0.50844, 0.52011, 0.53235,&
     0.54491, 0.55738, 0.56943, 0.58104, 0.59369   /)
    !
    !* pressure of the segments ends (1st point is takeoff, last point is landing)
    !        (pascals)
    !
    
    IF (TAIRCRAFTS(6)%LALTDEF) THEN
      ALLOCATE(TAIRCRAFTS(6)%XSEGP   (TAIRCRAFTS(6)%NSEG+1))
    TAIRCRAFTS(6)%XSEGP = 100. * (/ 990.1, 990.5, 991.1, 992.6, 993.7,&
    
     993.5, 993.2, 993.5, 993.8, 994.1,&
     994.4, 994.3, 994.3, 994.7, 995.4,&
     996.0, 996.2, 996.3, 996.1, 996.0,&
     996.3, 996.5, 996.9, 997.2, 997.1,&
     996.9, 996.5, 996.2, 995.9, 995.7,&
     996.0, 996.3, 996.6, 996.3, 995.8,&
     995.5, 995.3, 995.6, 996.0, 996.1,&
     996.0, 995.7, 995.4, 994.8, 994.3,&
     993.8, 993.7, 994.0, 994.6, 995.4,&
     996.0, 996.4, 996.3, 996.0, 995.6,&
     995.7, 995.7, 995.5, 995.1, 994.4,&
     994.1, 994.1, 994.7, 995.6, 996.4,&
     997.3, 997.8, 998.3, 998.8, 999.1,&
     999.4, 999.9,1000.5,1000.7,1000.7,&
     998.7, 996.2, 994.5, 993.0, 992.1,&
     991.9, 991.3, 991.7, 992.9, 994.4,&
     996.1, 996.5, 996.5, 996.3, 995.5,&
     995.0, 994.7, 994.4, 994.7, 995.2,&
     995.1, 995.1, 995.0, 994.7, 994.7,&
     994.9, 996.0, 997.9,1000.2,1001.6,&
    1001.7,1001.6,1000.6, 999.7, 999.2,&
     998.1, 997.5, 997.3, 997.1, 997.2,&
     998.2, 999.6,1001.1,1002.2,1002.5,&
    1002.2,1001.6,1000.7,1000.3,1000.3,&
    1000.9,1001.2,1001.2,1001.2,1001.2,&
    1001.3,1001.2,1000.8,1000.3,1000.2,&
    1000.3,1000.3,1000.1, 999.5, 999.0,&
     998.7, 998.9, 999.3, 999.7, 999.4,&
     999.1, 999.0, 999.1, 999.4, 999.8,&
     999.7, 999.5, 999.5, 999.3, 999.4,&
     999.6, 999.2, 999.1, 998.9, 999.2,&
     999.1, 997.6, 995.9, 993.8, 993.9,&
     995.9, 998.5,1000.3,1000.3, 999.8,&
     999.2, 999.2, 999.2, 998.9, 998.4,&
     997.7, 997.1, 996.8, 996.9, 996.9  /)
     ELSE
    
      ALLOCATE(TAIRCRAFTS(6)%XSEGZ   (TAIRCRAFTS(6)%NSEG+1))
      TAIRCRAFTS(6)%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/)
    ENDIF 
    !
    
    IF ( NAIRCRAFTS < 7 ) RETURN
    #else
    CALL PRINT_MSG( NVERB_FATAL, 'GEN', 'INI_AIRCRAFT', 'aircraft characteristics are commented' )
    #endif
    
    !----------------------------------------------------------------------------
    !
    !
    !*      1.   Aircraft number 7
    !            -----------------
    !
    
    !* model number
    !
    
    
    !* aircraft flight name
    !
    
    !
    !* time step for storage
    !
    
    !
    !* take-off date and time
    !
    
    TAIRCRAFTS(7)%TLAUNCH%nyear  =  2007
    TAIRCRAFTS(7)%TLAUNCH%nmonth =    04
    TAIRCRAFTS(7)%TLAUNCH%nday   =    19
    TAIRCRAFTS(7)%TLAUNCH%xtime  = 43500.
    
    !
    !* number of flight segments
    !
    
    !
    !* initalisation of flag for pressure (T) or Z(F) for aicraft altitude
    !
    
    !
    !* allocation of the arrays
    !
    
    ALLOCATE(TAIRCRAFTS(7)%XSEGTIME(TAIRCRAFTS(7)%NSEG  ))
    ALLOCATE(TAIRCRAFTS(7)%XSEGLAT (TAIRCRAFTS(7)%NSEG+1))
    ALLOCATE(TAIRCRAFTS(7)%XSEGLON (TAIRCRAFTS(7)%NSEG+1))
    
    !
    !* duration of the segments (seconds)
    !
    
    TAIRCRAFTS(7)%XSEGTIME = (/  60,   60,   60,   60,   60,   60,&
    
       60,   60,   60,   60,   60,   60,&
       60,   60,   60,   60,   60,   60,&
       60,   60,   60,   60,   60,   60,&
       60,   60,   60,   60,   60,   60,&
       60,   60,   60,   60,   60,   60,&
       60,   60,   60,   60,   60,   60,&
       60,   60,   60,   60,   60,   60,&
       60,   60,   60,   60,   60,   60,&
       60,   60,   60,   60,   60,   60,&
       60,   60,   60,   60,   60,   60,&
       60,   60,   60,   60,   60,   60,&
       60,   60,   60,   60,   60,   60,&
       60,   60,   60,   60,   60,   60,&
       60,   60,   60,   60,   60,   60,&
       60,   60,   60,   60,   60,   60,&
       60,   60,   60,   60,   60,   60,&
       60,   60,   60,   60,   60,   60,&
       60,   60,   60,   60,   60,   60,&
       60,   60,   60,   60,   60,   60,&
       60,   60,   60,   60,   60,   60,&
       60,   60,   60,   60,   60,   60,&
       60,   60,   60,   60,   60,   60,&
       60,   60,   60,   60,   60,   60,&
       60,   60,   60,   60,   60,   60,&
       60,   60,   60,   60,   60,   60,&
       60,   60,   60,   60,   60,   60,&
       60,   60,   60,   60,   60,   60,&
       60,   60,   60,   60,   60,   60,&
       60,   60,   60,   60,   60,   60,&
       60,   60,   60,   60,   60,   60,&
       60,   60,   60,   60,   60,   60,&
       60,   60,   60,   60,   60,   60,&
       60,   60,   60,   60,   60,   60,&
       60,   60,   60   /)
    !
    !* latitudes of the segments ends (1st point is takeoff, last point is landing)
    !        (decimal degrees)
    !
    
    TAIRCRAFTS(7)%XSEGLAT = (/44.39766, 44.39865, 44.40084, 44.39968, 44.40132,&
    
     44.39968, 44.39728, 44.39430, 44.38775, 44.37997,&
     44.37950, 44.37838, 44.37529, 44.37039, 44.36210,&
     44.35464, 44.35734, 44.37871, 44.39900, 44.41864,&
     44.43725, 44.45386, 44.47003, 44.46820, 44.45811,&
     44.45985, 44.46222, 44.46051, 44.46002, 44.45410,&
     44.45975, 44.47224, 44.47135, 44.46426, 44.45526,&
     44.46369, 44.47345, 44.46559, 44.45538, 44.45041,&
     44.46748, 44.48145, 44.47324, 44.46117, 44.44701,&
     44.44997, 44.46807, 44.45757, 44.44071, 44.42192,&
     44.40289, 44.38488, 44.37393, 44.37344, 44.37088,&
     44.36299, 44.35352, 44.34610, 44.33741, 44.32894,&
     44.31848, 44.30638, 44.29298, 44.27971, 44.26787,&
     44.25647, 44.24665, 44.23900, 44.22917, 44.21672,&
     44.19966, 44.18185, 44.16143, 44.13686, 44.11018,&
     44.08245, 44.05611, 44.02972, 44.00337, 43.97543,&
     43.95425, 43.93530, 43.91688, 43.89820, 43.89794,&
     43.90448, 43.89443, 43.88575, 43.89544, 43.88125,&
     43.86386, 43.84576, 43.82589, 43.80077, 43.77257,&
     43.74412, 43.71677, 43.68738, 43.66478, 43.64512,&
     43.62552, 43.60215, 43.57453, 43.54651, 43.53933,&
     43.55306, 43.55063, 43.53804, 43.51799, 43.50221,&
     43.49417, 43.48755, 43.47693, 43.49463, 43.50888,&
     43.50379, 43.50031, 43.49714, 43.49295, 43.49863,&
     43.49608, 43.49501, 43.49749, 43.49974, 43.50075,&
     43.49405, 43.50050, 43.49775, 43.49594, 43.49643,&
     43.50822, 43.50382, 43.50991, 43.52896, 43.54368,&
     43.55908, 43.57917, 43.60249, 43.62374, 43.64322,&
     43.66040, 43.67597, 43.69279, 43.70851, 43.72461,&
     43.74143, 43.75779, 43.77426, 43.78883, 43.79931,&
     43.80790, 43.81579, 43.82380, 43.83291, 43.84372,&
     43.85303, 43.86217, 43.88168, 43.90765, 43.93423,&
     43.96127, 43.98647, 44.01170, 44.03636, 44.06083,&
     44.08646, 44.11225, 44.14076, 44.17071, 44.19719,&
     44.21831, 44.23741, 44.25411, 44.27110, 44.28888,&
     44.30671, 44.32461, 44.34815, 44.37325, 44.39767,&
     44.42061, 44.44169, 44.46152, 44.47074, 44.45727,&
     44.43958, 44.42007, 44.39913, 44.37827, 44.35861,&
     44.35638, 44.36462, 44.37381, 44.37712, 44.37536,&
     44.37818, 44.38461, 44.39189, 44.39652, 44.39914,&
     44.40121, 44.40203, 44.39652, 44.39471, 44.39916,&
     44.39881, 44.39729, 44.39691  /)
    !
    !* longitudes of the segments ends (1st point is takeoff, last point is landing)
    !        (decimal degrees)
    !
    
    TAIRCRAFTS(7)%XSEGLON = (/0.76309, 0.76243, 0.74626, 0.71975, 0.69001,&
    
     0.65673, 0.62503, 0.59412, 0.56233, 0.53107,&
     0.49721, 0.46349, 0.42894, 0.39615, 0.36775,&
     0.33793, 0.31306, 0.29383, 0.27389, 0.25332,&
     0.23140, 0.20708, 0.18262, 0.17709, 0.21017,&
     0.21474, 0.19069, 0.17648, 0.20138, 0.21735,&
     0.19951, 0.17939, 0.17254, 0.19597, 0.20679,&
     0.18859, 0.16933, 0.18100, 0.20277, 0.20151,&
     0.18677, 0.16844, 0.17247, 0.19390, 0.20819,&
     0.19313, 0.17751, 0.18731, 0.22092, 0.25382,&
     0.28665, 0.31971, 0.35579, 0.39647, 0.43670,&
     0.47425, 0.51124, 0.54954, 0.58589, 0.62272,&
     0.65835, 0.69445, 0.73129, 0.76894, 0.80747,&
     0.84420, 0.87763, 0.90635, 0.93263, 0.95459,&
     0.96752, 0.97875, 0.98687, 0.99324, 1.00175,&
     1.01255, 1.02736, 1.04544, 1.06499, 1.08133,&
     1.09566, 1.10337, 1.10589, 1.11465, 1.11536,&
     1.09801, 1.10959, 1.12537, 1.10483, 1.09250,&
     1.08639, 1.08207, 1.07332, 1.07099, 1.07469,&
     1.08320, 1.09204, 1.09917, 1.09423, 1.08928,&
     1.09411, 1.09942, 1.10542, 1.10965, 1.11664,&
     1.10273, 1.10214, 1.12355, 1.14198, 1.17426,&
     1.21045, 1.24596, 1.25826, 1.23903, 1.21688,&
     1.21076, 1.22802, 1.23724, 1.24997, 1.22659,&
     1.23320, 1.25366, 1.23586, 1.22311, 1.24557,&
     1.25389, 1.23238, 1.23489, 1.25729, 1.24318,&
     1.21789, 1.21871, 1.23147, 1.20099, 1.16261,&
     1.12235, 1.08708, 1.05529, 1.02243, 0.98749,&
     0.95092, 0.91402, 0.87811, 0.84299, 0.80903,&
     0.77736, 0.74608, 0.71246, 0.68481, 0.66264,&
     0.64021, 0.61586, 0.59159, 0.56775, 0.54377,&
     0.51834, 0.49118, 0.46814, 0.45393, 0.44101,&
     0.42851, 0.41123, 0.39411, 0.37522, 0.35616,&
     0.34073, 0.32621, 0.31966, 0.31567, 0.31382,&
     0.30921, 0.30321, 0.29381, 0.28282, 0.27351,&
     0.28011, 0.29911, 0.31552, 0.29847, 0.27458,&
     0.25111, 0.22390, 0.19587, 0.17712, 0.20126,&
     0.22675, 0.25187, 0.27302, 0.29474, 0.31660,&
     0.34470, 0.37879, 0.41402, 0.44972, 0.48289,&
     0.51708, 0.55105, 0.58388, 0.61897, 0.65420,&
     0.68930, 0.72537, 0.76175, 0.77456, 0.75960,&
     0.76160, 0.76318, 0.76337  /)
    !
    !* pressure of the segments ends (1st point is takeoff, last point is landing)
    !        (pascals)
    !
    
    IF (TAIRCRAFTS(7)%LALTDEF) THEN
      ALLOCATE(TAIRCRAFTS(7)%XSEGP   (TAIRCRAFTS(7)%NSEG+1))
    TAIRCRAFTS(7)%XSEGP = 100. * (/1013.5,1012.2, 999.9, 993.1, 992.3,&
    
     994.3, 995.5, 996.0, 994.8, 995.3,&
     996.3, 997.7, 997.7, 994.8, 988.4,&
     993.4, 999.0, 999.4, 999.8,1000.0,&
     999.6, 999.6, 999.0,1004.0,1006.1,&
     994.3, 982.4, 970.9, 959.8, 949.9,&
     941.0, 930.8, 921.5, 912.1, 902.6,&
     893.6, 884.2, 875.5, 866.6, 857.9,&
     849.3, 839.5, 829.7, 820.1, 811.1,&
     803.1, 801.1, 809.7, 819.5, 830.7,&
     842.1, 851.2, 859.0, 868.3, 877.2,&
     885.5, 893.1, 900.8, 907.4, 914.0,&
     923.0, 933.3, 946.2, 959.3, 972.0,&
     979.4, 976.9, 964.5, 952.8, 941.4,&
     929.5, 921.1, 920.5, 924.1, 934.8,&
     943.9, 955.0, 966.2, 981.6, 992.9,&
     979.6, 966.2, 954.1, 956.0, 963.3,&
     969.2, 980.9, 981.8, 977.0, 962.5,&
     948.5, 936.0, 933.5, 939.9, 949.7,&
     958.2, 965.0, 978.3, 968.7, 956.7,&
     948.0, 952.6, 964.2, 970.2, 968.3,&
     968.8, 977.2, 969.8, 971.4, 976.6,&
     979.5, 981.2, 981.2, 984.3, 972.3,&
     960.2, 948.7, 938.2, 929.8, 920.7,&
     911.0, 899.9, 889.6, 879.4, 868.8,&
     857.8, 847.7, 838.2, 827.8, 818.0,&
     807.5, 802.2, 801.8, 810.8, 821.9,&
     835.8, 848.8, 861.7, 874.2, 887.1,&
     898.9, 911.0, 922.9, 933.6, 943.9,&
     954.7, 967.1, 983.3, 973.8, 961.5,&
     950.8, 939.5, 927.4, 915.9, 904.9,&
     893.7, 886.8, 891.5, 898.0, 905.7,&
     913.6, 919.8, 926.5, 935.1, 944.1,&
     954.5, 965.2, 978.6, 992.7, 984.7,&
     972.1, 959.6, 948.7, 937.5, 926.5,&
     917.2, 914.4, 924.3, 940.1, 955.8,&
     971.7, 984.4, 997.4,1000.3,1000.6,&
    1000.7, 999.6,1000.2, 999.4, 997.7,&
     992.5, 995.8, 999.1, 999.4, 997.4,&
     997.8, 996.9, 995.8, 996.1, 996.2,&
     993.5, 994.8, 995.2, 999.8,1012.4,&
    1012.4,1012.4,1012.4   /)
     ELSE
    
      ALLOCATE(TAIRCRAFTS(7)%XSEGZ   (TAIRCRAFTS(7)%NSEG+1))
      TAIRCRAFTS(7)%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/)
    ENDIF
    !
    
    IF ( NAIRCRAFTS < 8 ) RETURN
    #else
    CALL PRINT_MSG( NVERB_FATAL, 'GEN', 'INI_AIRCRAFT', 'aircraft characteristics are commented' )
    #endif
    
    !----------------------------------------------------------------------------
    !
    !*      1.   Aircraft number 8
    !            -----------------
    !
    
    !* model number
    !
    
    
    !* aircraft flight name
    !
    
    !
    !* time step for storage
    !
    
    !
    !* take-off date and time
    !
    
    TAIRCRAFTS(8)%TLAUNCH%nyear  =  2007
    TAIRCRAFTS(8)%TLAUNCH%nmonth =    04
    TAIRCRAFTS(8)%TLAUNCH%nday   =    22
    TAIRCRAFTS(8)%TLAUNCH%xtime  = 45720.
    
    !
    !* number of flight segments
    !
    
    !
    !* initalisation of flag for pressure (T) or Z(F) for aicraft altitude
    !
    
    !
    !* allocation of the arrays
    !
    
    ALLOCATE(TAIRCRAFTS(8)%XSEGTIME(TAIRCRAFTS(8)%NSEG  ))
    ALLOCATE(TAIRCRAFTS(8)%XSEGLAT (TAIRCRAFTS(8)%NSEG+1))
    ALLOCATE(TAIRCRAFTS(8)%XSEGLON (TAIRCRAFTS(8)%NSEG+1))
    
    !
    !* duration of the segments (seconds)
    !
    
    TAIRCRAFTS(8)%XSEGTIME = (/   60,   60,   60,   60,   60,   60,&
    
       60,   60,   60,   60,   60,   60,&
       60,   60,   60,   60,   60,   60,&
       60,   60,   60,   60,   60,   60,&
       60,   60,   60,   60,   60,   60,&
       60,   60,   60,   60,   60,   60,&
       60,   60,   60,   60,   60,   60,&
       60,   60,   60,   60,   60,   60,&
       60,   60,   60,   60,   60,   60,&
       60,   60,   60,   60,   60,   60,&
       60,   60,   60,   60,   60,   60,&
       60,   60,   60,   60,   60,   60,&
       60,   60,   60,   60,   60,   60,&
       60,   60,   60,   60,   60,   60,&
       60,   60,   60,   60,   60,   60,&
       60,   60,   60,   60,   60,   60,&
       60,   60,   60,   60,   60,   60,&
       60,   60,   60,   60,   60,   60,&
       60,   60,   60,   60,   60,   60,&
       60,   60,   60,   60,   60,   60,&
       60,   60,   60,   60,   60,   60,&
       60,   60,   60,   60,   60,   60,&
       60,   60,   60,   60,   60,   60,&
       60,   60,   60,   60,   60,   60,&
       60,   60,   60,   60,   60,   60,&
       60,   60,   60,   60,   60,   60,&
       60,   60,   60,   60,   60,   60,&
       60,   60,   60,   60,   60,   60,&
       60,   60,   60,   60,   60,   60,&
       60,   60,   60,   60,   60,   60,&
       60,   60,   60,   60,   60,   60,&
       60,   60,   60,   60,   60,   60,&
       60,   60,   60,   60,   60,   60,&
       60,   60,   60,   60,   60,   60,&
       60,   60,   60,   60,   60,   60   /)
    !
    !* latitudes of the segments ends (1st point is takeoff, last point is landing)
    !        (decimal degrees)
    !
    
    TAIRCRAFTS(8)%XSEGLAT = (/ 44.40018, 44.39977, 44.39868, 44.39992, 44.39773,&
    
     44.39547, 44.38932, 44.38114, 44.37649, 44.37682,&
     44.37604, 44.37314, 44.36610, 44.35869, 44.35126,&
     44.36888, 44.38902, 44.41019, 44.43016, 44.44711,&
     44.46309, 44.46567, 44.46411, 44.46376, 44.46685,&
     44.45785, 44.46202, 44.46796, 44.45953, 44.46578,&
     44.45835, 44.45396, 44.46302, 44.46765, 44.45875,&
     44.46523, 44.47145, 44.46173, 44.46061, 44.47287,&
     44.47889, 44.46331, 44.46504, 44.47908, 44.48783,&
     44.47358, 44.46026, 44.47212, 44.47249, 44.45646,&
     44.43659, 44.41697, 44.40199, 44.38879, 44.37329,&
     44.35638, 44.33957, 44.32298, 44.31241, 44.30906,&
     44.30746, 44.30375, 44.29695, 44.28690, 44.27741,&
     44.26870, 44.25519, 44.23423, 44.21513, 44.19742,&
     44.18321, 44.16521, 44.13944, 44.11380, 44.09166,&
     44.07140, 44.05157, 44.03142, 44.01214, 43.99344,&
     43.97188, 43.94739, 43.92061, 43.89076, 43.87434,&
     43.89083, 43.89292, 43.87508, 43.85464, 43.83516,&
     43.81576, 43.79388, 43.76739, 43.76922, 43.77542,&
     43.74814, 43.71925, 43.69068, 43.66563, 43.64503,&
     43.62444, 43.60469, 43.58496, 43.56237, 43.54501,&
     43.55352, 43.55457, 43.54557, 43.54903, 43.54089,&
     43.52829, 43.51990, 43.51346, 43.50497, 43.49425,&
     43.49525, 43.49562, 43.50077, 43.49815, 43.49617,&
     43.49845, 43.49810, 43.49390, 43.49866, 43.50523,&
     43.49673, 43.49247, 43.49800, 43.50190, 43.49003,&
     43.48993, 43.50083, 43.50555, 43.48778, 43.48823,&
     43.48480, 43.47242, 43.47737, 43.49374, 43.50835,&
     43.52650, 43.54671, 43.56923, 43.58943, 43.61022,&
     43.63331, 43.65439, 43.67176, 43.68666, 43.70027,&
     43.71413, 43.72785, 43.74148, 43.75517, 43.76971,&
     43.78253, 43.79616, 43.80787, 43.81857, 43.82942,&
     43.83995, 43.84981, 43.85823, 43.86486, 43.87613,&
     43.89896, 43.92984, 43.96011, 43.98988, 44.01919,&
     44.04820, 44.07634, 44.10430, 44.13180, 44.15935,&
     44.18754, 44.21629, 44.24437, 44.27247, 44.30043,&
     44.32868, 44.35654, 44.38023, 44.40228, 44.42240,&
     44.44159, 44.45799, 44.47140, 44.45998, 44.44209,&
     44.42257, 44.40038, 44.37905, 44.36011, 44.35666,&
     44.36594, 44.37397, 44.37687, 44.37565, 44.37784,&
     44.38400, 44.39171, 44.39634, 44.39880, 44.40099,&
     44.40118, 44.39848, 44.39311, 44.39245, 44.39898,&
     44.39910  /)
    
    !
    !* longitudes of the segments ends (1st point is takeoff, last point is landing)
    !        (decimal degrees)
    !
    
    TAIRCRAFTS(8)%XSEGLON = (/  0.75057, 0.72578, 0.69760, 0.66704, 0.63457,&
    
     0.60222, 0.56878, 0.53642, 0.50398, 0.47225,&
     0.43953, 0.40789, 0.38031, 0.35008, 0.32169,&
     0.30147, 0.28060, 0.26058, 0.23973, 0.21616,&
     0.19367, 0.18236, 0.18502, 0.20778, 0.20656,&
     0.18370, 0.18703, 0.20372, 0.19130, 0.19682,&
     0.19357, 0.18506, 0.20504, 0.20853, 0.18918,&
     0.19966, 0.21438, 0.19613, 0.18009, 0.19803,&
     0.20224, 0.19336, 0.18564, 0.20677, 0.20731,&
     0.19554, 0.18745, 0.19135, 0.20223, 0.20453,&
     0.22417, 0.25282, 0.28740, 0.32278, 0.35850,&
     0.39281, 0.42680, 0.46075, 0.49942, 0.54027,&
     0.58128, 0.62144, 0.66096, 0.69920, 0.73827,&
     0.77681, 0.81271, 0.84190, 0.87282, 0.90619,&
     0.94117, 0.96868, 0.99038, 1.01055, 1.02558,&
     1.03116, 1.03574, 1.04032, 1.04706, 1.05803,&
     1.07306, 1.09104, 1.11081, 1.12296, 1.13651,&
     1.12012, 1.09442, 1.08149, 1.08005, 1.08059,&
     1.08087, 1.08126, 1.08118, 1.05870, 1.07019,&
     1.08092, 1.08959, 1.09857, 1.10259, 1.10139,&
     1.10055, 1.10282, 1.10878, 1.11744, 1.10495,&
     1.06783, 1.08647, 1.12371, 1.11720, 1.09692,&
     1.11863, 1.14779, 1.17939, 1.21196, 1.24465,&
     1.25333, 1.22210, 1.20875, 1.23017, 1.24679,&
     1.22657, 1.23285, 1.25139, 1.23305, 1.21876,&
     1.23712, 1.25495, 1.23643, 1.22729, 1.24422,&
     1.25601, 1.23404, 1.23452, 1.23818, 1.22150,&
     1.21730, 1.22441, 1.19372, 1.16127, 1.12640,&
     1.09446, 1.06388, 1.03469, 1.00273, 0.97325,&
     0.94589, 0.91633, 0.88300, 0.84659, 0.80979,&
     0.77679, 0.75144, 0.72825, 0.70681, 0.68546,&
     0.66167, 0.63855, 0.61353, 0.58770, 0.56178,&
     0.53561, 0.50932, 0.48310, 0.45312, 0.41403,&
     0.38316, 0.37315, 0.37027, 0.36942, 0.36485,&
     0.35752, 0.34676, 0.33433, 0.32168, 0.31139,&
     0.30504, 0.30198, 0.30551, 0.31093, 0.31540,&
     0.32043, 0.31453, 0.29134, 0.26964, 0.24912,&
     0.22493, 0.20110, 0.18452, 0.19842, 0.22297,&
     0.24828, 0.27199, 0.29414, 0.31429, 0.34416,&
     0.37748, 0.41231, 0.44685, 0.47991, 0.51294,&
     0.54640, 0.58024, 0.61466, 0.65004, 0.68542,&
     0.72044, 0.75565, 0.76069, 0.77374, 0.76079,&
     0.76013  /)
    
    !
    !* pressure of the segments ends (1st point is takeoff, last point is landing)
    !        (pascals)
    !
    
    IF (TAIRCRAFTS(8)%LALTDEF) THEN
      ALLOCATE(TAIRCRAFTS(8)%XSEGP   (TAIRCRAFTS(8)%NSEG+1))
    TAIRCRAFTS(8)%XSEGP = 100. * (/1002.7, 994.1, 993.0, 994.6, 994.2,&
    
     994.3, 995.3, 996.2, 997.4, 996.8,&
     997.5, 996.0, 989.7, 990.8, 996.2,&
     999.0, 997.8, 998.4, 999.0, 999.8,&
     996.0, 985.6, 978.0, 967.9, 959.6,&
     952.6, 943.8, 934.8, 924.6, 916.9,&
     907.5, 898.5, 888.8, 879.9, 870.9,&
     861.3, 852.3, 843.9, 834.5, 825.4,&
     816.3, 806.4, 797.4, 788.2, 779.6,&
     770.6, 762.0, 753.3, 745.0, 741.1,&
     743.1, 748.3, 754.5, 761.4, 768.9,&
     777.1, 785.5, 794.8, 806.6, 817.8,&
     829.3, 840.3, 851.4, 862.4, 873.6,&
     885.4, 896.8, 911.7, 924.7, 933.7,&
     946.4, 959.8, 973.2, 981.3, 973.2,&
     957.9, 945.9, 935.4, 923.1, 913.1,&
     914.1, 923.5, 939.6, 958.2, 970.2,&
     975.1, 968.2, 954.8, 939.1, 928.3,&
     917.1, 915.8, 922.7, 933.0, 943.4,&
     957.9, 970.0, 977.2, 967.0, 955.4,&
     940.6, 927.1, 916.1, 918.5, 926.5,&
     940.9, 954.7, 965.0, 972.7, 964.7,&
     960.1, 959.0, 959.5, 966.5, 973.6,&
     977.4, 970.8, 960.0, 948.2, 937.7,&
     929.8, 920.2, 908.4, 899.6, 888.0,&
     877.9, 866.9, 855.7, 846.6, 836.1,&
     825.1, 813.8, 805.6, 795.1, 784.2,&
     775.1, 769.6, 773.5, 780.9, 790.2,&
     799.0, 812.7, 823.0, 832.8, 843.1,&
     854.7, 862.0, 873.0, 885.9, 895.8,&
     895.4, 884.4, 871.9, 864.3, 854.8,&
     844.0, 833.2, 824.1, 814.2, 805.5,&
     796.0, 786.3, 777.5, 776.5, 789.1,&
     803.2, 814.9, 826.4, 834.9, 842.7,&
     850.2, 861.0, 870.4, 880.3, 891.1,&
     902.5, 914.6, 927.2, 936.1, 946.8,&
     961.5, 974.1, 988.2, 993.4, 996.2,&
     998.3, 995.0, 995.7, 996.1, 995.0,&
     992.5, 995.4, 996.3, 993.9, 988.9,&
     992.2, 995.8, 996.7, 995.3, 995.0,&
     995.6, 995.8, 995.6, 995.4, 994.3,&
     995.1, 995.0, 986.7, 992.4,1009.3,&
    1010.1  /)
     ELSE
    
      ALLOCATE(TAIRCRAFTS(8)%XSEGZ   (TAIRCRAFTS(8)%NSEG+1))
      TAIRCRAFTS(8)%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/)
    ENDIF 
    !
    
    IF ( NAIRCRAFTS < 9 ) RETURN
    #else
    CALL PRINT_MSG( NVERB_FATAL, 'GEN', 'INI_AIRCRAFT', 'aircraft characteristics are commented' )
    #endif
    
    !
    !*      1.   Aircraft number 9
    !            -----------------
    !
    
    !* model number
    !
    
    
    !* aircraft flight name
    !
    
    !
    !* time step for storage
    !
    
    !
    !* take-off date and time
    !
    
    TAIRCRAFTS(9)%TLAUNCH%nyear  =  2007
    TAIRCRAFTS(9)%TLAUNCH%nmonth =    04
    TAIRCRAFTS(9)%TLAUNCH%nday   =    23
    TAIRCRAFTS(9)%TLAUNCH%xtime  = 28080.
    
    !
    !* number of flight segments
    !
    
    !
    !* initalisation of flag for pressure (T) or Z(F) for aicraft altitude
    !
    
    !
    !* allocation of the arrays
    !
    
    ALLOCATE(TAIRCRAFTS(9)%XSEGTIME(TAIRCRAFTS(9)%NSEG  ))
    ALLOCATE(TAIRCRAFTS(9)%XSEGLAT (TAIRCRAFTS(9)%NSEG+1))
    ALLOCATE(TAIRCRAFTS(9)%XSEGLON (TAIRCRAFTS(9)%NSEG+1))
    
    !
    !* duration of the segments (seconds)
    !
    
    TAIRCRAFTS(9)%XSEGTIME = (/   60,   60,   60,   60,   60,   60,&
    
       60,   60,   60,   60,   60,   60,&
       60,   60,   60,   60,   60,   60,&
       60,   60,   60,   60,   60,   60,&
       60,   60,   60,   60,   60,   60,&
       60,   60,   60,   60,   60,   60,&
       60,   60,   60,   60,   60,   60,&
       60,   60,   60,   60,   60,   60,&
       60,   60,   60,   60,   60,   60,&
       60,   60,   60,   60,   60,   60,&
       60,   60,   60,   60,   60,   60,&
       60,   60,   60,   60,   60,   60,&
       60,   60,   60,   60,   60,   60,&
       60,   60,   60,   60,   60,   60,&
       60,   60,   60,   60,   60,   60,&
       60,   60,   60,   60,   60,   60,&
       60,   60,   60,   60,   60,   60,&
       60,   60,   60,   60,   60,   60,&
       60,   60,   60,   60,   60,   60,&
       60,   60,   60,   60,   60,   60,&
       60,   60,   60,   60,   60,   60,&
       60,   60,   60,   60,   60,   60,&
       60,   60,   60,   60,   60,   60,&
       60,   60,   60,   60,   60,   60,&
       60,   60,   60,   60,   60,   60,&
       60,   60,   60,   60,   60,   60,&
       60,   60,   60,   60,   60,   60,&
       60,   60,   60,   60,   60,   60,&
       60,   60,   60,   60,   60,   60,&
       60,   60,   60,   60,   60,   60,&
       60,   60,   60,   60,   60,   60,&
       60,   60,   60,   60,   60,   60,&
       60,   60,   60,   60,   60,   60,&
       60,   60,   60,   60,   60,   60,&
       60,   60,   60,   60,   60,   60,&
       60,   60,   60,   60,   60,   60,&
       60 /)
    
    !
    !* latitudes of the segments ends (1st point is takeoff, last point is landing)
    !        (decimal degrees)
    !
    
    TAIRCRAFTS(9)%XSEGLAT = (/  44.39751, 44.39753, 44.39752, 44.39853, 44.40034,&
    
     44.39319, 44.38918, 44.39412, 44.40370, 44.40138,&
     44.39750, 44.39613, 44.39272, 44.38845, 44.38440,&
     44.38014, 44.37677, 44.37483, 44.36861, 44.35633,&
     44.33758, 44.31741, 44.29690, 44.27804, 44.28492,&
     44.30878, 44.33297, 44.35655, 44.37919, 44.40120,&
     44.42312, 44.44432, 44.46236, 44.47801, 44.46757,&
     44.46157, 44.45602, 44.45566, 44.47449, 44.47193,&
     44.45598, 44.45165, 44.47066, 44.47028, 44.45764,&
     44.45697, 44.47308, 44.46318, 44.45201, 44.46706,&
     44.47951, 44.46693, 44.45556, 44.46823, 44.46949,&
     44.47851, 44.49455, 44.51153, 44.52774, 44.54366,&
     44.55714, 44.56864, 44.57811, 44.58390, 44.58479,&
     44.58010, 44.57385, 44.56768, 44.56246, 44.55190,&
     44.53340, 44.50838, 44.49894, 44.48327, 44.46686,&
     44.45235, 44.43776, 44.42406, 44.40974, 44.39455,&
     44.37895, 44.36464, 44.35046, 44.33591, 44.32117,&
     44.30449, 44.28671, 44.26956, 44.25473, 44.23844,&
     44.22230, 44.20516, 44.18263, 44.15639, 44.13418,&
     44.13223, 44.13549, 44.13856, 44.14149, 44.14458,&
     44.14644, 44.15412, 44.16261, 44.16914, 44.17509,&
     44.18020, 44.18150, 44.17193, 44.17974, 44.18504,&
     44.18683, 44.16630, 44.14618, 44.16061, 44.17979,&
     44.19216, 44.18184, 44.16803, 44.15456, 44.16727,&
     44.18122, 44.17483, 44.17399, 44.17022, 44.16534,&
     44.16835, 44.16535, 44.16013, 44.16126, 44.15846,&
     44.14933, 44.14374, 44.15137, 44.16848, 44.17712,&
     44.19348, 44.22233, 44.25237, 44.28189, 44.31303,&
     44.34515, 44.37181, 44.38475, 44.38428, 44.38017,&
     44.37486, 44.37286, 44.37742, 44.38493, 44.39367,&
     44.39152, 44.38350, 44.38046, 44.38063, 44.38652,&