MAPL_SunOrbitDestroy Subroutine

public subroutine MAPL_SunOrbitDestroy(ORBIT, RC)

The routine MAPL_SunOrbitDestroy Destroys a GEOS_SunOrbit object, deallocating the space used to save the ephemeris.

Arguments

Type IntentOptional Attributes Name
type(MAPL_SunOrbit), intent(inout) :: ORBIT
integer, intent(out), optional :: RC

Calls

proc~~mapl_sunorbitdestroy~~CallsGraph proc~mapl_sunorbitdestroy MAPL_SunOrbitDestroy proc~mapl_return MAPL_Return proc~mapl_sunorbitdestroy->proc~mapl_return at at proc~mapl_return->at insert insert proc~mapl_return->insert proc~mapl_throw_exception MAPL_throw_exception proc~mapl_return->proc~mapl_throw_exception

Called by

proc~~mapl_sunorbitdestroy~~CalledByGraph proc~mapl_sunorbitdestroy MAPL_SunOrbitDestroy proc~mapl_genericfinalize MAPL_GenericFinalize proc~mapl_genericfinalize->proc~mapl_sunorbitdestroy

Source Code

    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