The routine MAPL_SunOrbitDestroy
Destroys a GEOS_SunOrbit object,
deallocating the space used to save the ephemeris.
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
type(MAPL_SunOrbit), | intent(inout) | :: | ORBIT | |||
integer, | intent(out), | optional | :: | RC |
subroutine MAPL_SunOrbitDestroy(ORBIT, RC) ! !ARGUMENTS: type(MAPL_SunOrbit), intent(INOUT) :: ORBIT integer, optional, intent( OUT) :: RC character(len=ESMF_MAXSTR), parameter :: IAm = "SunOrbitDestroy" if(associated(ORBIT%TH)) deallocate(ORBIT%TH) if(associated(ORBIT%ZC)) deallocate(ORBIT%ZC) if(associated(ORBIT%ZS)) deallocate(ORBIT%ZS) if(associated(ORBIT%PP)) deallocate(ORBIT%PP) if(associated(ORBIT%ET)) deallocate(ORBIT%ET) ORBIT%CREATED = .FALSE. _RETURN(ESMF_SUCCESS) end subroutine MAPL_SunOrbitDestroy