make_io Subroutine

public subroutine make_io(this, rc)

Type Bound

ExtDataNG_IOBundle

Arguments

Type IntentOptional Attributes Name
class(ExtDataNG_IOBundle), intent(inout) :: this
integer, intent(out), optional :: rc

Calls

proc~~make_io~~CallsGraph proc~make_io ExtDataNG_IOBundle%make_io proc~mapl_return MAPL_Return proc~make_io->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

Source Code

  subroutine make_io(this, rc)
    class (ExtDataNG_IOBundle), intent(inout) :: this
    integer, optional, intent(out) :: rc

     if (this%on_tiles) then
        this%tile_io = MAPL_TileIO(this%pbundle,this%server_coll_id)
     else
        this%grid_io = MAPL_GriddedIO(output_bundle=this%pbundle,regrid_method=this%regrid_method, &
                           read_collection_id=this%server_coll_id, &
                           metadata_collection_id = this%metadata_coll_id, fraction = this%fraction, &
                           items=this%items)
     end if

     _RETURN(ESMF_SUCCESS)

   end subroutine make_io