c*c start grtcirle
c*******************************************************
      subroutine grtcircle(time,objclose)
c*******************************************************
c     CSC/CSCI: object/utilities
c     author: Paul Vogel/Ann Dotts
c     project: ADISC2, MMC-I&CS
c     function: compute the motion of an object along
c               a great circle routine.  newdest initializes
c               the parameters for this routine for any
c               flightpath leg.
c     parameters:
c     variable   i/o   type   size   description
c     time        i    R*4           simulation time
c     objclose    o    logical       flag to say object has
c                                    reached end of route leg
cend
c   initialize working variables
c   compute distance travelled this time step and to travel  on leg
c   compute how far object can travel on great circle route in allotted time
c   compute next intended point on great circle route
c   * if steady state has not been reached
c     then limit object to turn rate
c     else let object follow great circle route
c   * end if
c*c end grtcircle


 THIS ROUTINE CALLS THE FOLLOWING    5 SUBROUTINE(S):
vnorm                                   
ecrll                                   
turnlimit                               
cnvrhtoll                               
lluecr                                  


 THIS ROUTINE INCLUDES THE FOLLOWING    0 FILE(S):
