ESMF_LocStreamDestroy Subroutine

public subroutine ESMF_LocStreamDestroy(locstream, keywordEnforcer, noGarbage, rc)

Arguments

Type IntentOptional Attributes Name
type(ESMF_LocStream), intent(inout) :: locstream
type(ESMF_KeywordEnforcer), optional :: keywordEnforcer
logical, intent(in), optional :: noGarbage
integer, intent(out), optional :: rc

Calls

proc~~esmf_locstreamdestroy~~CallsGraph proc~esmf_locstreamdestroy ESMF_LocStreamDestroy c_esmc_vmrmfobject c_esmc_vmrmfobject proc~esmf_locstreamdestroy->c_esmc_vmrmfobject c_esmc_vmvalidobject c_esmc_vmvalidobject proc~esmf_locstreamdestroy->c_esmc_vmvalidobject proc~esmf_basedestroy ESMF_BaseDestroy proc~esmf_locstreamdestroy->proc~esmf_basedestroy proc~esmf_imerr ESMF_IMErr proc~esmf_locstreamdestroy->proc~esmf_imerr proc~esmf_locstreamdestruct ESMF_LocStreamDestruct proc~esmf_locstreamdestroy->proc~esmf_locstreamdestruct proc~esmf_locstreamgetinit ESMF_LocStreamGetInit proc~esmf_locstreamdestroy->proc~esmf_locstreamgetinit proc~esmf_logfounddeallocerror ESMF_LogFoundDeallocError proc~esmf_locstreamdestroy->proc~esmf_logfounddeallocerror proc~esmf_logfounderror ESMF_LogFoundError proc~esmf_locstreamdestroy->proc~esmf_logfounderror proc~esmf_logseterror ESMF_LogSetError proc~esmf_locstreamdestroy->proc~esmf_logseterror proc~esmf_basedestroy->proc~esmf_imerr proc~esmf_basedestroy->proc~esmf_logfounderror c_esmc_basedestroy c_esmc_basedestroy proc~esmf_basedestroy->c_esmc_basedestroy proc~esmf_basegetinit ESMF_BaseGetInit proc~esmf_basedestroy->proc~esmf_basegetinit proc~esmf_imerr->proc~esmf_logfounderror proc~esmf_initcheckdeep ESMF_InitCheckDeep proc~esmf_imerr->proc~esmf_initcheckdeep proc~esmf_locstreamdestruct->proc~esmf_logfounderror esmf_arraydestroy esmf_arraydestroy proc~esmf_locstreamdestruct->esmf_arraydestroy proc~esmf_basegetstatus ESMF_BaseGetStatus proc~esmf_locstreamdestruct->proc~esmf_basegetstatus proc~esmf_basesetstatus ESMF_BaseSetStatus proc~esmf_locstreamdestruct->proc~esmf_basesetstatus proc~esmf_distgriddestroy ESMF_DistGridDestroy proc~esmf_locstreamdestruct->proc~esmf_distgriddestroy esmf_breakpoint esmf_breakpoint proc~esmf_logfounddeallocerror->esmf_breakpoint proc~esmf_logrc2msg ESMF_LogRc2Msg proc~esmf_logfounddeallocerror->proc~esmf_logrc2msg proc~esmf_logwrite ESMF_LogWrite proc~esmf_logfounddeallocerror->proc~esmf_logwrite proc~esmf_logfounderror->esmf_breakpoint proc~esmf_logfounderror->proc~esmf_logrc2msg proc~esmf_logfounderror->proc~esmf_logwrite proc~esmf_logseterror->esmf_breakpoint proc~esmf_logseterror->proc~esmf_logrc2msg proc~esmf_logseterror->proc~esmf_logwrite proc~esmf_basegetstatus->proc~esmf_logfounderror c_esmc_basegetstatus c_esmc_basegetstatus proc~esmf_basegetstatus->c_esmc_basegetstatus proc~esmf_basesetstatus->proc~esmf_logfounderror c_esmc_basesetstatus c_esmc_basesetstatus proc~esmf_basesetstatus->c_esmc_basesetstatus proc~esmf_distgriddestroy->proc~esmf_imerr proc~esmf_distgriddestroy->proc~esmf_logfounderror c_esmc_distgriddestroy c_esmc_distgriddestroy proc~esmf_distgriddestroy->c_esmc_distgriddestroy proc~esmf_distgridgetinit ESMF_DistGridGetInit proc~esmf_distgriddestroy->proc~esmf_distgridgetinit c_esmc_loggeterrormsg c_esmc_loggeterrormsg proc~esmf_logrc2msg->c_esmc_loggeterrormsg c_esmc_vmwtime c_esmc_vmwtime proc~esmf_logwrite->c_esmc_vmwtime proc~esmf_logclose ESMF_LogClose proc~esmf_logwrite->proc~esmf_logclose proc~esmf_logflush ESMF_LogFlush proc~esmf_logwrite->proc~esmf_logflush proc~esmf_logopenfile ESMF_LogOpenFile proc~esmf_logwrite->proc~esmf_logopenfile proc~esmf_utiliounitflush ESMF_UtilIOUnitFlush proc~esmf_logwrite->proc~esmf_utiliounitflush proc~esmf_utilstring2array ESMF_UtilString2Array proc~esmf_logwrite->proc~esmf_utilstring2array

Called by

proc~~esmf_locstreamdestroy~~CalledByGraph proc~esmf_locstreamdestroy ESMF_LocStreamDestroy proc~esmf_fielddestructgeom ESMF_FieldDestructGeom proc~esmf_fielddestructgeom->proc~esmf_locstreamdestroy proc~f_esmf_locstreamdestroy f_esmf_locstreamdestroy proc~f_esmf_locstreamdestroy->proc~esmf_locstreamdestroy proc~test_locstreambkg test_locstreambkg proc~test_locstreambkg->proc~esmf_locstreamdestroy proc~test_locstreambkgnda test_locstreambkgnda proc~test_locstreambkgnda->proc~esmf_locstreamdestroy proc~test_locstreambkgsph test_locstreambkgsph proc~test_locstreambkgsph->proc~esmf_locstreamdestroy proc~test_nearest2dcartlstols test_Nearest2DCartLSToLS proc~test_nearest2dcartlstols->proc~esmf_locstreamdestroy proc~test_nearest3dcartlstols test_Nearest3DCartLSToLS proc~test_nearest3dcartlstols->proc~esmf_locstreamdestroy proc~test_patchmeshtolocstreammask test_PatchMeshToLocStreamMask proc~test_patchmeshtolocstreammask->proc~esmf_locstreamdestroy proc~test_pointlist_from_locstream_nomask test_pointlist_from_locStream_nomask proc~test_pointlist_from_locstream_nomask->proc~esmf_locstreamdestroy proc~test_pointlist_from_locstream_wmask test_pointlist_from_locStream_wmask proc~test_pointlist_from_locstream_wmask->proc~esmf_locstreamdestroy proc~test_regridgridtogml test_regridGridToGML proc~test_regridgridtogml->proc~esmf_locstreamdestroy proc~test_regridgridtolocstream3d test_regridGridToLocStream3d proc~test_regridgridtolocstream3d->proc~esmf_locstreamdestroy proc~test_regridgridtolocstreamloccnt test_regridGridToLocStreamLocCnt proc~test_regridgridtolocstreamloccnt->proc~esmf_locstreamdestroy proc~test_regridgridtolocstreamregdist test_regridGridToLocStreamRegDist proc~test_regridgridtolocstreamregdist->proc~esmf_locstreamdestroy proc~test_regridmeshtolocstreammask test_regridMeshToLocStreamMask proc~test_regridmeshtolocstreammask->proc~esmf_locstreamdestroy proc~test_regridnearestlocstream_wclustertomesh test_regridNearestLocStream_wClusterToMesh proc~test_regridnearestlocstream_wclustertomesh->proc~esmf_locstreamdestroy proc~test_regridnearestlocstreamtogrid test_regridNearestLocStreamToGrid proc~test_regridnearestlocstreamtogrid->proc~esmf_locstreamdestroy proc~test_regridnearestlocstreamtolocstream test_regridNearestLocStreamToLocStream proc~test_regridnearestlocstreamtolocstream->proc~esmf_locstreamdestroy proc~user_final~18 user_final proc~user_final~18->proc~esmf_locstreamdestroy proc~user_final~24 user_final proc~user_final~24->proc~esmf_locstreamdestroy proc~user_final~28 user_final proc~user_final~28->proc~esmf_locstreamdestroy proc~user_final~48 user_final proc~user_final~48->proc~esmf_locstreamdestroy proc~user_final~77 user_final proc~user_final~77->proc~esmf_locstreamdestroy proc~user_final~84 user_final proc~user_final~84->proc~esmf_locstreamdestroy program~esmf_fieldcreateex ESMF_FieldCreateEx program~esmf_fieldcreateex->proc~esmf_locstreamdestroy program~esmf_infosyncutest ESMF_InfoSyncUTest program~esmf_infosyncutest->proc~esmf_locstreamdestroy program~esmf_locstreamcreateutest ESMF_LocStreamCreateUTest program~esmf_locstreamcreateutest->proc~esmf_locstreamdestroy program~esmf_locstreamcreateutest->proc~test_locstreambkg program~esmf_locstreamcreateutest->proc~test_locstreambkgnda program~esmf_locstreamcreateutest->proc~test_locstreambkgsph program~esmf_locstreamex ESMF_LocStreamEx program~esmf_locstreamex->proc~esmf_locstreamdestroy program~esmf_pointlistutest ESMF_PointListUTest program~esmf_pointlistutest->proc~test_pointlist_from_locstream_nomask program~esmf_pointlistutest->proc~test_pointlist_from_locstream_wmask

Source Code

      subroutine ESMF_LocStreamDestroy(locstream, keywordEnforcer, noGarbage, rc)
!
! !ARGUMENTS:
      type(ESMF_LocStream), intent(inout)          :: locstream 
type(ESMF_KeywordEnforcer), optional:: keywordEnforcer ! must use keywords below
      logical,              intent(in),   optional :: noGarbage
      integer,              intent(out),  optional :: rc
!
! !STATUS:
! \begin{itemize}
! \item\apiStatusCompatibleVersion{5.2.0r}
! \item\apiStatusModifiedSinceVersion{5.2.0r}
! \begin{description}
! \item[8.1.0] Added argument {\tt noGarbage}.
!   The argument provides a mechanism to override the default garbage collection
!   mechanism when destroying an ESMF object.
! \end{description}
! \end{itemize}
!
! !DESCRIPTION:
!     Deallocate an {\tt ESMF\_LocStream} object and appropriate 
!     internal structures.
!
!     The arguments are:
!     \begin{description}
!     \item[locstream]
!          locstream to destroy
! \item[{[noGarbage]}]
!      If set to {\tt .TRUE.} the object will be fully destroyed and removed
!      from the ESMF garbage collection system. Note however that under this
!      condition ESMF cannot protect against accessing the destroyed object
!      through dangling aliases -- a situation which may lead to hard to debug
!      application crashes.
!
!      It is generally recommended to leave the {\tt noGarbage} argument
!      set to {\tt .FALSE.} (the default), and to take advantage of the ESMF
!      garbage collection system which will prevent problems with dangling
!      aliases or incorrect sequences of destroy calls. However this level of
!      support requires that a small remnant of the object is kept in memory
!      past the destroy call. This can lead to an unexpected increase in memory
!      consumption over the course of execution in applications that use
!      temporary ESMF objects. For situations where the repeated creation and
!      destruction of temporary objects leads to memory issues, it is
!      recommended to call with {\tt noGarbage} set to {\tt .TRUE.}, fully
!      removing the entire temporary object from memory.
!     \item[{[rc]}]
!          Return code; equals {\tt ESMF\_SUCCESS} if there are no errors.
!   \end{description}
!
!EOP

      integer                                              :: localrc  ! Error status
      type (ESMF_LocStreamType), pointer :: lstypep
      integer :: i
      type(ESMF_Logical) :: valid

      ! Initialize return code; assume failure until success is certain
      if (present(rc)) rc = ESMF_RC_NOT_IMPL

      ! Init check input types
      ESMF_INIT_CHECK_DEEP_SHORT(ESMF_LocStreamGetInit,locstream,rc)      

      if (.not.associated(locstream%lstypep)) then 
        call ESMF_LogSetError(rcToCheck=ESMF_RC_OBJ_BAD, &
          msg="Uninitialized or already destroyed LocStream: lstypep unassociated", &
          ESMF_CONTEXT, rcToReturn=rc)
        return
      endif 

      ! See if this object is even still valid in garbage collection
      call c_ESMC_VMValidObject(locstream%lstypep%base, valid, localrc)
      if (ESMF_LogFoundError(localrc, &
                                ESMF_ERR_PASSTHRU, &
                                ESMF_CONTEXT, rcToReturn=rc)) return
      if (valid/=ESMF_TRUE) then
        ! nothing to be done here, return successfully
        if (present(rc)) rc = ESMF_SUCCESS
        return
      endif

      ! Destruct all field internals and then free field memory.
      call ESMF_LocStreamDestruct(locstream%lstypep, rc=localrc)
      if (ESMF_LogFoundError(localrc, &
                                ESMF_ERR_PASSTHRU, &
                                ESMF_CONTEXT, rcToReturn=rc)) return

      if (present(noGarbage)) then
        if (noGarbage) then
          ! destroy Base object (which also removes it from garbage collection)
          call ESMF_BaseDestroy(locstream%lstypep%base, noGarbage, rc=localrc)
          if (ESMF_LogFoundError(localrc, &
            ESMF_ERR_PASSTHRU, &
            ESMF_CONTEXT, rcToReturn=rc)) return
          ! remove reference to this object from ESMF garbage collection table
          call c_ESMC_VMRmFObject(locstream)
          ! deallocate the actual field data structure
          deallocate(locstream%lstypep, stat=localrc)
          if (ESMF_LogFoundDeallocError(localrc, &
            msg="Deallocating LocStream information", &
            ESMF_CONTEXT, rcToReturn=rc)) return
        endif
      endif

      ! Mark this locstream as invalid
      nullify(locstream%lstypep)

      ! Set init status to indicate structure has been destroyed
      ESMF_INIT_SET_DELETED(locstream)

      ! return successfully
      if (present(rc)) rc = ESMF_SUCCESS

      end subroutine ESMF_LocStreamDestroy