copy_platform_nckeys Function

public function copy_platform_nckeys(a, rc)

Arguments

Type IntentOptional Attributes Name
type(obs_platform), intent(in) :: a
integer, intent(out), optional :: rc

Return Value type(obs_platform)


Calls

proc~~copy_platform_nckeys~~CallsGraph proc~copy_platform_nckeys copy_platform_nckeys proc~mapl_return MAPL_Return proc~copy_platform_nckeys->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

Called by

proc~~copy_platform_nckeys~~CalledByGraph proc~copy_platform_nckeys copy_platform_nckeys proc~union_platform union_platform proc~union_platform->proc~copy_platform_nckeys

Source Code

  function copy_platform_nckeys(a, rc)
    type(obs_platform) :: copy_platform_nckeys
    type(obs_platform), intent(in) :: a
    integer, optional, intent(out) :: rc

    copy_platform_nckeys%index_name_x = a%index_name_x
    copy_platform_nckeys%var_name_lon = a%var_name_lon
    copy_platform_nckeys%var_name_lat = a%var_name_lat
    copy_platform_nckeys%var_name_time = a%var_name_time
    copy_platform_nckeys%nentry_name = a%nentry_name
    _RETURN(_SUCCESS)

  end function copy_platform_nckeys