!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!
! SDDL Name:	WO_EA_GEOM_PARMS.SDDL
!
! Purpose:      This include file contains earth avoidance geometric parameters
!
! Modification History:
!
!   Date       OPR      Who                       Reason
! --------   -------    ---   -------------------------------------------------
! 12/13/94    27329     MRB   Original implementation
!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!

LANGUAGE	FORTRAN

RECORD  WOPARM_TYPE

!------------------------------------------------------------------------------
!
!   RECORD INFORMATION
!
!------------------------------------------------------------------------------


    DESCRIPTION      "earth avoidance geometric parameters"



!------------------------------------------------------------------------------
!
!   FIELD INFORMATION
!
!------------------------------------------------------------------------------



    FIELD  curr_orb_number
        TYPE            I*4
        UNITS           "'NA'"
        DESCRIPTION     "orbit number of computed parameters"
    END_FIELD



    FIELD  omega
        TYPE            R*4
        UNITS           "'degrees/sec'"
        DESCRIPTION     "value of ST orbital speed"
    END_FIELD



    FIELD  sin_of_psi_s
        TYPE            R*4
        UNITS           "'NA'"
        DESCRIPTION     "Sine of sun co-latitude from ST orbital plane"
    END_FIELD



    FIELD  sin_of_psi_w
        TYPE            R*4
        UNITS           "'NA'"
        DESCRIPTION     "Sine of LOS co-latitude from ST orbital plane"
    END_FIELD



    FIELD  psi
        TYPE            R*4
        UNITS           "'NA'"
        DESCRIPTION     "LOS-sun angle"
    END_FIELD



    FIELD  cos_of_psi
        TYPE            R*4
        UNITS           "'NA'"
        DESCRIPTION     "Cosine of LOS-sun angle"
    END_FIELD



    FIELD  phi_w
        TYPE            R*4
        UNITS           "'NA'"
        DESCRIPTION     "LOS phase in orbital plane relative to noon"
    END_FIELD



    FIELD  cos_of_phi_w
        TYPE            R*4
        UNITS           "'NA'"
        DESCRIPTION     "Cosine of LOS phase in orbital plane relative to noon"
    END_FIELD



    FIELD  sin_of_phi_w
        TYPE            R*4
        UNITS           "'NA'"
        DESCRIPTION     "Sine of LOS phase in orbital plane relative to noon"
    END_FIELD



    FIELD  number_of_tabulation_windows
        TYPE            I*4
        UNITS           "'NA'"
        DESCRIPTION     "Number of tabulation windows during
                        this ST 'period', will be 1,2, or 3."
    END_FIELD



    FIELD  begin_table_wind
        TYPE            I*4
        DIMENSION       3
        UNITS           "'SECONDS'"
        DESCRIPTION     "Begin times of up to 3 tabulation windows"
    END_FIELD



    FIELD  end_table_window
        TYPE            I*4
        DIMENSION       3
        UNITS           "'SECONDS'"
        DESCRIPTION     "end times of up to 3 tabulation windows"
    END_FIELD



    FIELD  bright_t1
        TYPE            I*4
        UNITS           "'SECONDS'"
        DESCRIPTION     "begin time of bright zone"
    END_FIELD



    FIELD  bright_t2
        TYPE            I*4
        UNITS           "'SECONDS'"
        DESCRIPTION     "end time of bright zone"
    END_FIELD



    FIELD  twilite1_t1
        TYPE            I*4
        UNITS           "'SECONDS'"
        DESCRIPTION     "begin time of first twilight zone"
    END_FIELD



    FIELD  twilite1_t2
        TYPE            I*4
        UNITS           "'SECONDS'"
        DESCRIPTION     "end time of first twilight zone"
    END_FIELD



    FIELD  dark_t1
        TYPE            I*4
        UNITS           "'SECONDS'"
        DESCRIPTION     "begin time of dark zone"
    END_FIELD



    FIELD  dark_t2
        TYPE            I*4
        UNITS           "'SECONDS'"
        DESCRIPTION     "end time of dark zone"
    END_FIELD



    FIELD  twilite2_t1
        TYPE            I*4
        UNITS           "'SECONDS'"
        DESCRIPTION     "begin time of second twilight zone"
    END_FIELD



    FIELD  twilite2_t2
        TYPE            I*4
        UNITS           "'SECONDS'"
        DESCRIPTION     "end time of second twilight zone"
    END_FIELD



    FIELD  one_period
        TYPE            I*4
        UNITS           "'SECONDS'"
        DESCRIPTION     "length of one ST period"
    END_FIELD



    FIELD  occult_flag
        TYPE            L*1
        DESCRIPTION     "occultation interval flag
                        = .TRUE. if there is a
                        physical occultation of the
                        LOS during this period."
    END_FIELD



    FIELD  occult_start
        TYPE            I*4
        UNITS           "'SECONDS'"
        DESCRIPTION     "start time of LOS occultation"
    END_FIELD



    FIELD  occult_end
        TYPE            I*4
        UNITS           "'SECONDS'"
        DESCRIPTION     "end time of LOS occultation"
    END_FIELD


END_RECORD


!------------------------------------------------------------------------------
!
!   INSTANCE DECLARATION
!
!------------------------------------------------------------------------------


INSTANCE  wo_ea_geom_parms

    FILE        
    TYPE        WOPARM_TYPE
    GLOBAL

END_INSTANCE