MAPL_LocStreamAdjustNsubtiles Subroutine

public subroutine MAPL_LocStreamAdjustNsubtiles(LocStream, NSUBTILES, RC)

Arguments

Type IntentOptional Attributes Name
type(MAPL_LocStream), intent(inout) :: LocStream
integer, intent(in) :: NSUBTILES
integer, intent(out), optional :: RC

Calls

proc~~mapl_locstreamadjustnsubtiles~~CallsGraph proc~mapl_locstreamadjustnsubtiles MAPL_LocStreamAdjustNsubtiles ESMF_AttributeSet ESMF_AttributeSet proc~mapl_locstreamadjustnsubtiles->ESMF_AttributeSet proc~mapl_return MAPL_Return proc~mapl_locstreamadjustnsubtiles->proc~mapl_return proc~mapl_verify MAPL_Verify proc~mapl_locstreamadjustnsubtiles->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

Called by

proc~~mapl_locstreamadjustnsubtiles~~CalledByGraph proc~mapl_locstreamadjustnsubtiles MAPL_LocStreamAdjustNsubtiles proc~mapl_genericinitialize MAPL_GenericInitialize proc~mapl_genericinitialize->proc~mapl_locstreamadjustnsubtiles

Source Code

  subroutine MAPL_LocStreamAdjustNsubtiles(LocStream, NSUBTILES, RC)

    type(MAPL_LocStream),  intent(INOUT) :: LocStream
    integer,               intent(IN   ) :: NSUBTILES
    integer, optional,     intent(  OUT) :: RC

! Local variables


    integer                    :: STATUS

    type(MAPL_LocStreamType), pointer :: STREAM

! Alias to the pointer
!---------------------

    STREAM => LocStream%Ptr

!======================================================
! Check if the location stream is already attached
!-------------------------------------------------

    if (stream%current_tiling > 0) then
       call ESMF_AttributeSet(stream%tilegrid, name='GRID_EXTRADIM', &
            value=NSUBTILES, rc=status)
       _VERIFY(STATUS)
    end if

    _RETURN(ESMF_SUCCESS)

  end subroutine MAPL_LocStreamAdjustNsubtiles