type MAPL_SunOrbit private logical :: CREATED = .FALSE. type(ESMF_Clock) :: CLOCK real :: OB, ECC, PER, YEARLEN integer :: EQNX, YEARS_PER_CYCLE, DAYS_PER_CYCLE real, pointer, dimension(:) :: ZC => null() real, pointer, dimension(:) :: ZS => null() real, pointer, dimension(:) :: PP => null() real, pointer, dimension(:) :: TH => null() real, pointer, dimension(:) :: ET => null() logical :: EOT logical :: FIX_SUN logical :: ANAL2B real :: ORB2B_YEARLEN type(ESMF_Time) :: ORB2B_TIME_REF real :: ORB2B_ECC_REF real :: ORB2B_ECC_RATE real :: ORB2B_OBQ_REF real :: ORB2B_OBQ_RATE real :: ORB2B_LAMBDAP_REF real :: ORB2B_LAMBDAP_RATE type(ESMF_Time) :: ORB2B_TIME_EQUINOX real :: ORB2B_OMG0 type(ESMF_Time) :: ORB2B_TIME_PERI end type MAPL_SunOrbit