MAPL_DoNotAllocateImport Subroutine

public subroutine MAPL_DoNotAllocateImport(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), optional :: RC

Calls

proc~~mapl_donotallocateimport~~CallsGraph proc~mapl_donotallocateimport MAPL_DoNotAllocateImport interface~mapl_assert MAPL_Assert proc~mapl_donotallocateimport->interface~mapl_assert interface~mapl_get MAPL_Get proc~mapl_donotallocateimport->interface~mapl_get interface~mapl_getobjectfromgc MAPL_GetObjectFromGC proc~mapl_donotallocateimport->interface~mapl_getobjectfromgc interface~mapl_varspecgetindex MAPL_VarSpecGetIndex proc~mapl_donotallocateimport->interface~mapl_varspecgetindex interface~mapl_varspecset MAPL_VarSpecSet proc~mapl_donotallocateimport->interface~mapl_varspecset proc~mapl_return MAPL_Return proc~mapl_donotallocateimport->proc~mapl_return proc~mapl_verify MAPL_Verify proc~mapl_donotallocateimport->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_DoNotAllocateImport(GC, NAME, notFoundOK, RC)
      type(ESMF_GridComp),  intent(INOUT) :: GC         ! Gridded component
      character(len=*),     intent(IN   ) :: NAME
      logical, optional,    intent(IN   ) :: notFoundOK
      integer, optional,    intent(  OUT) :: RC         ! Return code

      integer                       :: status

      type (MAPL_MetaComp), pointer :: MAPLOBJ
      type (MAPL_VarSpec),  pointer :: SPEC(:) => null()

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

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

      if (associated(spec)) then
         call MAPL_DoNotAllocateVar(SPEC, NAME, notFoundOK, RC=status)
         _VERIFY(status)
      end if

      _RETURN(ESMF_SUCCESS)
   end subroutine MAPL_DoNotAllocateImport