MAPL_DoNotAllocateInternal Subroutine

public subroutine MAPL_DoNotAllocateInternal(GC, NAME, notFoundOK, RC)

Arguments

Type IntentOptional Attributes Name
type(ESMF_GridComp), intent(inout) :: GC
character(len=*), intent(in) :: NAME
logical, intent(in), optional :: notFoundOK
integer, intent(out) :: RC

Calls

proc~~mapl_donotallocateinternal~~CallsGraph proc~mapl_donotallocateinternal MAPL_DoNotAllocateInternal interface~mapl_assert MAPL_Assert proc~mapl_donotallocateinternal->interface~mapl_assert interface~mapl_getobjectfromgc MAPL_GetObjectFromGC proc~mapl_donotallocateinternal->interface~mapl_getobjectfromgc interface~mapl_get~2 MAPL_Get proc~mapl_donotallocateinternal->interface~mapl_get~2 interface~mapl_varspecgetindex MAPL_VarSpecGetIndex proc~mapl_donotallocateinternal->interface~mapl_varspecgetindex interface~mapl_varspecset~2 MAPL_VarSpecSet proc~mapl_donotallocateinternal->interface~mapl_varspecset~2 proc~mapl_return MAPL_Return proc~mapl_donotallocateinternal->proc~mapl_return proc~mapl_verify MAPL_Verify proc~mapl_donotallocateinternal->proc~mapl_verify 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 proc~mapl_verify->proc~mapl_throw_exception

Source Code

   subroutine MAPL_DoNotAllocateInternal(GC, NAME, notFoundOK, RC)
      type(ESMF_GridComp),  intent(INOUT) :: GC         ! Gridded component
      character(len=*),     intent(IN   ) :: NAME
      logical, optional,    intent(IN   ) :: notFoundOK
      integer,              intent(  OUT) :: RC         ! Return code

      integer                       :: status

      type (MAPL_MetaComp), pointer :: MAPLOBJ
      type (MAPL_VarSpec),  pointer :: SPEC(:)

      call MAPL_GetObjectFromGC(GC, MAPLOBJ, RC=status)
      _VERIFY(status)

      call MAPL_Get (MAPLOBJ, InternalSpec=spec, RC=status )
      _VERIFY(status)

      call MAPL_DoNotAllocateVar(SPEC, NAME, notFoundOK, RC=status)
      _VERIFY(status)

      _RETURN(ESMF_SUCCESS)
   end subroutine MAPL_DoNotAllocateInternal